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Preface 


This  book  is  a  rich  library  of  more  than  200  machine  language 
routines  for  programmers  to  learn  from  and  use  in  their  own 
programs.  The  programs  in  this  book  cover  a  wide  range: 

•  Character  input  and  output 

•  Sprite  definition  and  movement 

•  High-resolution  graphics 

•  Sorting  and  searching  lists  of  information 

•  Reading  and  writing  disk  files 

•  Combining  BASIC  and  ML  programs 

•  Printer  routines 

■  Addition,  subtraction,  multiplication,  and  division 

•  Conversions  between  character  and  screen  codes 

•  Random  number  generation 

•  Jiffy  clock  and  time-of-day  clock  routines 

•  Using  interrupts  and  vectors 

•  Custom  characters  (for  40-  and  80-column  displays) 

•  Sound  effects  and  music 

These  are  just  a  few  of  the  routines  you'll  find  in  this 
book.  Nearly  every  subroutine  is  listed  with  a  sample  program 
that  illustrates  how  it  works.  You  can  study  the  subroutine  by 
itself  or  see  how  it's  used  in  the  context  of  a  real  program. 

One  of  the  best  ways  to  learn  machine  language  is  to 
study  other  people's  programs.  If  you  can  see  how  someone 
else  got  the  computer  to  do  something  like  moving  sprites, 
printing  a  score,  sorting  a  list,  or  whatever,  you  can  trace 
through  the  steps  and  gain  a  better  understanding  of  the 
technique. 

But  most  magazines  and  books  publish  machine  language 
(ML)  as  a  series  of  numbers  in  DA~A  statements.  You  don't 
leam  much  about  machine  language  from  typing  in  clusters  of 
numbers.  You  could  use  an  ML  monitor  to  disassemble  the 
program,  but  when  you're  faced  with  a  sea  of  JSRs  and  BEQs, 
it's  not  always  obvious  what's  going  on  in  a  program. 

The  programs  include  a  wealth  of  comments  that  take  you 
step  by  step  through  the  various  stages  of  each  routine:  setting 
up  the  variables,  calling  the  routine,  and  handling  the  results. 


Most  routines  are  written  for  the  Commodore  64,  but  will 
run  on  the  128  with  the  changes  indicated  in  comments.  A 
few  routines  will  work  only  on  the  64  or  only  on  the  128,  but 
most  will  run  on  both  computers. 

In  addition  to  the  200-plus  routines,  we've  included  a 
complete  list  of  ML  opcodes,  with  explanations  of  how  they 
work,  and  a  complete  list,  with  explanations,  of  the  built-in 
Kernal  routines. 

Whether  you're  a  machine  language  beginner  or  a  sea- 
soned expert,  we  think  you'll  find  many  useful  programming 
techniques,  routines,  and  ideas  in  this  book. 

Todd  D.  Heimarck 
Patrick  Parrish 


All  the  source  code  in  this  book  is  ready  to  type  in  and 
assemble.  There  is  also  a  disk  available  from  COMPUTE! 
Books  which  includes  all  the  source  code  from  the  book 
(no  object  code  is  included  on  the  disk).  An  assembler  is 
required  to  use  the  disk.  To  purchase  the  disk,  use  the 
coupon  in  the  back  of  the  book  or  call  1-800-346-6767  (in 
New  York  212-887-8525). 
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Introduction 


The  paradox  of  machine  language  is  that  it's  both  simpler 
and  more  complex  than  a  high-level  language  such  as  BASIC 
or  Pascal. 

Machine  language  (ML)  is  simpler  because  a  program  con- 
sists of  many  very  small  steps.  LDA  #10  puts  the  number  10 
in  the  accumulator.  STX  $C115  takes  the  number  in  the  X  reg- 
ister and  stores  it  in  memory  location  $C115.  If  you  study  a 
single  line  from  a  fast  and  powerful  machine  language  pro- 
gram, you'll  usually  see  that  not  very  much  happens.  Now 
consider  a  BASIC  command  such  as  SPRITE  on  the  Com- 
modore 128.  With  one  command,  you  can  turn  a  sprite  on;  set 
its  color,  priority,  and  expansion;  and  put  it  in  multicolor 
mode.  Compared  to  the  Spartan  instruction  set  of  ML,  BASIC 
is  a  richer  and  more  complicated  language. 

But  even  though  the  instructions  are  small  and  simple, 
putting  together  a  working  ML  program  is  often  more  complex 
than  writing  a  BASIC  program.  If  you  make  a  mistake,  chances 
are  good  that  the  program  will  go  into  an  endless  loop  (or 
worse,  the  computer  will  crash).  There  are  no  convenient  error 
messages  to  tell  you  what  you  did  wrong.  You're  responsible 
for  keeping  track  of  your  own  variables.  And  you're  expected 
to  understand  some  of  the  architecture  of  the  computer — how 
the  various  support  chips  and  their  registers  work. 

Some  people  find  ML  quite  easy.  Others  struggle  to  leam 
it.  Either  way,  we  hope  you'll  discover  some  useful  routines  in 
these  pages. 

What  You'll  Find  Here 

This  book  is  divided  into  three  major  parts:  the  instruction  set, 
the  Kemal  routines,  and  the  machine  language  routines. 

The  instruction  set  lists  each  6502  machine  language  op- 
eration, with  an  explanation  of  what  it  does  and  which  flags 
are  affected.  The  6502  family  of  chips  includes  the  6510  in  the 
64;  the  8502  in  the  128;  and  the  6502  in  the  VIC-20,  Atari 
400/800,  and  original  Apple  II.  The  ML  instructions  listed  are 
common  to  all  of  these  computers.  (Incidentally,  if  you  pro- 
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gram  on  these  other  6502-based  computers,  you  may  be  able 
to  translate  some  of  the  routines  in  this  book  for  the  VIC, 
Atari,  or  Apple.)  The  instruction  set  contains  the  building 
blocks  of  ML.  programming.  If  you're  a  beginner,  you  may 
want  to  look  through  this  section  first.  Even  if  you're  an  old 
pro,  you'll  need  to  refer  to  this  list  occasionally. 

The  next  section  of  this  book — "ROM  Kernal  Routines" — 
lists  the  Kernal  routines  (which  are  common  to  all  eight-bit 
Commodore  computers,  including  the  VIC,  Plus/4,  64,  and 
128).  Note  the  deliberate  misspelling  of  what  other  computer 
manufacturers  call  kernel  routines.  The  Kernal  is  a  block  of 
memory  that  uses  a  standard  jump  table  to  make  it  easier  to 
program  on  different  brands  of  Commodore  computers.  For 
example,  the  routine  that  prints  a  character  is  found  at  dif- 
ferent locations  on  the  64  and  128,  but  the  standard  entry 
point  for  the  Kernal  CHROUT  routine  is  the  same  ($FFD2)  on 
both  computers.  This  means  the  line  LDA  #65:  JSR  $FFD2  will 
work  the  same  on  both  computers — it  prints  the  letter  A  on 
the  screen.  Indeed,  it  also  works  on  the  V1C-20,  the  Plus/4, 
and  the  16.  We're  indebted  to  Ottis  Cowper  for  giving  us  per- 
mission to  reprint  a  portion  of  his  Mapping  the  Commodore  128 
(COMPUTE!  Books,  1986)  that  explains  how  the  Kernal 
routines  work. 

The  importance  of  the  Kernal  routines  cannot  be  over- 
emphasized. To  open  a  disk  file,  you  call  the  Kemal  routines 
SETLFS,  SETNAM,  and  OPEN.  (See  the  entries  under  OPENFL 
or  READFL  for  examples.)  If  these  routines  weren't  available, 
it  would  be  quite  difficult  to  read  from  or  write  to  a  disk  file; 
you'd  have  to  write  your  own  disk  operating  system,  with 
routines  to  spin  the  disk,  move  the  read/write  head  to  a  given 
sector,  read  bytes  one  at  a  time,  and  so  on. 

The  third  and  largest  part  of  the  book  is  the  collection  of 
ML  routines.  Each  subroutine  is  listed  alphabetically  by  label. 
In  some  cases,  the  entire  program  is  the  subroutine.  However, 
the  routine  is  usually  put  in  the  context  of  a  framing  program 
which  illustrates  how  to  set  up  and  call  the  given  subroutine 
(marked  by  bold  type).  When  a  routine  appears  elsewhere  in 
the  book,  its  label  appears  in  boldface  type. 

What  You  Won't  Find  Here 

The  book  is  big,  but  we  couldn't  include  everything.  One 
thing  you  won't  find  is  an  explanation  of  how  to  begin 
programming  in  ML.  If  you're  a  beginner,  you'll  find  useful 


Introduction 


examples  and  programs  here,  but  you  may  also  want  to  look 
into  two  books  for  beginners:  Machine  Language  for  Beginners 
by  Richard  Mansfield  (COMPUTE!  Books)  and  Machine  Lan- 
guage by  Jim  Butterfield  (Brady  Books).  Mansfield's  book  takes 
a  software  approach,  relating  machine  language  instructions  to 
their  BASIC  counterparts.  If  you  know  how  a  FOR -NEXT  loop 
works  in  BASIC,  this  book  shows  you  how  to  do  the  same 
thing  in  ML.  Butterfield  s  book  approaches  ML  more  from  the 
hardware  viewpoint,  explaining  what's  happening  inside  the 
computer  while  an  ML  program  is  running.  We  highly  recom- 
mend both  books. 

When  you're  writing  programs  for  the  64  and  128,  it's 
necessary  to  understand  something  about  how  memory  is  or- 
ganized— which  zero-page  locations  are  available;  which  ROM 
routines  are  useful;  how  the  registers  of  the  support  chips  con- 
trol video,  input/output,  and  sound.  For  a  general  introduction 
to  these  topics.  Commodore's  two  programmer's  reference 
guides  are  excellent.  The  64  version  is  published  by  Howard 
Sams;  the  128  version  comes  from  Bantam  Books.  For  more 
detail.  Mapping  the  Commodore  64  by  Sheldon  Leemon  and 
Mapping  the  Commodore  128  by  Ottis  Cowper  are  essential 
(both  published  by  COMPUTE!  Books).  In  fact,  if  you  buy 
only  one  other  machine  language  book,  get  the  mapping  book 
for  your  computer.  We  also  recommend  Anatomy  of  the  Com- 
modore 64  and  128  BASIC  7.0  Internals  (Abacus  Books).  Both 
books  feature  commented  disassemblies  of  the  BASIC  ROMs. 

The  Routines 

Each  machine  language  routine  has  a  label  up  to  six  letters 
long.  Following  the  label  is  a  more  descriptive  name  that  tells 
you  what  the  routine  does,  for  example,  SQROOT:  Calculate 
the  integer  square  root  of  an  integer  value. 

Below  the  label  and  name,  you'll  see  one  or  two  para- 
graphs that  touch  on  the  main  points  of  the  routine,  with 
examples  of  where  you  might  use  the  routine  or  a  summary  of 
how  it  works. 

Next  is  the  prototype,  which  is  something  like  a  flowchart 
converted  to  instructions  written  in  English.  It  lists  the  individ- 
ual steps  followed  by  the  subroutine  and  points  out  the  vari- 
ables and  memory  used  within  the  routine.  There  are  usually 
three  steps  covered  in  the  prototype:  how  to  set  it  up,  how  the 
routine  works,  and  how  the  results  are  handled. 
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Following  the  prototype  is  a  more  in-depth  explanation  of 
what  the  framing  program  does.  This  section  discusses  alternate 
ways  to  use  the  subroutine,  more  information  about  how  to 
modify  it  for  your  own  purposes,  how  certain  tasks  were  accom- 
plished, how  memory  is  affected,  and  so  on.  Often  there's  an 
important  note  or  even  a  warning.  The  FORMAT  routine  for- 
mats a  disk,  for  example,  which  warrants  a  warning  that  if 
you  run  this  program,  you'll  erase  everything  on  your  disk. 

Finally,  the  source  code  for  the  program  is  listed.  Some 
routines  are  a  few  lines,  others  cover  several  pages.  We  recom- 
mend that  you  use  a  symbolic  multipass  assembler  to  type  in 
these  programs  (see  below).  Although  you  can  use  a  monitor 
such  as  Micromon  or  Supermon,  you'll  find  that  an  assembler 
is  preferable. 

Typing  In  and  Assembling  the  Programs 

We  chose  the  Personal  Assembly  Language  (PAL)  assembler  to 
write  the  source  code  for  the  routines  in  this  book.  The  64  ver- 
sion (PAL)  and  128  version  (Buddy-128)  are  available  from 
many  Commodore  software  dealers,  or  from  the  distributor, 
Pro-Line  Software  in  Mississauga,  Ontario.  If  you  use  the 
LADS  assembler  from  The  Second  Book  of  Machine  Language 
(COMPUTE!  Books),  you'll  find  that  the  source  files  are  mostly 
compatible,  with  very  minor  changes. 

If  you're  using  another  assembler,  such  as  Commodore's 
Macro  Assembler  Development  System  (MADS),  Eastern  House 
Software's  Macro  Assembler/Editor  (MAE),  Roger  Wagner's 
Merlin,  or  one  of  the  others  available,  you  may  need  to  make 
a  few  modifications  to  get  the  source  code  to  run. 

First,  a  note  about  pseudo-ops.  The  three  letters  LDA 
represent  a  machine  language  instruction  (or  operation).  The 
mnemonic  LDA  is  translated  to  a  number  that's  POKEd  into 
memory  or  saved  in  a  disk  file  by  the  assembler.  The  opera- 
tion LDA  is  always  followed  by  one  or  two  bytes  that  provide 
additional  information.  These  bytes  are  the  operand.  In  the 
instruction  LDA  $C150,  LDA  is  the  operation,  and  $050  is 
the  operand.  The  assembler  converts  this  line  to  the  numbers 
173,  80,  and  193  (SAD,  $50,  and  SCI).  For  this  instruction  and 
addressing  mode,  LDA  is  the  mnemonic,  and  SAD  is  the 
equivalent  opcode. 

Assemblers  usually  include  additional  commands  that 
aren't  really  part  of  the  ML  instruction  set,  but  they're  instruc- 
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tions  to  the  assembler.  For  example,  PAL  takes  .OPT  OO  to 
mean  "Object  where  Origined,"  or  "assemble  this  to  mem- 
ory." Buddy-128  uses  .MEM.  LADS  uses  .O.  These  pseudo- 
operations  tell  the  assembler  to  do  one  thing  or  another. 

At  the  beginning  of  most  programs,  you'll  see  a  series  of 
equates,  each  of  which  instructs  the  assembler  to  assign  a  label 
to  a  memory  location.  The  memory  location  may  be  the  entry 
point  for  a  Kernal  ROM  routine,  it  may  be  a  location  in  RAM, 
or  it  may  be  a  register  in  the  VIC  or  CIA  or  SID  chip.  One  of 
the  most  common  equates  looks  like  this:  CHROUT  =  SFFD2. 
This  informs  the  assembler  that  the  label  CHROUT,  when  en- 
countered later  in  the  program  should  be  replaced  by  the  ad- 
dress SFFD2.  JSR  CHROUT  means  JSR  $FFD2.  Some  assemblers 
use  the  pseudo-instruction  EQU  in  place  of  the  equal  sign.  If 
your  assembler  follows  this  convention,  instead  of  CHROUT  = 
$FFD2,  you'd  substitute  CHROUT  EQU  $FFD2.  If  you're  using 
a  machine  language  monitor  or  an  assembler  that  doesn't 
allow  labels,  you'll  have  to  make  the  substitution  yourself. 
The  source  code  may  look  like  this: 

SC020     20   D2   FF    JSR  CHROUT 

With  Micromon  or  Supermon,  you'd  have  to  look  to  the 
left  at  the  D2  FF  and  translate  the  instruction  (in  your  head)  to 
JSR  $FFD2.  Note  that  the  low  byte  precedes  the  high  byte  in 
the  object  code  to  the  left. 

Both  PAL  and  LADS  support  the  #<  and  #>  pseudo- 
operations.  From  a  two-byte  address,  the  first  (#<)  extracts  the 
low  byte,  and  the  second  (#>)  extracts  the  high  byte.  So  if  a 
previous  equate  assigned  the  memory  location  $902F  to  the  la- 
bel NAMES,  the  line  LDA  #<NAMES  tells  the  assembler  to 
load  the  accumulator  with  the  low  byte  of  NAMES.  Since 
NAMES  is  $902F,  this  is  equivalent  to  LDA  #$2F.  If  you  saw 
LDA  #>NAMES,  it  would  be  the  same  as  LDA  #$90.  Again, 
you  can  look  to  the  left  to  find  the  value  being  referenced. 

Some  other  pseudo-ops  include  .BYTE,  .WORD,  and 
-ASC.  If  you  see  a  line  like  ZEBRA  .BYTE  15,  it  means  that  the 
byte  value  of  15  is  inserted  in  the  program  at  the  given  loca- 
tion and  that  particular  memory  location  is  given  the  label  ZE- 
BRA. Some  assemblers  use  DB  (Data  Byte)  instead  of  .BYTE. 
The  .WORD  pseudo-op  translates  a  two-byte  quantity  to  its 
low  byte  and  high  byte.  The  .ASC  is  followed  by  a  quotation 
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mark  and  a  series  of  one  or  more  characters,  which  are  stored 
in  memory  as  Commodore  ASCII  values. 

If  you  don't  understand  an  instruction  that  contains  a 
pseudo-op,  look  to  the  left  for  the  equivalent  object  code. 

Using  the  Routines  in  Your  Own  Programs 

The  programs  in  this  book  have  all  been  tested.  The  original 
source  code  was  assembled  and  printed  to  disk  (using  PAL*. 
.OPT  P  option),  and  then  uploaded  directly  to  the  computer 
used  to  typeset  this  book.  So  as  far  as  we  know,  there  are  no 
typographical  errors  in  the  program  listings. 

But  that  doesn't  mean  that  each  routine  is  perfect  and 
ready  to  be  inserted  as  is  in  your  own  programs.  For  one 
thing,  nearly  all  of  the  example  programs  start  at  $C000  (deci- 
mal 49152).  At  the  very  least,  you'll  probably  want  to  relocate 
the  routines  to  other  parts  of  memory,  especially  if  you're 
using  a  128.  You  should  also  watch  for  conflicts  among 
routines  that  use  zero-page  locations.  Many  routines  depend 
on  indirect-Y  addressing  and  locations  251-252  and  253-254 
($FB-$FC  and  $FD-$FE).  In  some  cases,  you'll  have  to  sub- 
stitute other  available  zero-page  addresses. 

Many  of  the  routines  were  written  to  be  general  and  flex- 
ible solutions  to  a  problem.  If  you  have  a  more  specific 
application  in  mind,  you  might  want  to  dispense  with  the  sub- 
routine and  insert  a  modified  version  of  a  routine  directly  in 
your  main  program.  You  may  also  see  ways  to  shorten  a  rou- 
tine or  make  it  run  faster.  We  encourage  you  to  experiment 
with  the  programs. 

For  128  Users 

Since  most  of  the  programs  call  Kernal  routines,  you'll  need  to 
be  in  bank  15,  where  addresses  $0000-$3FFF  are  RAM  in 
bank  1  and  $4000-$FFFF  appear  as  ROM.  Instead  of  assem- 
bling programs  to  SC000,  try  $0C00  (decimal  3072)  on  the 
128.  To  take  full  advantage  of  the  128K  of  memory,  you  need 
to  understand  how  the  different  memory  banks  are  accessed. 
Both  the  128  Programmer's  Reference  Guide  and  Mapping  the 
Commodore  128  discuss  how  to  switch  between  banks. 

About  the  Disk 

A  companion  disk  that  contains  all  the  routines  in  this  book  is 
available  for  purchase  from  COMPUTE!  Books.  The  programs 
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are  included  as  source  code,  not  object  code,  which  means 
you'll  need  an  assembler  like  PAL  or  LADS  to  create  the 
runnable  program — the  object  code. 

The  source  files  take  up  much  more  space  than  is  avail- 
able on  a  single-sided  1541  disk,  so  both  sides  were  used.  The 
disk  is  a  flippy:  To  use  the  first  half  of  the  programs,  use  one 
side;  to  load  the  other  programs,  flip  the  disk  over.  The  orig- 
inal source  files  filled  more  than  the  1328  blocks  available  on 
a  flippy.  Rather  than  omit  programs  from  the  disk,  we  chose 
to  abbreviate  the  comments  in  a  few  programs.  Thus,  the  com- 
ments in  the  source  code  on  disk  may  not  be  exactly  the  same 
as  the  comments  in  the  listings  in  this  book.  If  you  list  the 
programs  on  the  disk,  you  may  find  that  hi  byte  has  replaced 
the  phrase  high  byte  in  the  book,  for  example. 
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ADC 

ADd  with  Carry:  Add  a  value  to  the  accumulator,  with  the  re- 
sult in  .A. 
Addressing  Modes 


(Zero  page.X) 

ADC  ($FC,X) 

61   FC          6  cycles 

Zero  page 

ADCSFA 

65  FA         3  cycles 

Immediate 

ADC  #$45 

69  45          2  cycles 

Absolute 

ADC  $10 

6D  10  00    4  cycles 

(Zero  page),Y 

ADC  ($FB),Y 

71  FB         5  cycles 

(+1  over  a  page) 

Zero  page.X 

ADC  $03,X 

75  03          4  cycles 

Absolute.Y 

ADC  $A401,Y 

79  01  A4   4  cycles 

(+1  over  a  page) 

Absolute.X 

ADC  $C002,X 

7D  02  CO   4  cycles 

( + 1  over  a  page) 

Flags 

N  (Negative) 

If  the  result 

is  S80-$FF,  the  N  flag  is  set. 

V    (Overflow) 

If  an  overflow  occurs,  V  is  set. 

B    (Break) 

— 

D  (Decimal) 

— 

1     (Interrupt) 

— 

Z    (Zero) 

If  the  result 

is  zero,  Z  is  set. 

C   (Carry) 

If  the  result  exceeds  $FF,  C  is  set. 

ADC  starts  with  the  number  in  the  accumulator  and  adds  to  it 
the  given  value  (which  varies  according  to  which  addressing 
mode  is  used),  plus  an  additional  0  or  1,  depending  on  the  state 
of  the  carry  flag.  Remember  to  clear  the  carry  flag  (CLC)  before 
addition  is  started.  If  you're  adding  large  numbers  (two  bytes 
or  more),  the  carry  bit  will  take  care  of  itself.  As  the  addition 
progresses  toward  higher  bytes  in  the  number,  the  carry  bit  spills 
over  into  the  next  most  significant  byte.  When  you're  adding 
multiple  bytes,  add  together  the  least  significant  first — the  low 
byte — and  proceed  to  add  the  more  significant  bytes  later. 

The  carry  flag  is  set  when  two  bytes  are  being  added  (say, 
250  and  10)  and  the  total  is  more  than  can  be  stored  in  one 
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byte  (more  than  255).  If  you're  in  binary-coded  decimal  mode 
(D  flag  set  to  1)  when  addition  occurs,  the  carry  flag  is  set  if 
the  sum  of  two  bytes  exceeds  99. 

The  result  of  addition  is  found  in  the  accumulator.  If  you 
want  to  save  this  number,  be  sure  to  STA  after  the  addition. 

AND 

Bitwise  AND:  Perform  a  bitwise  AND  between  A  and  a  value. 
Result  resides  in  .A. 


Addressing 
(Zero  page,X) 
Zero  page 
Immediate 
Absolute 
(Zero  page),Y 
Zero  page.X 
Absolute.Y 

Absolute.X 


Modes 
AND 

AND 
AND 
AND 
AND 
AND 
AND 


($E6,X) 

$22 

#$1B 

$1E5C 

($F9),Y 

$50,X 

$C493,Y 


21  E6 
25  22 
29  IB 
2D  5C  IE 
31  F9 
35  50 
39  93  C4 


AND  $3BC3,X     3D  C3  3B 


Flags 

N  (Negative)     If  bit  7  is  set,  N  flag  is  set. 

V   (Overflow)    — 


6  cycles 

3  cycles 
2  cycles 

4  cycles 

5  cycles 
4  cycles 
4  cycles 

(+1  over  a  page) 

4  cycles 

( + 1  over  a  page) 


B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  result  is  zero,  Z  is  set. 

C  (Carry)  — 

AND  performs  a  bitwise  AND.  Corresponding  bits  in  .A  and 
the  value  are  compared;  if  either  bit  is  off,  the  result  is  zero. 
Both  bits  must  be  on  for  the  resulting  bit  to  be  set. 

In  the  example,  bits  0,  6,  and  7  of  the  second  value  ($3E) 
are  off,  so  the  effect  is  that  those  bits  are  cleared  from  the 
original  number  (SAB).  To  turn  bits  on,  use  ORA. 

SAB  1010    1011 

AND  S3E    0011    1110 

S2A  0010    1010 


ASL 

Arithmetic  Shift  Left:  Shift  a  value  (accumulator  or  memory) 
to  the  left. 
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Addressing  Modes 

Zero  page 

ASLS4F                06  4F          5  cycles 

Accumulator 

ASL                      0A               2  cycles 

Absolute 

ASL  SDF01          0E  01  DF  6  cycles 

Zero  page.X 

ASL$EF,X           16  EF         6  cycles 

Absolute,X 

ASL  SAA05.X      IE  05  AA  7  cycles 

Flags 

N  (Negative) 

Bit  6  shifts  into  7  and  sets/clears  the  N  flag. 

V    (Overflow) 

— 

B    (Break) 

_ _ 

D   (Decimal) 

— 

I     (Interrupt) 

— 

Z    (Zero) 

If  bits  0-6  are  zero,  Z  is  set. 

C   (Carry) 

Bit  7  shifts  into  carry. 

ASL  causes  all  eight  bits  to  shift  one  position  to  the  left.  A 
zero  is  placed  into  bit  0,  while  bit  7  moves  into  the  cany  flag. 
In  contrast,  an  ROL  instruction  does  the  same  thing  except  that 
ROL  rotates  the  carry  flag  into  bit  0.  With  ASL,  a  zero  is  al- 
ways put  into  bit  0. 

ASL  is  often  used  to  double  a  number,  to  test  bits  with 
the  N  or  C  flag  and  branch  accordingly,  or  to  perform  a  two- 
byte  shift.  When  a  two-byte  shift  is  being  carried  out,  ASL  is 
used  with  ROL;  you  ASL  the  low  byte  and  ROL  the  high  byte. 

BCC 

Branch  if  Carry  Clear:  Branch  forward  or  backward  if  the  C 

flag  is  clear. 

Addressing  Modes 

Relative  BCC  512B4  90  A5         2  cycles 

( + 1  over  a  page) 
Flags 

N  (Negative)      — 
V    (Overflow)     — 

B    (Break)  — 

D  (Decimal)      — 

I     (Interrupt)      — 

Z    (Zero)  — 

C   (Carry)  - 

BCC  operates  off  the  carry  flag,  which  is  affected  most  often 

by  addition  and  subtraction  (ADC  and  SBC)  and  by  compares 
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(CMP,  CPX,  CPY).  As  with  the  other  branch  operations,  the 
range  is  limited  to  127  bytes  forward  or  128  bytes  backward. 

After  ADC,  a  cleared  carry  means  that  there  is  no  carry  to 
be  concerned  about.  After  SBC,  a  cleared  cany  means  there  is 
a  borrow  to  handle. 

A  compare  instruction  leaves  the  carry  bit  in  one  of  two 
states:  If  the  number  in  the  register  is  larger  than  (or  equal  to) 
the  value  being  compared,  carry  is  set.  If  the  register  is  small- 
er, carry  is  dear.  So  LDX  #$05:  CPX  $6793:  BCC  will  cause 
the  branch  to  happen  if  the  number  in  .X  is  smaller  than  the 
number  at  $6793.  If  $6793  holds  a  number  between  $06  and 
$FF,  the  BCC  will  branch  to  the  given  address. 

BCS 

Branch  if  Carry  Set:  Branch  forward  or  backward  if  the  C  flag 

is  set. 

Addressing  Modes 

Relative  BCS  $4578  BO  B2  2  cycles 

(+1  over  a  page,  + 1  if 
branch  occurs) 

Flags 

N   (Negative)     — 

V    (Overflow)     — 

B    (Break)  — 

D   (Decimal)       — 

I     (Interrupt)      — 

Z    (Zero)  — 

C   (Carry)  - 

BCS,  like  its  counterpart  BCC,  works  off  the  carry  flag.  It  is 

seen  most  often  after  addition  or  subtraction  operations  (ADC, 

SBC)  or  after  compares  (CMP,  CPX,  CPY).  As  with  the  other 

branching  instructions,  the  range  of  the  branch  is  limited  to 

127  bytes  forward  or  128  bytes  backward. 

After  ADC,  a  set  carry  indicates  that  the  result  of  the 
addition  has  exceeded  the  size  of  a  single  byte — in  other 
words,  the  result  is  greater  than  255.  After  SBC,  a  set  carry 
means  that  no  borrow  has  been  necessary  (the  result  is  be- 
tween 0  and  255). 

Following  compares,  carry  may  be  set  or  cleared.  If  the 
number  in  the  register  is  larger  than  (or  equal  to)  the  value  be- 
ing compared,  carry  is  set.  Otherwise,  cany  is  cleared  (mean- 
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ing  the  value  in  the  register  is  smaller).  So,  LDA  $FB:  CMP 
#$0A:  BCS  will  cause  branching  to  a  given  address  to  occur  if 
the  number  in  location  $FB  is  greater  than  or  equal  to  $0A 
($0A-$FF). 

BEQ 

Branch  if  EQual  to  zero.  Branches  forward  or  backward  if  the 
Z  flag  is  set. 

Addressing  Modes 

Relative  BEQ  $CE9A         FO  10  2  cycles 

(+1  over  a  page) 
Flags 

N  (Negative)     — 
V   (Overflow)    — 

B    (Break)  — 

D  (Decimal)  — 

1     (Interrupt)  — 

Z    (Zero)  — 

C   (Carry)  - 

BEQ  can  branch  up  to  127  bytes  forward  or  128  bytes  back. 
Although  most  assemblers  allow  you  to  specify  a  target  ad- 
dress or  label,  the  address  is  not  assembled.  Instead,  an  offset 
is  calculated  (numbers  $00-$7F  are  forward  branches;  $80-$FF 
are  backward). 

There  are  two  ways  in  which  the  Z  flag  may  be  set.  After 
a  load  instruction  (LDA,  LDX,  I.DY),  Z  is  set  if  the  value 
loaded  is  zero.  Other  instructions  (transfers,  addition,  and  so 
forth)  may  also  affect  the  Z  flag.  In  this  case,  the  BEQ  takes  ef- 
fect if  the  result  is  a  zero. 

After  a  compare  (CMP,  CPX,  CPY),  the  Z  flag  is  set  if  the 
register  and  value  compared  are  equal.  Here  the  BEQ  means 
"branch  if  the  two  numbers  compared  are  equal." 

BIT 

Test  memory  BITs:  AND  the  accumulator  with  memory,  with- 
out storing  the  result. 

Addressing  Modes 

Zero  page  BIT  $04  24  04  3  cycles 

Absolute  BIT  $DC01  2C  01   DC  4  cycles 
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Flags 

N  (Negative)     Bit  7  of  memory  is  copied  to  N. 
V   (Overflow)    Bit  6  of  memory  is  copied  to  V. 

B    (Break) 
D  (Decimal)      — 
I     (Interrupt)      — 

Z   (Zero)  If  the  result  of  the  AND  is  zero,  Z  is  set. 

C   (Carry)  — 

The  BIT  instruction  performs  a  bitwise  AND  between  the  accu- 
mulator and  a  specified  memory  byte.  (See  the  entry  under 
AND  for  an  explanation  and  example  of  a  bitwise  AND.)  The 
zero  flag  is  set  or  cleared  as  a  result  of  the  AND.  Unlike  the 
AND  instruction,  which  alters  the  value  in  .A,  BIT  affects  only 
the  status  register.  The  accumulator  remains  intact  after  BIT. 

Within  the  status  register,  bits  6  and  7  take  on  the 
corresponding  bit  values  of  the  specified  memory  byte.  When 
testing  these  bits,  BIT  is  generally  followed  by  BVC/BVS  or 
BMI/BPL,  causing  the  appropriate  branch. 

BIT  instructions  are  frequently  placed  in  succession  at  the 
beginning  of  a  subroutine.  Entering  the  routine  at  different 
points  causes  the  status  flags  to  take  on  different  values.  But 
more  significantly,  the  address  following  each  BIT  may  ac- 
tually be  used  as  an  opcode.  This  allows  you  to  load  different 
values  into  a  register  (A,  X,  or  Y)  or  to  carry  out  other  opera- 
tions, depending  upon  the  entry  point. 

For  example,  say  you  have  a  subroutine  where  you  want 
the  value  of  .Y  to  start  out  as  $00,  $A5,  or  $B5.  You  could  be- 
gin the  routine  with  LDY  #$00:  BIT  SA5A0:  BIT  $B5A0.  If  you 
jump  in  at  the  byte  following  the  first  BIT  instruction,  the  Y 
register  will  load  $A5  ($A5A0  is  stored  low  byte  first,  $A0 
$A5,  which  executes  as  LDY  #$A5).  The  next  BIT  instruction 
will  affect  only  the  status  register,  leaving  .Y  unchanged.  If 
you  jump  in  at  the  $B5A0  instruction,  an  LDY  #$B5  will  exe- 
cute and  fall  through  into  the  subroutine. 

BMI 

Branch  if  Minus:  Execute  a  branch  if  the  N  flag  is  set. 

Addressing  Modes 

Relative  BMI  $3CA3  30  7B         2  cycles 

(+1  over  a  page) 
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Flags 

N  (Negative)      — 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  - 

BMI  can  branch  forward  up  to  127  bytes  or  backward,  128. 
The  branch  occurs  if  the  N  (negative)  flag  is  set.  A  negative 
number  is  one  that  has  bit  7  set  and  falls  in  the  range 
$80-$FF.  A  variety  of  instructions— adds,  subtracts,  loads, 
compares — set  the  N  flag. 

BNE 

Branch  if  Not  Equal:  Branch  forward  or  backward  if  the  Z  flag 

is  clear. 

Addressing  Modes 

RelaUve  BNE  $4102  DO  3A         2  cycles 

( + 1  over  a  page.  + 1  if 
branch  occurs) 

Flags 

N  (Negative)     — 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
7.    (Zero)  — 

C   (Carry)  — 

BNE  can  branch  up  to  127  bytes  forward  or  128  bytes  back- 
ward. Assemblers  generally  calculate  this  offset  from  a  speci- 
fied target  address  or  label.  An  offset  of  $00-$7F  indicates  a 
forward  branch;  $80-$FF.  a  backward  branch. 

A  branch  with  BNE  takes  place  when  the  Z  flag  is  cleared. 
The  zero  flag  (Z)  may  be  cleared  several  ways.  It's  set  if  the 
result  of  an  operation  is  zero;  it's  cleared  if  the  result  is  not 
equal  to  zero.  After  a  load  instruction  (LDA,  LDX,  LDY),  Z  is 
cleared  if  the  value  is  nonzero.  Tranfers,  addition,  and  other 
instructions  affect  the  Z  flag  similarly.  In  these  cases,  BNE 
causes  a  branch  if  the  result  is  not  zero. 


17 


Opcodes 


Following  a  compare  (CMP,  CPX,  CPY),  the  Z  flag  is 
cleared  if  the  register  and  value  are  different.  Here  the  BNE 
means  "branch  if  the  two  numbers  compared  are  not  equal." 

BNE  often  follows  a  decrement  instruction  i  DL.Y  DEY)  at 
the  end  of  a  loop.  The  loop  continues  its  operation  as  long  as 
the  Z  flag  is  cleared. 

BPL 

Branch  if  PLus:  Branch  forward  or  backward  if  the  negative 
flag  is  clear. 

Addressing  Modes 

Relative  BPL  S959F  10  DE         2  cycles 

( + 1  over  a  page) 

Flags 

N  (Negative)      — 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z    (Zero)  — 

C   (Carry)  — 

BPL  branches  if  previous  instructions  have  cleared  the  neg- 
ative flag.  Although  you  usually  specify  an  address  or  target, 
BPL  assembles  into  the  instruction  plus  an  offset — forward 
0-127  bytes  ($00-$ 7F)  or  backward  1-128  bytes  ($FF-$80). 

BPL  is  commonly  used  in  loops  where  .X  or  .Y  starts  out 
with  a  positive  value  (0-127),  and  then  DEY  or  DEX  counts 
down  to  zero.  Zero  is  a  positive  number,  so  the  BPL  loop 
continues  until  a  final  decrement  wraps  around  to  $FF,  which 
is  negative. 

BRK 

BReaK:  Causes  a  forced  interrupt. 

Addressing  Modes 

Implied  BRK  00  7  cycles 

Flags 

N  (Negative)     — 

V  (Overflow)    — 

B    (Break)  Set  to  1 
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D  (Decimal)  — 

I  (Interrupt)  Set  to  1 

Z  (Zero) 

C  (Carry)  - 

BRK  halts  the  ML  program,  saving  the  contents  of  the  pro- 
gram counter  and  the  status  register  (with  B  and  I  set)  to  the 
stack.  Following  this,  it  jumps  to  the  service  routine  at  SFFFE. 

The  service  routine  itself  points  to  a  routine  at  $FF48 
($FF17  on  the  128),  which  checks  for  the  B  flag.  Finding  it  set, 
it  jumps  through  the  BRK  vector  at  $0316. 

Normally,  this  vector  points  to  a  BASIC  warm  start  (on 
the  64).  Many  ML  monitors,  including  Micromon  and 
Supermon,  substitute  in  this  vector  the  address  of  their  own 
initialization  routine,  designed  to  print  the  contents  of  the  pro- 
gram counter,  data,  and  status  registers.  When  a  BRK  is  en- 
countered, the  monitor  is  enabled,  and  the  current  status  of 
the  registers  is  printed.  On  the  128,  the  vector  points  to  the 
built-in  machine  language  monitor. 

BVC 

Branch  if  overflow  Clear:  Branch  (relative)  if  the  V  flag  is 

clear. 

Addressing  Modes 

Relative  BVC  $2235  50  64  2  cycles 

( +  1  over  a  page) 

Flags 

N  (Negative)  — 
V   (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z   (Zero)  — 

C   (Carry)  — 

The  V  (overflow)  flag  is  important  only  when  you're  using 
signed  arithmetic.  Since  adding  $FF  to  $06  results  in  $05  (plus 
a  set  carry),  the  number  $FF  acts  like  a  - 1.  $FE  is  -2,  $FD  is 
—3,  and  so  on.  Within  signed  arithmetic,  the  negative  num- 
bers include  $80-$FF  (128  through  255  or  -128  through  -1), 
the  positive  numbers  $00-$7F  (0-127). 
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With  unsigned  arithmetic  (numbers  0-255),  the  carry  flag, 
C,  indicates  when  an  overflow  has  occurred:  numbers  larger 
than  256  or  smaller  than  0.  In  signed  arithmetic  (numbers 

128  through  127),  an  overflow  happens  when  the  result  is 
larger  than  127  or  smaller  than  - 128.  The  V  flag  is  set  when 
there's  an  overflow  from  bit  6  to  bit  7.  BVC  enables  you  to 
branch  forward  or  backward  based  on  the  current  state  of  V. 

BVS 

Branch  if  oVerflow  Set:  Branch  (relative)  if  the  V  flag  is  set. 

Addressing  Modes 

Relative  BVS  SB  IDE  70    9F  2  cycles 

( -f  1  over  a  page,  + 1  if 
branch  occurs) 

Flags 

N  (Negative)      — 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

1  (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  - 

BVS  acts  on  a  set  overflow  (V)  flag,  branching  as  many  as  127 
bytes  forward  or  128  backward. 

The  V  flag  is  used  primarily  for  work  in  signed  arithmetic 
(with  numbers  ranging  from  -  128  through  127).  Here,  bit  7 
holds  the  sign  of  the  number.  Positive  values  run  from  $00 
through  $7F  (0  through  127);  negative  numbers  from  $80 
through  $FF  (128  through  255  or  -128  through  -1). 

Prior  to  the  addition  or  subtraction  of  two  signed  num- 
bers, V  is  usually  cleared  with  CI.V.  If  overflow  occurs  from 
bit  6  to  7  as  a  result  of  the  operation,  it  means  a  number 
larger  than  127  or  smaller  than  —128  has  been  generated.  The 

V  flag  is  set  to  indicate  that  a  sign  change  has  occurred.  A 
BVS  instruction,  which  generally  follows,  will  then  direct  the 
program  to  branch  accordingly. 

BVS  is  also  used  after  BIT  when  bit  6  of  a  specified  value 
is  being  tested. 
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CLC 

CLear  Carry:  Clear  the  carry  flag. 

Addressing  Modes 

Implied  CLC  IB  2  cycles 

Flags 

N  (Negative)      — 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)       — 

I     (Interrupt)      — 

Z   (Zero)  — 

C   (Carry)  Sets  C  to  zero. 

CLC  clears  the  carry  flag,  which  is  necessary  for  the  ADC 

(ADd  with  Carry)  instruction  to  work  properly.  It  may  also  be 

used  to  force  a  branch.  In  the  absence  of  a  branch-always 

instruction,  CLC:  BCC  will  suffice.  The  carry  flag  also  affects 

rotates  (ROL  and  ROR). 

CLD 

CLear  Decimal  mode:  Turns  off  binary-coded  decimal  (BCD) 

mode. 

Addressing  Modes 

Implied  CLD  D8  2  cycles 

Flags 

N  (Negative)     — 

V  (Overflow)     — 

B    (Break) 

D  (Decimal)       Set  to  zero. 

I     (Interrupt)      — 

Z    (Zero)  — 

C   (Carry)  — 

CLD  is  used  to  restore  the  computer  to  its  normal  binary 

mode,  typically  after  some  BCD  operation  has  been 

performed. 

While  decimal  mode  is  in  effect  (entered  with  SED),  bytes 
can  range  in  value  from  0  through  99,  and  nybbles  from  0 
through  9.  To  carry  out  a  decimal  calculation,  execute  an  SED, 
do  the  math,  and  restore  binary  mode  with  CLD. 
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CXI 

CLear  Interrupt  flag:  Reenable  maskable  (IRQ)  interrupts. 

Addressing  Modes 

Implied  CLI  58  2  cycles 

Flags 

N  (Negative)      — 

V  (Overflow)    — 

B    (Break)  — 

D  (Decimal)      — 

I     (Interrupt)     Sets  I  to  zero. 

Z    (Zero)  — 

C   (Carry)  — 

Interrupt  requests  (IRQs)  occur  60  times  per  second  (50  times 

per  second  on  most  European  64s  and  128s).  The  interrupt 

routine  is  called,  and  various  housekeeping  chores  such  as 

checking  the  keyboard  and  updating  the  jiffy  clock  are  then 

performed.  There  are  several  other  sources  of  interrupts  as 

well. 

In  some  cases,  it's  necessary  to  disable  interrupts  to  fore- 
stall the  possibility  that  an  IRQ  will  happen.  This  is  especially 
important  in  situations  where  a  wedge  is  being  installed  or  when 
character  ROM  is  being  read.  The  5EI  instruction  sets  the 
interrupt  flag  to  disable  IRQs.  CLI  turns  interrupts  back  on. 

Note  that  the  state  of  the  I  flag  does  not  affect 
nonmaskable  interrupts  (NMIs). 

CLV 

CLear  oVerflow:  Clear  the  overflow  flag. 

Addressing  Modes 

Implied  CLV  B8  2  cycles 

Flags 

N  (Negative)     — 

V  (Overflow)     Set  to  zero. 

B    (Break)  — 

D  (Decimal)  — 
1  (Interrupt)  — 
Z    (Zero)  — 

C   (Carry)  — 

CLV  clears  the  overflow  flag  (V)  to  zero,  typically  before  an 
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operation  involving  signed  arithmetic.  Signed  arithmetic  han- 
dles numbers  from  — 128  through  127.  The  negative  numbers 
are  $80-$FF  (128  through  255  or  -128  through  -1);  the  pos- 
itive numbers  are  $00-$7F  (0-127). 

When  a  number  changes  sign  in  signed  arithmetic,  an 
overflow  occurs  from  bit  6  to  bit  7  in  the  result,  setting  V.  Fre- 
quently, at  this  point — perhaps  after  a  BVS — a  CLV  is  used  to 
clear  the  flag. 

CLV  is  sometimes  used  along  with  BVC  to  carry  out  a 
"branch  always"  (such  as  CLV:  BVC). 

CMP 


CoMPare:  Compare  the  number  in  .A  with  a  value. 

Addressing  1 

vlodes 

(Zero  page.X) 

CMP  ($6B,X) 

CI  6B          6  cycles 

Zero  page 

CMP  $55 

C5  55          3  cycles 

Immediate 

CMP  #$30 

C9  30          2  cycles 

Absolute 

CMP  $1CA8 

CD  A8  1C   4  cycles 

(Zero  page),Y 

CMP  ($F1),Y 

Dl  Fl           5  cycles 

(+1  over  a  page) 

Zero  page,X 

CMP  $10,X 

D5  10           4  cycles 

Absolute.Y 

CMP  $1EFC,Y 

D9  FC  IE    4  cycles 

(  +  1  over  a  page) 

Absolute,X 

CMP  $9500.X 

DD  00   95    4  cycles 

( +  1  over  a  page) 

Flags 

N  (Negative) 


If  .A  minus  the  value  is  $80-$ FF  (or  -128 
through  —  1),  N  is  set. 
(Overflow)     — 


B 

D 

I 

Z 

C 


(Break) 

(Decimal) 

(Interrupt) 

(Zero) 

(Carry) 


If  .A  equals  the  value,  Z  is  set. 

If  .A  is  greater  than  or  equal  to  the  value,  C  is 

set. 


CMP  compares  the  accumulator  value  with  another  number 
by  subtracting  the  value  from  .A.  The  two  values  are  not 
changed,  and  the  result  is  thrown  away.  The  operation  does 
set  three  flags,  however. 

A  very  common  use  of  CMP  is  to  look  for  a  specific 
value— CMP  #$30:  BEQ,  for  example.  If  .A  holds  a  $30,  the 
result  of  subtracting  $30  is  zero,  and  the  Z  flag  will  be  set  The 
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BEQ  then  branches  on  if  equal  to  zero.  If  the  two  numbers  are 
not  equal,  the  branch  will  not  occur. 

Another  way  to  use  CMP  is  to  look  for  numbers  within  a 
certain  range.  If  the  number  in  .A  is  greater  than  or  equal  to 
the  number  being  compared,  the  carry  flag  will  be  set.  (See 
SBC  for  a  discussion  of  how  the  C  flag  is  used  in  subtraction.) 
If  .A  is  less  than  the  value,  the  C  flag  will  be  cleared.  You  can 
then  use  BCS  or  BCC  to  branch  to  the  appropriate  location. 

CPX 

ComPare  .X:  Compare  .X  with  a  value. 

Addressing  Modes 

Immediate  CPX  #$A9  EO  A9  2  cycles 

Zero  page  CPX  $1F  E4    IF  3  cycles 

Absolute  CPX  $3002  EC  02  30    4  cycles 

Flags 

N  (Negative)     If  .X  minus  the  value  is  $80-$FF,  N  is  set. 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)      — 

I     (Interrupt)     — 

Z   (Zero)  If  .X  equals  the  value,  Z  is  set. 

C   (Carry)  If  .X  is  greater  than  or  equal  to  the  value,  C  is 

set. 
CPX  subtracts  the  value  from  .X,  discarding  the  result.  In  the 
process,  three  flags  are  set,  based  on  the  result  of  the  subtrac- 
tion. In  most  cases,  CPX  is  used  along  with  a  branch  instruc- 
tion operating  on  the  N,  Z,  or  C  flag. 

CPY 

ComPare  .Y:  Compare  .Y  with  a  value. 
Addressing  Modes 

Immediate  CPY  «$16  CO  16  2  cycles 

Zero  page  CPY  $F0  C4  F0  3  cycles 

Absolute  CPY  SC020  CC  20  CO   4  cycles 

Flags 

N  (Negative)     If  .Y  minus  the  value  is  $80-$FF,  N  is  set. 

V  (Overflow)    — 

B    (Break)  — 

D  (Decimal)      — 
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I     (Interrupt)     — 

Z    (Zero)  If  .Y  equals  the  value,  Z  is  set. 

C   (Carry)  If  .Y  is  greater  than  or  equal  to  the  value,  C  is 

set. 
CPY  performs  the  operation  .Y  minus  value,  without  storing 
the  result  anywhere.  The  N,  Z,  and  C  flags  are  based  on  the 
result  of  the  subtraction.  CPY  is  most  often  used  in  conjunc- 
tion with  a  branch  instruction,  especially  in  loops. 


DEC 

DECrement:  Subtract  one  from  a  value. 
Addressing  Modes 
Zero  page  DEC  $14 

DEC  $4707 

DEC  $30,X 

DEC  $5F02,X 


Absolute 
Zero  page.X 

Absolute, X 

Flags 

N  (Negative) 
V    (Overflow) 


C6  14 
CE  07 
D6  30 
DE  02 


47 


5F 


5  cycles 

6  cycles 

6  cycles 

7  cycles 


If  the  result  is  negative  ($80-$FF),  N  is  set. 


B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z   (Zero)  if  the  value  holds  a  $01  and  it  counts  to  $00,  Z 

is  set. 
C   (Carry)  — 

DEC  decrements  the  contents  of  the  specified  byte  by  one,  set- 
ting the  N  and  Z  flags  based  on  the  result.  After  counting 
down  to  zero,  the  next  DEC  yields  a  255  (a  negative  number). 
For  this  reason,  DEC  is  almost  always  used  in  loops  which 
count  down  to  zero  (Z  is  set)  or  to  one  past  zero  (N  is  set). 

DEX 

DEcrement  .X:  Subtract  one  from  the  value  in  the  X  register. 

Addressing  Modes 

Implied  DEX  CA  2  cycles 

Flags 

N  (Negative)     If  the  result  is  negative  ($80-$FF),  N  is  set. 

V    (Overflow)     — 

B    (Break)  — 

D   (Decimal)       — 
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I     (Interrupt)     — 

Z   (Zero)  If  .X  holds  a  $01  and  it  counts  to  $00,  Z  is  set. 

C   (Carry)  - 

DEX  is  used  most  often  within  loops  that  count  from  a  given 

value  down  to  zero  or  one  past  zero  (255).  If  .X  holds  a  zero, 

DEX  causes  it  to  wrap  around  to  255. 

DEY 

DEcrement  .Y:  Subtract  one  from  the  value  in  the  Y  register. 

Addressing  Modes 

Implied  DEY  88  2  cycles 

Flags 

N  (Negative)      If  the  result  is  negative  ($80-$FF),  N  is  set. 
V    (Overflow)     — 

B    (Break)  — 

D   (Decimal)        — 
I     (Interrupt)      — 

Z    (Zero)  If  .Y  holds  a  $01  and  it  counts  to  $00,  Z  is  set. 

C   (Carry)  - 

In  its  application,  DEY  is  similar  to  DEX.  Like  DEX,  it's  fre- 
quently found  in  counting  loops  that  decrement  to  zero  or  to 
one  past  zero. 

EOR 

Exclusive  OR:  Perform  a  bitwise  F.OR  between  the  accu- 
mulator and  a  value.  The  result  is  stored  in  the  accumulator. 


Addressing  1 

Modes 

(Zero  page,X) 

EOR  ($EB,X) 

41 

EB 

6  cycles 

Zero  page 

EOR  $E9 

45 

E9 

3  cycles 

Immediate 

EOR  *$93 

49 

93 

2  cycles 

Absolute 

EOR  $8DA2 

4D 

A2  8D 

4  cycles 

(Zero  page),Y 

EOR  ($C2),Y 

51 

C2 

5  cycles 

(  +  1  over  a  page) 

Zero  page.X 

EOR  $2B,X 

55 

2B 

4  cycles 

Absolute.Y 

EOR  SCF88.Y 

59 

88   CF 

4  cycles 

(+1  over  a  page) 

Absolute,X 

EOR  $53E8,X 

5D 

E8  53 

4  cycles 

( + 1  over  a  page) 
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Flags 

N   (Negative)      If  the  result  is  $80-$FF,  N  is  set. 

V  (Overflow)    — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  the  result  is  zero,  Z  is  set. 

C  (Carry)  - 

EOR  is  a  bitwise  operation  like  AND  and  ORA.  It  compares 
the  bits  in  the  accumulator  with  a  value  from  memory  and 
sets  the  resulting  bits  according  to  the  logic  of  exclusive  OR, 
which  is  one  or  the  other,  but  not  both.  A  one  and  a  zero  result 
in  a  bit  that's  set.  But  if  both  are  zeros  or  both  are  ones,  the 
result  is  a  zero: 

$6E  0110  1110 
S16  0001  0110 
$78  0111  1000 

In  the  example  note  that  where  bits  are  set  in  $16  (bits  1, 
2,  and  4),  the  corresponding  bits  in  $6E  are  flipped.  If  you 
EOR  a  given  bit  with  zero,  the  result  is  no  change.  But  if  you 
EOR  with  one,  a  zero  becomes  a  one,  and  a  one  becomes  a  zero. 

EOR's  primary  uses  are  in  flipping  specific  bits  of  a  mem- 
ory location  or  register,  and  in  encryption.  If  you  EOR  with  a 
specific  number  and  then  EOR  with  the  same  number,  you  get 
back  the  original  value.  This  property  makes  EOR  valuable  for 
encoding  and  decoding. 

INC 

INCrement:  Add  one  to  a  value. 

Addressing  Modes 

Zero  page 

Absolute 

Zero  page.X 

Absolute.X 

Flags 

N  (Negative) 

V  (Overflow) 


INC  $2F 
INC  $BC0B 
INC  $24,X 
INC  $BFFF,X 


E6 
EE 
F6 
FE 


2F 
0B 
24 
FF 


BC 


BF 


5  cycles 

6  cycles 

6  cycles 

7  cycles 


If  the  result  is  negative  ($80-SFF),  N  is  set. 


B    (Break)  — 

D   (Decimal)       — 
I     (Interrupt)     — 
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Z   (Zero)         If  the  value  holds  an  $FF  and  it  counts  to  $00, 

Z  is  set. 
C   (Carry)       - 

INC  adds  one  to  a  memory  location,  almost  invariably  a  counter 
byte.  If  the  byte  holds  a  255  ($FF),  it  wraps  around  to  zero. 
This  makes  it  ideal  for  loops  where  the  X  and  Y  registers  are 
already  being  used  (thus  precluding  use  of  INX  and  INY). 

INX 

INcrement  .X:  Add  one  to  the  value  in  .X. 

Addressing  Modes 

Implied  INX  E8  2  cycles 

Flags 

N  (Negative)     If  the  result  is  between  $80  and  IFF,  the  N  flag 
is  set. 

V  (Overflow)    — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z    (Zero)  If  .X  counts  from  $FF  through  $00,  the  Z  flag  is 

set. 
C   (Carry)  -' 

INX  adds  one  to  the  value  in  the  X  register.  If  .X  currently 
holds  a  255  ($FF),  the  value  wraps  around  to  zero.  INX  is 
usually  found  inside  loops  that  count  forward,  where  .X  may 
be  involved  in  an  indexed  load  or  store. 

INY 

INcrement  .Y:  Add  one  to  the  value  in  .Y. 

Addressing  Modes 

Implied  INY  C8  2  cycles 

Flags 

N  (Negative)     If  the  result  is  $80-$FF,  the  N  flag  is  set. 

V  (Overflow)    — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .Y  counts  from  $FF  to  $00,  the  Z  flag  is  set. 

C  (Carry)  - 
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INY  adds  one  to  the  Y  register,  causing  it  to  turn  over  to  zero 
when  255  ($FF)  is  reached.  As  with  INX,  this  makes  it  ideal 
for  loops  branching  on  the  N  or  Z  flag. 

JMP 

JuMP:  Jump  to  a  given  address. 

Addressing  Modes 

Absolute  JMPS6299  4C  99   62    3  cycles 

(Absolute)  JMP($0E08)        6C  08  OE    5  cycles 

Flags 

N  (Negative)  — 
V    (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z   (Zero)  — 

C   (Carry)  - 

JMP  changes  the  value  in  the  program  counter;  the  next 
instruction  to  be  executed  will  come  from  the  address  pro- 
vided. JMP  is  the  ML  equivalent  of  BASIC'S  GOTO. 

An  absolute  jump  just  moves  to  the  address  indicated.  An 
indirect  jump — JMP  ($060C),  for  example — loads  the  two-byte 
address  from  the  given  vector  and  jumps  there.  If  $060C  con- 
tains a  $D2  and  $060D  has  an  $FF,  the  indirect  jump  will 
combine  the  low  byte  and  the  high  byte  and  go  to  $FFD2. 

Because  of  a  bug  in  the  6502,  you  should  avoid  putting 
indirect  jumps  directly  into  a  program  that  assembles  to 
unknown  memory  locations.  If  the  vector  falls  on  a  page 
boundary  (say,  $08FF-$0900),  the  low  byte  will  be  loaded 
from  $08FF  as  expected,  but  the  high  byte  will  come  from 
$0800,  not  from  $0900.  In  a  case  like  this,  there's  no  telling 
where  the  indirect  jump  will  go.  The  best  policy  is  to  put  vec- 
tors at  known  addresses. 

Many  64  and  128  routines  use  indirect  jump  vectors  in 
RAM.  Most  are  found  in  page  3  ($0300-$03FF). 

JSR 

Jump  to  SubRoutine:  Jump  to  a  given  address,  saving  the  re- 
turn address. 
Addressing  Modes 
Absolute  JSRS6E01  20    01    6E    6  cycles 
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Flags 

N  (Negative)     — 
V   (Overflow)     — 

B    (Break)  — 

D  (Decimal)      — 

I     (Interrupt)      — 

Z    (Zero)  — 

C   (Carry)  - 

JSR  changes  the  program  counter  to  the  address  specified.  A 

return  address,  pointing  to  the  instruction  following  the  JSR,  is 

left  on  the  stack.  GOSUB  is  the  BASIC  equivalent  of  JSR. 

JSR  is  used  primarily  when  a  section  of  code  is  used 
repeatedly  in  a  program.  Rather  than  the  code  being  replicated 
each  time  it's  needed,  it's  set  apart  from  the  main  program  as 
a  subroutine,  typically  ending  with  RTS  and  called  with  JSR. 

To  speed  up  your  program  a  little  and  save  a  byte  of 
memory,  you  may  replace  any  JSR  followed  directly  by  an 
RTS  with  a  JMP  instruction.  For  example,  instead  of  JSR 
$FFD2:  RTS,  you  may  use  JMP  $FFD2— in  effect,  borrowing 
the  RTS  at  the  end  of  the  $FFD2  routine. 


LDA 

I.oaD  the  Accumulator:  Put  a  value  into  .A. 

Addressing  Modes 

(Zcropage,X)      LDA  ($7B,X)        Al  7B  6  cycles 

Zero  page  LDA  $77  A5  77  3  cycles 

Immediate  LDA  #$02  A9  02  2  cycles 

Absolute  LDA  $DBC2         AD  C2  DB  4  cycles 

(Zeropage).Y      LDA  ($DF),Y       Bl   DF         5  cycles 

( + 1  over  a  page) 
Zeropage.X        LDA  $6D,X  B5  6D         4  cycles 

Absolutc.Y  LDA$0AEF,Y      B9  EF  0A  4  cycles 

(+1  over  a  page) 
Absolute.X  LDA  $3D77  BD  77   3D   4  cycles 

(+1  over  a  page) 
Flags 

N  (Negative)     If  the  value  is  negative  (S80-$FF),  N  is  set. 
V   (Overflow)     — 


B    (Break)  — 

D  (Decimal)       — 
1     (Interrupt)      — 
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Z    (Zero)  If  the  value  is  a  zero,  Z  is  set. 

C   (Carry)  — 

I.DA  is  one  of  the  most  widely  used  instructions.  It  loads  a 
number  from  memory  into  the  accumulator.  (Immediate  mode 
loads  a  specified  number  into  .A;  in  this  case,  the  number  is 
part  of  the  program,  following  immediately  after  the  $A9 
opcode.) 

Usually,  the  value  loaded  is  soon  stored  into  memory 
with  5TA,  although  it  may  also  be  used  in  a  math  operation 
like  ADC,  AND,  EOR,  ORA,  SBC,  or  the  like. 


LDX 

Ix>aD  .X:  Load  a  value  into  the  X  register. 

Addressing  Modes 

Immediate 
Zero  page 
Absolute 
(Zero  page).Y 
Absolute.Y 

Flags 

N  (Negative) 

V   (Overflow) 


LDX  #$BB 
LDX  $7 A 
LDX  SA808 
LDX  ($FD),Y 
LDX  S3F09.Y 


A2  BB 
A6  7A 
AE08 
B6  FD 
BE  09 


A8 


3F 


2  cycles 

3  cycles 

4  cycles 
4  cycles 
4  cycles 
( + 1  over  a  page) 


If  the  value  is  $80-$FF,  N  is  set. 


If  .X  is  loaded  with  a  zero,  Z  is  set. 


B    (Break) 

D  (Decimal) 

I     (Interrupt) 

Z    (Zero) 

C   (Carry) 

LDX  loads  a  specific  value  into  the  X  register.  Common  uses 

are  in  transferring  data  from  temporary  locations  or  onto  the 

stack  (LDX:  TXS),  in  initializing  counter  loops,  or  in  setting  up 

an  offset  for  indexed  addressing. 


LDY 

LoaD  .Y:  Load  a  value  into  the  Y  register. 

Addressing 

Modes 

Immediate 

LDY  #$A5 

A0  A5          2  cycles 

Zero  page 

LDY  $12 

A4  12          3  cycles 

Absolute 

LDY  S0BF5 

AC  F5  OB    4  cycles 

Zero  page,X 

LDY  $39,X 

B4  39          4  cycles 

Absolute,X 

LDY$133B,X 

BC  3B  13    4  cycles 

( + 1  over  a  page) 
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Flags 

N  (Negative)      If  the  value  is  $80-$FF,  N  is  set. 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .Y  is  loaded  with  a  zero,  Z  is  set. 

C  (Carry)  — 

The  LDY  instruction  puts  a  given  number  into  the  Y  register. 
Most  often,  you'll  see  immediate  addressing  in  preparation  for 
a  loop  indexed  by  .Y.  Either  .Y  is  loaded  with  zero  (for  a  loop 
that  counts  forward  with  INY)  or  with  a  specific  number  (for  a 
loop  that  counts  down  with  DEY). 

LSR 

Logical  Shift  Right:  Shift  a  value  (accumulator  or  memory)  to 
the  right. 

Addressing  Modes 

Zero  page           LSR  $A3  46    A3          5  cycles 

Accumulator        LSR  4 A                 2  cycles 

Absolute               LSR  SCA06  4E   06   CA  6  cycles 

Zero  page.X        LSR  $DD,X  56    DD         6  cycles 

Absolute,X          LSR$5D02,X  5E  02  5D   7  cycles 

Flags 

N  (Negative)     Set  to  zero. 

V  (Overflow)     — 

B    (Break)  — 

D   (Decimal)       — 

I     (Interrupt)      — 

Z    (Zero)  If  the  value  is  $01  or  $00,  Z  is  set. 

C   (Carry)  Bit  0  shifts  into  carry  and  sets/clears  the  C  flag. 

The  LSR  instruction  shifts  all  eight  bits  one  position  to  the 

right,  placing  a  zero  in  bit  7  and  moving  bit  0  into  the  cany 

flag. 

A  frequent  application  of  LSR  is  to  test  bit  0  and  branch 
accordingly  (LSR:  BCS/BCC).  But  LSR  probably  finds  its 
greatest  use  in  certain  mathematical  manipulations:  converting 
negative  numbers  to  positive  (LSR:  ROL),  dividing  bytes  by  2 
with  the  remainder  placed  in  C,  and  shifting  the  high  nybble 
of  a  byte  into  the  low  nybble  (LSR:  LSR:  LSR:  LSR). 
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NOP 

No  OPeration:  Do  nothing. 

Addressing  Modes 
Implied  NOP 

Flags 

N  (Negative)     — 
V   (Overflow)     — 


EA 


2  cycles 


B    (Break)  — 

D  (Decimal)  — 
1  (Interrupt)  — 
Z    (Zero)  — 

C   (Carry)  - 

After  a  NOP,  the  values  in  memory,  the  numbers  in  the  reg- 
isters, and  the  status  flags  remain  the  same.  The  program 
counter  advances  by  one.  NOP  is  sometimes  used  to  remove 
part  of  a  program.  If  three  bytes  hold  a  JSR  instruction,  you 
can  POKE  NOPs  on  top  of  the  memory  there,  and  the  pro- 
gram will  not  execute  the  JSR.  NOPs  are  also  found  in  delay 
loops  where  the  timing  is  finely  tuned. 

ORA 

Bitwise  OR:  Perform  a  bitwise  OR  between  .A  and  a  value, 
storing  the  result  in  .A. 


Addressing  Modes 

(Zero  page.X) 

ORA  ($1B,X) 

01    IB 

6  cycles 

Zero  page 

ORA  $68 

05    68 

3  cycles 

Immediate 

ORA  #$3F 

09    3F 

2  cycles 

Absolute 

ORA  SBA03 

0D  03    BA 

4  cycles 

(Zero  page),Y 

ORA  ($4C),Y 

11    4C 

5  cycles 

Zero  page.X 

ORA  S63.X 

15    63 

4  cycles 

AbsoIute,Y 

ORA  $4E0F,Y 

19    OF   4E 

4  cycles 

( + 1  over  a  page) 

Absolute,X 

ORA  $2A0B,X 

ID  OB   2A 

4  cycles 

(  +  1  over  a  page) 

Flags 

N  (Negative) 

If  bit  7  is  set. 

the  N  flag 

is  set. 

V   (Overflow) 

^— 

B    (Break) 

— 

D   (Decimal) 

— 

I     (Interrupt) 

— 
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Z    (Zero)         If  the  result  is  zero,  Z  is  set. 
C   (Cany)        - 

ORA  performs  a  bitwise  OR  on  a  value.  Corresponding  bits  in 
.A  and  the  value  are  compared.  If  either  bit  is  on,  the  result 
is  one. 

For  instance,  to  turn  on  bits  0  and  1  in  SBC,  you  would 
ORA  with  $03: 

SBC  1011  1100 
$03  0000  0011 
$BF  1011  1111 

To  rum  certain  bits  off,  use  AND. 

PHA 

PusH  .A:  Push  the  current  value  of  the  accumulator  onto  the 
stack.  The  accumulator  is  not  changed.  The  stack  pointer  de- 
creases by  one. 

Addressing  Modes 

Implied  PHA  48  3  cycles 

Flags 

N  (Negative)  — 
V   (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z    (Zero)  — 

C    (Carry)  — 

PHA  pushes  .A  onto  the  stack.  No  flags  are  affected.  A  com- 
mon use  for  PHA  is  to  temporarily  save  the  number  in  the 
accumulator.  You  push  it,  do  something  else,  then  pull  it  back. 
Another,  more  sophisticated  technique  is  to  push  two  values 
onto  the  stack  and  then  execute  an  RTS.  RTS  returns  from  a 
subroutine  to  the  original  program  that  called  the  subroutine. 
It  does  so  by  pulling  the  program  counter  (minus  one)  from 
the  stack.  If  PHA  has  put  a  valid  address  on  the  stack,  RTS 
will  return  to  the  address  you  have  provided.  Push  the  high 
byte  first,  then  the  low  byte  of  the  address  (minus  one)  of  the 
routine  you  wish  to  call. 
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PHP 

PusH  Processor  status  register:  Push  the  value  in  the  proces- 
sor's status  register  onto  the  stack.  The  stack  pointer  decreases 
by  one. 

Addressing  Modes 

Implied  PHP  06  3  cycles 

Flags 

N  (Negative)      — 

V  (Overflow)    — 

B    (Break)  — 

D  (Decimal)      — 

I     (Interrupt)      — 

Z    (Zero)  — 

C    (Carry)  - 

PHP  stores  the  contents  of  the  status  register  on  the  stack, 

affecting  no  flags.  The  processor  status  register  (P)  contains  all 

the  flags  (N,  V,  B,  D,  I,  Z,  and  Q. 

PHP  is  the  complementary  instruction  to  PLP,  which  pulls 
a  stack  byte  into  the  status  register.  When  status  bits  are  being 
tested,  PHP  and  PLP  are  often  found  in  tandem,  especially 
when  intervening  instructions  are  apt  to  affect  these  bits. 

For  instance,  suppose  you  wished  to  branch,  based  on  the 
N  flag  following  a  particular  instruction,  but  operations  that 
affect  the  status  flag  are  necessary  prior  to  the  branch.  To  pre- 
serve the  status  register  for  later  testing,  you  would  push  it 
onto  the  stack  with  PHP,  proceed  with  the  interfering  opera- 
tions, and  then  restore  it  with  PLP  just  before  the  branch. 

When  using  this  approach,  remember  not  to  use  other 
stack-oriented  instructions  like  JSR,  RTS,  or  RTI  before  the 
PLP  has  executed. 

PLA 

PuU  .A:  Pull  a  value  from  the  stack  into  the  accumulator. 

Addressing  Modes 

Implied  PLA  68  4  cycles 

Flags 

N  (Negative)     If  the  number  is  negative,  N  is  set  to  one. 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)      — 
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I    (Interrupt)     — 

Z    (Zero)  If  a  zero  is  pulled,  Z  is  set. 

C    (Carry)  - 

PLA  pulls  values  off  the  stack.  It  is  the  opposite  of  PHA, 
which  pushes  numbers  there.  After  the  PLA,  the  stack  pointer 
is  increased  by  one. 

PHA  and  PLA  are  useful  for  temporarily  storing  the  cur- 
rent status  of  the  accumulator.  You  push  a  value  onto  the 
stack,  perform  some  other  operation,  and  then  pull  it  back  into 
.A.  However,  you  should  be  careful  that  you  don't  perform 
other  stack-oriented  operations  such  as  JSR,  RTS,  or  RTI,  in 
the  meantime. 

PHA  and  PLA  can  also  be  used  to  set  up  and  destroy  ad- 
dresses for  RTS.  You  may  JSR  to  a  routine  only  to  find  that  (in 
special  cases)  it's  not  necessary  to  RTS  back  to  the  calling  rou- 
tine. Two  PLAs  will  remove  the  return  address  from  the  stack. 
(JSR  pushes  the  return  address  minus  one  onto  the  stack,  high 
byte  first,  and  RTS  pulls  the  two  bytes.) 

PLP 

PuLl  Processor  status  register:  Pull  a  value  from  the  stack  into 

the  processor's  status  register. 

Addressing  Modes 

Implied  PLP  28  4  cycles 

Flags 

N  (Negative)     If  the  number  is  negative,  N  is  set. 

V   (Overflow)    If  bit  6  is  on,  V  is  set. 

B    (Break)  If  bit  4  is  on,  B  is  set. 

D  (Decimal)      If  bit  3  is  on,  D  is  set. 
I     (Interrupt)     If  bit  2  is  on,  I  is  set. 
Z    (Zero)  If  bit  1  is  on,  Z  is  set. 

C   (Carry)  If  bit  0  is  on,  C  is  set. 

PLP  takes  a  byte  from  the  stack,  placing  it  in  the  status  reg- 
ister. The  stack  pointer  increments  by  one. 

PLP  is  the  opposite  of  PHP,  which  pushes  the  contents  of 
the  status  register  onto  the  stack.  These  two  are  frequently 
used  together,  much  like  PHA/PLA. 

PLP's  role  in  this  arrangement  is  to  retrieve  the  status  reg- 
ister after  it  has  been  pushed  onto  the  stack  with  PHP.  Typi- 
cally in  this  situation  a  branching  instruction  will  follow. 
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ROL 

ROtate  Left:  Rotate  a  value  (accumulator  or  memory)  to  the 
left. 

Addressing  Modes 
Zero  page  ROL  $3A 


Accumulator 
Absolute 
Zero  page,X 
Absolute,  X 

Flags 

N  (Negative) 
V    (Overflow) 


ROL 

ROL  S8FA6 
ROL  $46,X 
ROL  S0EFB,X 


2b 

2A 

2E 

36 

3E 


3A 

A6  8F 
46 
FB  OE 


5  cycles 
2  cycles 

6  cycles 

6  cycles 

7  cycles 


Bit  6  rotates  into  7  and  sets/clears  the  N  flag. 


15 
D 
i 
7 

c 


(Break) 

(Decimal) 

(Interrupt) 

(Zero) 

(Carry) 


If  carry  is  clear  and  bits  0-6  are  zero,  Z  is  set. 

Bit  7  rotates  into  carry. 
ROL  causes  all  eight  bits  to  rotate  one  position  to  the  left.  The 
carry  flag  moves  into  bit  0,  and  bit  7  moves  into  the  carry  flag. 
ROL  is  most  commonly  used  in  two-byte  shifts:  You  ASL  the 
low  byte  and  ROL  the  high  byte. 

ROR 

ROtate  Right:  Rotate  a  value  (accumulator  or  memory)  to  the 
right. 

Addressing  Modes 
Zero  page  ROR  $13 

Accumulator       ROR 
Absolute  ROR  $BB67 

Zero  page.X        ROR  $E1,X 
Absolute,X  RORS1110.X 

Rags 

N  (Negative)      Carry  rotates  into  bit  7  and  sets/dears  the  N 

flag. 
V    (Overflow)     — 


66  13  5  cycles 

6A  2  cycles 

6E  67  BB    6  cycles 

76  El  6  cycles 

7E  10  11    7  cycles 


B 

D 

I 
Z 

c 


(Break) 

(Decimal) 

(Interrupt) 

(Zero) 

(Carry) 


If  carry  is  clear  and  bits  1-7  are  zero,  Z  is  set. 
Bit  0  rotates  into  carry. 
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ROR  is  the  complement  instruction  to  ROI.:  It  shifts  all  eight 
bits  one  position  to  the  right.  Bit  0  moves  into  the  carry  flag, 
and  carry  shifts  into  bit  7. 

ROR  is  used  to  carry  out  two-byte  shifts  (to  halve  a  num- 
ber). You  first  LSR  the  high  byte  and  then  ROR  the  low  byte. 
Also,  ROR  often  precedes  testing  of  the  N,  Z,  or  C  flag. 

RTI 

ReTurn  from  Interrupt:  Restore  the  processor  status  and  the 
program  counter. 

Addressing  Modes 

Implied  RTI  40  6  cycles 

Flags 

N  (Negative)      Reset  to  its  status  before  the  interrupt. 

V  (Overflow)     Reset  to  its  status  before  the  interrupt. 

B  (Break)  Reset  to  its  status  before  the  interrupt. 

D  (Decimal)  Reset  to  its  status  before  the  interrupt. 

I  (Interrupt)  Reset  to  its  status  before  the  interrupt. 

Z  (Zero)  Reset  to  its  status  before  the  interrupt. 

C  (Carry)  Reset  to  its  status  before  the  interrupt. 

When  an  interrupt  occurs,  the  current  program  counter  (high 
byte,  then  low  byte)  is  pushed  onto  the  stack,  followed  by  the 
processor  status  (P),  where  all  the  flags  are  located. 

RTI  causes  .P  to  be  pulled  from  the  stack,  followed  by  the 
program  counter.  The  program  then  continues  at  one  byte  be- 
yond the  address  pulled  from  the  stack. 

RTS 

ReTurn  from  Subroutine:  Reset  the  program  counter  using  the 

return  address  on  the  stack. 

Addressing  Modes 

Implied  RTS  60  6  cycles 

Flags 

N   (Negative)      — 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)      — 
I     (Interrupt)      — 
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Z    (Zero)  — 

C    (Carry)  - 

RTS  removes  the  last  two  bytes  from  the  stack  (low  byte  first, 
then  high  byte),  adds  1  to  the  resulting  address,  and  places  it 
in  the  program  counter.  The  stack  pointer  increments  by  2,  and 
program  execution  continues  at  the  return  address  in  the  pro- 
gram counter.  Unlike  RTI,  the  RTS  instruction  affects  no  flags. 

RTS  is  used  almost  exclusively  to  return  from  a  sub- 
routine, whether  called  from  within  the  ML  with  JSR  or  from 
BASIC  with  SYS.  When  an  ML  subroutine  is  called  from 
BASIC,  the  return  address  for  BASIC'S  main  loop  is  first 
placed  on  the  stack.  So,  once  the  ML  routine  is  complete,  a  re- 
turn to  the  BASIC  program  successfully  occurs. 

Another  application  of  RTS  involves  simulating  a  JMP 
instruction.  With  PHA,  you  push  the  high  bytes  and  low  bytes 
of  a  routine  you  wish  to  jump  to  onto  the  stack.  (Because  RTS 
adds  1  to  the  address  it  finds,  you  must  subtract  1  from  the  ac- 
tual address  of  the  routine  you're  calling  before  pushing  the 
address  onto  the  stack.)  When  the  next  RTS  executes,  the  pro- 
gram continues,  using  the  address  on  the  stack.  Take  care  that 
you  don't  put  extra  bytes  on  the  stack  before  the  RTS. 


SBC 

SuBtract  with  Carry:  Subtract  a  value  from  the  accumulator, 
with  the  result  in  .A. 
Addressing  Modes 


(Zero  page,X) 

SBC  ($8A,X) 

El    8A 

6  cycles 

Zero  page 

SBC$1A 

E5    1A 

3  cycles 

Immediate 

SBC  #$B7 

E9   B7 

2  cycles 

Absolute 

SBC  $6862 

ED  62  68 

4  cycles 

(Zero  page),Y 

SBC  ($E1),Y 

Fl    El 

5  cycles 

(  + 1  over  a  page) 

Zero  page.X 

SBC  ($D6),X 

F5   D6 

4  cycles 

Absolute.Y 

SBC  $80EB.Y 

F9  EB  80 

4  cycles 

(+1  over  a  page) 

AbsolutcX 

SBC  $7088 

FD  88   70 

4  cycles 

( + 1  over  a  page) 

Flags 

N  (Negative) 

If  the  result 

is  $80-$FF,  the  N  flag  is  set. 

V    (Overflow) 

If  an  overflow  occurs,  V 

is  set. 

B    (Break) 

— 

D  (Decimal) 

— 
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I     (Interrupt)     — 

Z    (Zero)  If  the  result  is  zero,  Z  is  set. 

C   (Carry)  If  .A  is  greater  than  or  equal  to  the  value  sub- 

tracted, the  result  is  positive,  and  C  is  set. 
The  rule  to  remember  is  always  to  clear  the  carry  flag  (CLC) 
before  addition  and  always  to  set  the  carry  flag  (SEC)  before 
subtraction.  If  you're  subtracting  large  numbers  (two  bytes  or 
more),  set  carry  before  subtracting  the  least  significant  byte.  As 
larger  numbers  are  subtracted,  carry  will  take  care  of  itself. 

Subtracting  a  large  number  from  a  smaller  number  (5  —  20, 
for  example)  will  result  in  a  cleared  carry.  If  the  second  num- 
ber is  smaller  than  the  first,  carry  will  remain  set. 

The  result  of  the  subtraction  is  found  in  the  accumulator; 
if  you  want  to  save  the  number,  be  sure  to  STA  after  the 
subtraction. 

SEC 

SEt  Carry:  Set  the  carry  flag. 

Addressing  Modes 

Implied  SEC  38  2  cycles 

Flags 

N  (Negative)     — 

V  (Overflow)    — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z    (Zero)  — 

C   (Carry)  Set  to  one. 

SEC,  the  complementary  instruction  to  CLC,  sets  the  carry  flag. 
This  is  necessary  in  order  for  SBC  to  work  correctly  (for  a 
"borrow").  SEC  can  also  force  a  branch  (SEC:  BCS),  or  it  may 
be  used  along  with  the  rotate  instructions  (ROL,  ROR).  Addition- 
ally, some  Kernal  routines  set  carry  with  SEC  to  indicate  that 
an  error  has  occurred. 

SED 

SEt  Decimal  mode:  Turns  on  binary-coded  decimal  (BCD)  mode. 

Addressing  Modes 

Implied  SED  F8  2  cycles 
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Flags 

N  (Negative)     — 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  Set  to  one. 

I  (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  - 

SED  rums  on  BCD  mode,  where  bytes  are  allowed  to  have 
100  values  ($00-$99)  instead  of  255  ($00-$FF).  When  the 
decimal  flag  is  turned  on,  addition  and  subtraction  act  only  on 
the  numbers  0-9.  If  you  add  1  to  $09  in  decimal  mode,  the  re- 
sult is  $10,  not  $0A.  Individual  nybbles  are  allowed  to  hold 
the  numbers  $0-$9  instead  of  $0-$F. 
To  turn  off  the  D  flag,  use  CLD. 

SEI 

SEt  Interrupt  flag:  Disable  maskable  (IRQ)  interrupts. 

Addressing  Modes 

Implied  SEI  78  2  cycles 

Flags 

N  (Negative)     — 

V  (Overflow)     — 

B    (Break)  — 

D   (Decimal)       — 

I     (Interrupt)      Set  to  one. 

Z    (Zero)  — 

C    (Carry)  - 

Every  1/60  second  (or  1/50  second  on  most  European  64s  and 

128s),  an  interrupt  request  (IRQ)  occurs.  At  this  time,  a  service 

routine  handles  various  housekeeping  chores  like  updating  the 

jiffy  clock  and  the  screen,  or  checking  the  keyboard. 

SEI  prevents  the  normal  IRQ  interrupts  from  being  hon- 
ored by  setting  the  I  flag.  (Nonmaskable  interrupts — NMIs — 
like  BRK  are  still  active.)  Frequently,  it  is  necessary  to  set  this 
flag  before  certain  vectors  are  changed. 

Turn  interrupts  back  on  with  CLI. 
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STA 

STore  Accumulator:  Copy  the  contents  of  .A  to  memory. 

Addressing  Modes 

(Zeropage.X)      STA  ($F6,X)         81    F6  6  cycles 

Zero  page  STA  $2D  85    2D         3  cycles 

Absolute  STA  $B8F6  8D  F6   B8    4  cvcles 

(Zero  page), Y      STA  (SDF),Y        91    DF         6  cycles 

ZeropagcX        STA  $4E,X  95    4E  4  cycles 

Absolute.Y  STA  $3EA5,Y       99    A5  3E    5  cycles 

Absolute.X  STA  $7534,X        9D  34   75    5  cycles 

Flags 

N  (Negative)     — 

V   (Overflow)    — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  — 

STA  and  LDA  are  probably  the  two  most  common  instructions 
in  ML.  LDA  puts  a  value  into  the  accumulator;  STA  stores  the 
value  from  .A  into  memory.  The  contents  of  the  accumulator 
remain  unchanged  after  the  store. 

STX 

STore  .X:  Store  the  value  in  the  X  register  to  memory. 
Addressing  Modes 


Zero  page           STX  $C6 

86 

C6          3  cycles 

Absolute             STX  $6D0E 

8E 

OE  6D  4  cycles 

Zero  page,Y        STX  $FA,Y 

% 

FA          4  cycles 

Flags 

N  (Negative)     — 

V   (Overflow)    — 

B  (Break)  — 

D  (Decimal)      — 

I  (Interrupt)      — 

Z  (Zero) 

C  (Carry) 


<_   (Carry)  — 

STX  puts  the  value  currently  in  .X  into  memory.  No  flags  or 

data  registers  are  affected.  STX  is  similar  in  its  applications  to 
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STA,  temporarily  storing  the  contents  of  the  register  to  mem- 
ory or  initializing  memory  to  a  set  value.  Note  that  STX  has 
far  fewer  addressing  modes  than  does  STA.  Because  loading 
and  storing  from  .A  is  more  flexible,  the  X  register  is  most 
often  used  as  a  counter  or  as  an  index. 

STY 

STore  .Y:  Store  the  value  in  the  Y  register  to  memory. 

Addressing  Modes 

Zero  page           STY  $9E  84    9E  3  cycles 

Absolute             STY$6F17  8C  17  6F    4  cycles 

Zeropage,X        STY  $58,X  94   58  4  cycles 

Flags 

N  (Negative)      — 

V  (Overflow)     — 

B    (Break)  — 

D  (Decimal)  — 
I  (Interrupt)  — 
Z    (Zero)  — 

C   (Carry)  - 

STY  takes  the  value  in  .Y  and  stores  it  to  memory.  The  Y  reg- 
ister is  not  affected.  STY  is  sometimes  helpful  when  the  index 
value  needs  to  be  saved  (before  a  subroutine  that  changes  the 
registers),  but  it  really  isn't  used  very  often. 

TAX 

Transfer  .A  to  .X:  Copy  the  value  in  the  accumulator  to  the  X 
register. 

Addressing  Modes 

Implied        '       TAX  AA  2  cycles 

Flags 

N  (Negative)     If  .A  holds  $80-$FF,  N  is  set. 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .A  holds  a  zero,  Z  is  set. 

C  (Carry)  - 
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TAX  moves  the  value  in  .A  to  .X.  This  instruction  is  handy  for 
temporarily  storing  the  contents  of  the  accumulator  or  for 
initializing  .X  when  indexed  addressing  is  used. 

TAY 

Transfer  .A  to  .Y:  Moves  the  value  in  the  accumulator  to  .Y. 

Addressing  Modes 

Implied  TAY  A8  2  cycles 

Flags 

N  (Negative)      If  .A  is  negative  ($80-$FF),  the  N  flag  is  set. 

V  (Overflow)      — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  -A  is  zero,  this  flag  is  set. 

C  (Carry)  — 

TAY  copies  the  value  in  .A  to  .Y.  The  original  value  in  the 
accumulator  remains  unchanged.  Some  programmers  use  this 
technique  to  temporarily  save  the  value  of  .A.  Another  use  is 
to  set  up  an  indexed  LDA  from  a  table. 

TSX 

Transfer  Stack  pointer  to  .X:  Copy  the  value  in  the  stack 

pointer  to  the  X  register. 

Addressing  Modes 

Implied  TSX  BA  2  cycles 

Flags 

N  (Negative)      If  the  stack  pointer  is  $80-$FF,  the  N  flag  is  set. 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  the  stack  pointer  is  zero,  Z  is  set. 

C  (Carry)  — 

TSX  moves  the  stack  pointer  into  .X.  The  stack  pointer  itself  is 
a  single  byte,  offset  to  $0100. 

One  application  of  TSX  is  to  determine  the  amount  of 
space  remaining  on  the  stack.  Another  is  to  examine  the  con- 
tents of  the  stack.  (Use  TSX:  LDA  $0100,X  to  look  at  the  last 
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value  placed  on  the  stack.)  Still  a  third  application  involves 
saving  the  current  stack  pointer  while  using  a  portion  of  the 
stack  for  certain  operations. 

TXA 

Transfer  .X  to  .A:  Moves  the  value  in  .X  to  the  accumulator, 
leaving  .X  unchanged. 

Addressing  Modes 

Implied  TXA  8A  2  cycles 

Flags 

N  (Negative)     If  the  value  transferred  is  $80-$FF,  N  is  set. 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  K  .X  holds  a  00,  the  Z  flag  is  set. 

C  (Carry)  — 

TXA  moves  the  number  currently  in  .X  to  .A.  The  value  in  .X 
remains  the  same.  This  is  sometimes  done  in  preparation  for 
an  instruction  such  as  ADC,  PHA,  SBC,  or  some  other  opera- 
tion that  cannot  be  performed  directly  on  the  X  register. 

TXS 

Transfer  .X  to  Stack  pointer:  Copy  the  value  in  the  X  register 
to  the  stack  pointer. 

Addressing  Modes 

Implied  TXS  9A  2  cycles 

Flags 

N  (Negative)      — 

V  (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  — 

C  (Carry)  - 

TXS  moves  the  contents  of  the  X  register  into  the  stack 
pointer.  This  instruction  is  used  by  the  computer  as  part  of  its 
own  power-up  routine.  The  stack  pointer  is  set  to  the  top  of 
the  stack  (which  is  called  clearing  the  stack)  when  the  com- 
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puter  is  first  turned  on  or  RESET  with  LDX  #$FF:  TXS. 

TXS  is  also  helpful  in  restoring  the  stack  pointer  after  any 
processing  has  been  carried  out  within  the  stack  itself. 

TYA 

Transfer  .Y  to  .A:  Copy  the  value  in  the  Y  register  to  the 

accumulator;  .Y  remains  unchanged. 

Addressing  Modes 

Implied  TYA  98  2  cycles 

Flags 

N  (Negative)     If  .Y  holds  $80-$FF,  N  is  set.  If  .Y  is  $00-$7F, 

N  is  clear. 
V   (Overflow)     — 

B  (Break)  — 

D  (Decimal)  — 

I  (Interrupt)  — 

Z  (Zero)  If  .Y  holds  a  zero,  Z  is  set. 

C  (Carry)  — 

TYA  moves  the  value  in  .Y  to  .A.  This  is  sometimes  necessary 
because  the  accumulator  can  perform  some  operations  (like 
addition  and  subtraction)  that  aren't  available  for  .Y. 
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Opcodes  Listed  Numerically 


Opcode 

Mnemonic 

Addressing  Mode 

00 

BRK 

Implied 

01 

ZX 

ORA 

(Zero  page,X) 

02 

Undefined 

— 

03 

Undefined 

— 

04 

Undefined 

— 

05 

ZP 

ORA 

Zero  page 

06 

ZP 

ASL 

Zero  page 

07 

Undefined 

— 

08 

PHP 

Implied 

09 

IM 

ORA 

Immediate 

0A 

ASL 

Accumulator 

0B 

Undefined 

— 

OC 

Undefined 

— 

0D 

LO  HI 

ORA 

Absolute 

OE 

LO  HI 

ASL 

Absolute 

OF 

Undefined 

— 

10 

RE 

BPL 

Relative 

11 

ZY 

ORA 

(Zero  pagehY 

12 

Undefined 

— 

13 

Undefined 

— 

14 

Undefined 

— 

15 

ZP 

ORA 

Zero  page,X 

16 

ZP 

ASL 

Zero  page,X 

17 

Undefined 

— 

18 

CLC 

Implied 

19 

LO  HI 

ORA 

Absolute,Y 

1A 

Undefined 

— 

IB 

Undefined 

— 

1C 

Undefined 

— 

ID 

LO  HI 

ORA 

Absolute,X 

IE 

LO  HI 

ASL 

Absolute,X 

IF 

Undefined 

— 

20 

LO  HI 

JSR 

Absolute 

21 

ZX 

AND 

(Zero  page,X) 

22 

Undefined 

— 

23 

Undefined 

— 

24 

ZP 

BIT 

Zero  page 

25 

ZP 

AND 

Zero  page 

26 

ZP 

ROL 

Zero  page 

27 

Undefined 

— 

28 

PLP 

Implied 

29 

IM 

AND 

Immediate 

2A 

ROL 

Accumulator 

2B 

Undefined 

— 
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Opcode 

Mnemonic 

Addressing  Mode 

2C 

LO 

HI 

BIT 

Absolute 

2D 

LO 

HI 

AND 

Absolute 

2E 

LO 

HI 

ROL 

Absolute 

2F 

Undefined 

— 

30 

RE 

BMI 

Relative 

31 

ZY 

AND 

Undefined 

(Zero  page),Y 

33 

Undefined 

— 

34 

Undefined 

— 

35 

ZP 

AND 

Zero  page,X 

36 

ZP 

ROL 

Zero  page,X 

37 

Undefined 

— 

38 

SEC 

Implied 

39 

LO 

HI 

AND 

Absolute,Y 

3A 

Undefined 

— 

3B 

Undefined 

— - 

3C 

Undefined 

— 

3D 

LO 

HI 

AND 

Absolute,X 

3E 

LO 

HI 

ROL 

Absolute,X 

3F 

Undefined 

— 

40 

RTI 

Implied 

41 

ZX 

EOR 

(Zero  page,X) 

42 

Undefined 

— 

43 

Undefined 

— 

44 

Undefined 

— 

45 

ZP 

EOR 

Zero  page 

46 

ZP 

LSR 

Zero  page 

47 

Undefined 

— 

48 

PHA 

Implied 

49 

IM 

EOR 

Immediate 

4A 

LSR 

Accumulator 

4B 

Undefined 

— 

4C 

LO 

HI 

JMP 

Absolute 

4D 

LO 

HI 

EOR 

Absolute 

4E 

LO 

HI 

LSR 

Absolute 

4F 

Undefined 

— 

50 

RE 

BVC 

Relative 

51 

ZY 

EOR 

(Zero  page),Y 

52 

Undefined 

— 

53 

Undefined 

— 

54 

Undefined 

— 

55 

ZP 

EOR 

Zero  page, X 

56 

ZP 

LSR 

Zero  page,X 

57 

Undefined 

— 

58 

CLI 

Implied 
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Opcode 

Mnemonic 

Addressing  Mode 

59    LO 

HI 

EOR 

Absolute,Y 

5A 

Undefined 

— 

5B 

Undefined 

— 

5C 

Undefined 

— 

5D  LO 

HI 

EOR 

Absolute,X 

5E    LO 

HI 

LSR 

Absolute,X 

5F 

Undefined 

— 

60 

RTS 

Implied 

61    ZX 

ADC 

(Zero  page,X) 

62 

Undefined 

— 

63 

Undefined 

— 

64 

Undefined 

— 

65    ZP 

ADC 

Zero  page 

66    ZP 

ROR 

Zero  page 

67 

Undefined 

— 

68 

PLA 

Implied 

69    IM 

ADC 

Immediate 

6A 

ROR 

Accumulator 

6B 

Undefined 

— 

6C   LO 

HI 

JMP 

(Absolute) 

6D  LO 

HI 

ADC 

Absolute 

6E    LO 

HI 

ROR 

Absolute 

6F 

Undefined 

— 

70    RE 

BVS 

Relative 

71    ZY 

ADC 

(Zero  page),Y 

72 

Undefined 

— 

73 

Undefined 

— 

74 

Undefined 

— 

75    ZP 

ADC 

Zero  page,X 

76    ZP 

ROR 

Zero  page,X 

77 

Undefined 

— 

78 

SEI 

Implied 

79    LO 

HI 

ADC 

Absolute,Y 

7A 

Undefined 

— 

7B 

Undefined 

— 

7C 

Undefined 

— 

7D  LO 

HI 

ADC 

Absolute, X 

7E    LO 

HI 

ROR 

Absolute,X 

7F 

Undefined 

— 

80 

Undefined 

— 

81    ZX 

STA 

(Zero  page,X) 

82 

Undefined 

— 

83 

Undefined 

— 

84    ZP 

STY 

Zero  page 

85    ZP 

STA 

Zero  page 
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Opcode 

Mnemonic 

Addressing  Mode 

86    ZP 

STX 

Zero  page 

87 

Undefined 

— 

88 

DEY 

Implied 

89 

Undefined 

— 

8A 

TXA 

Implied 

8B 

Undefined 

— 

8C   LO 

HI 

STY 

Absolute 

8D  LO 

HI 

STA 

Absolute 

8E    LO 

HI 

STX 

Absolute 

8F 

Undefined 

— 

90    RE 

BCC 

Relative 

91    ZY 

STA 

(Zero  page),Y 

92 

Undefined 

— 

93 

Undefined 

— 

94    ZP 

STY 

Zero  page,X 

95    ZP 

STA 

Zero  page,X 

96    ZP 

STX 

Zero  page,Y 

97 

Undefined 

— 

98 

TYA 

Implied 

99    LO 

HI 

STA 

Absolute,Y 

9A 

TXS 

Implied 

9B 

Undefined 

— 

9C 

Undefined 

— 

9D  LO 

HI 

STA 

Absolute,X 

9E 

Undefined 

— 

9F 

Undefined 

— 

A0  IM 

LDY 

Immediate 

Al  ZX 

LDA 

(Zero  page,X) 

A2  IM 

LDX 

Immediate 

A3 

Undefined 

— 

A4  ZP 

LDY 

Zero  page 

A5  ZP 

LDA 

Zero  page 

A6  ZP 

LDX 

Zero  page 

A7 

Undefined 

— 

A8 

TAY 

Implied 

A9  IM 

LDA 

Immediate 

AA 

TAX 

Implied 

AB 

Undefined 

— 

AC  LO 

HI 

LDY 

Absolute 

ADLO 

HI 

LDA 

Absolute 

AE  LO 

HI 

LDX 

Absolute 

AF 

Undefined 

— 

BO    RE 

BCS 

Relative 

Bl    ZY 

LDA 

(Zero  page),Y 

B2 

Undefined 

— 
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Opcode 

Mnemonic 

Addressing  M 

B3 

Undefined 

— 

B4   ZP 

LDY 

Zero  page,X 

B5    ZP 

LDA 

Zero  page,X 

B6   ZP 

LDX 

Zero  page,Y 

B7 

Undefined 

— 

B8 

CLV 

Implied 

B9    LO 

HI 

LDA 

Absolute,  Y 

BA 

TSX 

Implied 

BB 

Undefined 

— 

BC  LO 

HI 

LDY 

Absolute,X 

BD  LO 

HI 

LDA 

Absolute,),' 

BE  LO 

HI 

LDX 

Absolute,Y 

BF 

Undefined 

— 

CO   IM 

CPY 

Immediate 

CI  zx 

CMP 

(Zero  page,X) 

C2 

Undefined 

— 

C3 

Undefined 

— 

C4  ZP 

CPY 

Zero  page 

C5   ZP 

CMP 

Zero  page 

C6   ZP 

DEC 

Zero  page 

C7 

Undefined 

— 

C8 

INY 

Implied 

C9  IM 

CMP 

Immediate 

CA 

DEX 

Implied 

CB 

Undefined 

— 

CC  LO 

HI 

CPY 

Absolute 

CDLO 

HI 

CMP 

Absolute 

CE  LO 

HI 

DEC 

Absolute 

CF 

Undefined 

— 

DO  RE 

BNE 

Relative 

Dl  ZY 

CMP 

(Zero  page),Y 

D2 

Undefined 

— 

D3 

Undefined 

— 

D4 

Undefined 

— 

D5  ZP 

CMP 

Zero  page,X 

D6  ZP 

DEC 

Zero  page,X 

D7 

Undefined 

— 

D8 

CLD 

Implied 

D9  LO 

HI 

CMP 

Absolute,Y 

DA 

Undefined 

— 

DB 

Undefined 

— 

DC 

Undefined 

— 

DDLO 

HI 

CMP 

Absolute,X 

DE  LO 

HI 

DEC 

Absolute,X 

DF 

Undefined 

— 
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Opcode 

Mnemonic 

Addressing  Mode 

EO   IM 

CPX 

Immediate 

El    ZX 

SBC 

(Zero  page,X) 

E2 

Undefined 

— 

E3 

Undefined 

— 

E4   ZP 

CPX 

Zero  page 

E5    ZP 

SBC 

Zero  page 

E6   ZP 

INC 

Zero  page 

E7 

Undefined 

— 

E8 

INX 

Implied 

E9   IM 

SBC 

Immediate 

EA 

NOP 

Implied 

EB 

Undefined 

— 

EC  LO 

HI 

CPX 

Absolute 

ED  LO 

HI 

SBC 

Absolute 

EE   LO 

HI 

INC 

Absolute 

EF 

Undefined 

— 

FO    RE 

BEQ 

Relative 

Fl    ZY 

SBC 

(Zero  page),Y 

F2 

Undefined 

— 

F3 

Undefined 

— 

F4 

Undefined 

— 

F5    ZP 

SBC 

Zero  page,X 

F6    ZP 

INC 

Zero  page,X 

¥7 

Undefined 

— 

F8 

SED 

Implied 

F9    LO 

HI 

SBC 

Absolute,  Y 

FA 

Undefined 

— 

FB 

Undefined 

— 

FC 

Undefined 

— 

FD  LO 

HI 

SBC 

Absolute,X 

FE   LO 

HI 

INC 

Absolute,.* 

FF 

Undefined 

— 
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Instructions  Arranged  Alphabetically 

Mnemonic 

Addressing  Mode 

Opcode 

ADC 

Absolute 

6D 

LO  HI 

ADC 

Absolute,X 

7D 

LO  HI 

ADC 

Absolute,Y 

79 

LO  HI 

ADC 

Immediate 

69 

IM 

ADC 

Zero  page 

65 

ZP 

ADC 

Zero  page,X 

75 

ZP 

ADC 

(Zero  page,X) 

61 

ZX 

ADC 

(Zero  page),Y 

71 

ZY 

AND 

Absolute 

2D 

LO  HI 

AND 

Absolute,X 

3D 

LO  HI 

AND 

Absolute,Y 

39 

LO  HI 

AND 

Immediate 

29 

IM 

AND 

Zero  page 

25 

ZP 

AND 

Zero  page,X 

35 

ZP 

AND 

(Zero  page,X) 

21 

ZX 

AND 

(Zero  page),Y 

31 

ZY 

ASL 

Absolute 

OE 

LO  HI 

ASL 

Absolute,X 

IE 

LO  HI 

ASL 

Accumulator 

OA 

ASL 

Zero  page 

06 

ZP 

ASL 

Zero  page,X 

16 

ZP 

BCC 

Relative 

90 

RE 

BCS 

Relative 

BO 

RE 

BEQ 

Relative 

F0 

RE 

BIT 

Absolute 

2C 

LO  HI 

BIT 

Zero  page 

24 

ZP 

BMI 

Relative 

30 

RE 

BNE 

Relative 

DO 

RE 

BPL 

Relative 

10 

RE 

BRK 

Implied 

00 

BVC 

Relative 

50 

RE 

BVS 

Relative 

70 

RE 

CLC 

Implied 

18 

CLD 

Implied 

D8 

CLI 

Implied 

58 

CLV 

Implied 

B8 

CMP 

Absolute 

CDLO  HI 

CMP 

Absolute,X 

DDLO   HI 

CMP 

Absolute,Y 

D9  LO  HI 

CMP 

Immediate 

C9 

IM 

CMP 

Zero  page 

C5 

ZP 

CMP 

Zero  page,X 

D5 

ZP 

CMP 

(Zero  page,X) 

CI 

ZX 

CMP 

(Zero  page),Y 

Dl 

ZY 
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Mnemonic 

Addressing  Mode 

Opcode 

CPX 

Absolute 

EC 

LO  HI 

CPX 

Immediate 

EO 

IM 

CPX 

Zero  page 

E4 

ZP 

CPY 

Absolute 

CC  LO  HI 

CPY 

Immediate 

CO 

IM 

CPY 

Zero  page 

C4 

ZP 

DEC 

Absolute 

CE 

LO  HI 

DEC 

Absolute, X 

DE  LO  HI 

DEC 

Zero  page 

C6 

ZP 

DEC 

Zero  page,X 

D6 

ZP 

DEX 

Implied 

CA 

DEY 

Implied 

88 

EOR 

Absolute 

4D 

LO  HI 

EOR 

Absolute,X 

5D 

LO  HI 

EOR 

Absolute,Y 

59 

LO  HI 

EOR 

Immediate 

49 

IM 

EOR 

Zero  page 

45 

ZP 

EOR 

Zero  page,X 

55 

ZP 

EOR 

(Zero  page,X) 

41 

ZX 

EOR 

(Zero  page),Y 

51 

ZY 

INC 

Absolute 

EE 

LO  HI 

INC 

Absolute,X 

FE 

LO  HI 

INC 

Zero  page 

E6 

ZP 

INC 

Zero  page,X 

F6 

ZP 

INX 

Implied 

E8 

INY 

Implied 

C8 

JMP 

Absolute 

4C 

LO  HI 

JMP 

(Absolute) 

6C 

LO  HI 

JSR 

Absolute 

20 

LO  HI 

LDA 

Absolute 

ADLO  HI 

LDA 

Absolute,X 

BD  LO  HI 

LDA 

Absolute,  Y 

B9 

LO  HI 

LDA 

Immediate 

A9 

IM 

LDA 

Zero  page 

A5 

ZP 

LDA 

Zero  page,X 

B5 

ZP 

LDA 

(Zero  page,X) 

Al 

ZX 

LDA 

(Zero  page), Y 

Bl 

ZY 

LDX 

Absolute 

AE 

LO  HI 

LDX 

Absolute,Y 

BE 

LO  HI 

LDX 

Immediate 

A2 

IM 

LDX 

Zero  page 

A6 

ZP 

LDX 

Zero  page,Y 

B6 

ZP 

LDY 

Absolute 

AC  LO  HI 

LDY 

Absoiute,X 

BC 

LO  HI 

LDY 

Immediate 

A0 

IM 
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Mnemonic 

Addressing  Mode 

Opcode 

LDY 

Zero  page 

A4 

ZP 

LDY 

Zero  page,X 

B4 

ZP 

LSR 

Absolute 

4E 

LO  HI 

LSR 

Absolute,X 

5E 

LO  HI 

LSR 

Accumulator 

4A 

LSR 

Zero  page 

46 

ZP 

LSR 

Zero  page,X 

56 

ZP 

NOP 

Implied 

EA 

ORA 

Absolute 

OD 

LO  HI 

ORA 

Absolute,X 

ID 

LO  HI 

ORA 

Absolute,Y 

19 

LO  HI 

ORA 

Immediate 

09 

IM 

ORA 

Zero  page 

05 

ZP 

ORA 

Zero  page,X 

15 

ZP 

ORA 

(Zero  page,X) 

11 

ZY 

ORA 

(Zero  page),Y 

11 

ZY 

PHA 

Implied 

48 

PHP 

Implied 

08 

PLA 

Implied 

68 

PLP 

Implied 

28 

ROL 

Absolute 

2E 

LO  HI 

ROL 

Absolute,X 

3E 

LO  HI 

ROL 

Accumulator 

2A 

ROL 

Zero  page 

26 

ZP 

ROL 

Zero  page,X 

36 

ZP 

ROR 

Absolute 

6E 

LO  HI 

ROR 

Absolute,X 

7E 

LO  HI 

ROR 

Accumulator 

6A 

ROR 

Zero  page 

66 

ZP 

ROR 

Zero  page,X 

76 

ZP 

RTI 

Implied 

40 

RTS 

Implied 

60 

SBC 

Absolute 

ED  LO  HI 

SBC 

Absolute,X 

FD  LO  HI 

SBC 

Absolute,Y 

F9 

LO  HI 

SBC 

Immediate 

E9 

IM 

SBC 

Zero  page 

E5 

ZP 

SBC 

Zero  page,X 

F5 

ZP 

SBC 

(Zero  page,X) 

El 

ZX 

SBC 

(Zero  page),Y 

Fl 

ZY 

SEC 

Implied 

38 

SED 

Implied 

F8 

SEI 

Implied 

78 

STA 

Absolute 

8D 

LO  HI 

STA 

Absolute,X 

9D 

LO  HI 

Opcodes 


Mnemonic 

STA 
STA 
STA 
STA 
STA 


STX 
STX 
STY 
STY 
STY 
TAX 
TAY 
TSX 
TXA 
TXS 
TYA 


Addressing  Mode 

Absolute,Y 
Zero  page 
Zero  page,X 
(Zero  page,X) 
(Zero  page),Y 
Absolute 
Zero  page 
Zero  page, Y 
Absolute 
Zero  page 
Zero  page,X 
Implied 
Implied 
Implied 
Implied 
Implied 
Implied 


Opcode 

99    LO   HI 

85  ZP 

95  ZP 
81  ZX 
91    ZY 

8E    LO  HI 

86  ZP 

96  ZP 

8C   LO  HI 

84    ZP 

94    ZP 

AA 

A8 

BA 

8A 

9A 

98 
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Standard  Commodore  Jump  Table 

ACPTR  65445  $FFA5 

This  low-level  I/O  routine  retrieves  a  byte  from  a  serial  device 
without  checking  for  a  previous  I/O  error.  If  the  operation  is 
successful,  the  accumulator  will  hold  the  byte  received  from 
the  device.  The  contents  of  .X  and  .Y  are  preserved.  The  suc- 
cess of  the  operation  will  be  indicated  by  the  value  in  the  se- 
rial status  flag  upon  return.  (See  READST  for  details.) 

For  the  routine  to  function  properly,  the  serial  device 
must  currently  be  a  talker  on  the  serial  bus,  which  requires  a 
number  of  setup  steps.  Generally,  it's  preferable  to  use  the 
higher-level  CHRIN  routine  instead. 

CHKIN  65478  $FFC6 

This  routine  specifies  a  logical  file  as  the  source  of  input  in 
preparation  for  using  the  CHRIN  or  GETIN  routines.  The  logi- 
cal file  should  be  opened  before  this  routine  is  called.  (See  the 
OPEN  routine.)  The  desired  logical  file  number  should  be  in 
.X  when  this  routine  is  called.  The  contents  of  .Y  are  un- 
affected, but  the  accumulator  value  will  be  changed. 

The  routine  sets  the  input  channel  (location  $99)  to  the 
device  number  for  the  specified  file.  If  the  device  is  RS-232 
(device  number  2),  the  CIA  #2  interrupts  for  RS-232  reception 
are  enabled.  If  a  serial  device  (device  number  4  or  greater)  was 
specified,  the  device  is  made  a  talker  on  the  serial  bus. 

If  the  file  is  successfully  set  for  input,  the  status-register 
carry  bit  will  be  clear  upon  return.  If  carry  is  set,  the  operation 
was  unsuccessful  and  the  accumulator  will  contain  a  Kernal 
error-code  value  indicating  which  error  occurred.  Possible  er- 
ror codes  include  3  (file  was  not  open),  5  (device  did  not  re- 
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spond),  and  6  (file  was  not  opened  for  input).  The  RS-232  and 
serial  status-flag  locations  also  reflect  the  success  of  operations 
for  those  devices.  (See  READST  for  details.) 

The  JMP  to  the  CHKIN  execution  routine  is  by  way  of  the 
ICHKIN  indirect  vector  at  798-799  ($031E-$031F).  You  can 
modify  the  actions  of  CHKIN  by  changing  the  vector  to  point 
to  a  routine  of  your  own. 

CHKOUT  65481  $FFC9 

This  routine  (some  Commodore  references  call  it  CKOUT) 
specifies  a  logical  file  as  the  recipient  of  output  in  preparation 
for  using  the  CHROUT  routine.  The  logical  file  should  be 
opened  before  this  routine  is  called.  (See  the  OPEN  routine.) 
The  desired  logical  file  number  should  be  in  .X  when  this  rou- 
tine is  called.  The  contents  of  .Y  are  unaffected,  but  the  accu- 
mulator will  be  changed. 

The  routine  sets  the  output  channel  (location  $9A)  to  the 
device  number  for  the  specified  file.  If  the  device  is  RS-232 
(device  number  2),  the  routine  also  enables  the  CIA  #2  inter- 
rupts for  RS-232  transmission.  If  a  serial  device  (device  num- 
ber 4  or  greater)  is  specified,  the  device  is  also  made  a  listener 
on  the  serial  bus. 

If  the  file  is  successfully  set  for  output,  the  status-register 
carry  bit  will  be  clear  upon  return.  If  the  carry  is  set,  the  op- 
eration was  unsuccessful,  and  the  accumulator  will  contain  a 
Kernal  error-code  value  indicating  which  error  occurred.  Pos- 
sible error  codes  include  3  (file  was  not  open),  5  (device  did 
not  respond),  and  7  (file  was  not  opened  for  output).  The  RS- 
232  and  serial  status-flag  locations  also  reflect  the  success  of 
operations  for  those  devices.  (See  READST  for  details.) 

The  JMP  to  the  CHKOUT  execution  routine  is  by  way  of 
the  ICKOUT  indirect  vector  at  $0320-$0321.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

CHRIN  65487  $FFCF 

This  high-level  I/O  routine  (some  Commodore  references  may 
call  it  BASIN)  receives  a  byte  from  the  logical  file  currently 
specified  for  input  (to  change  the  default  input  device,  see 
CHKIN  above).  Except  to  use  the  routine  to  retrieve  input 
from  the  keyboard  when  the  system  is  set  for  default  I/O,  you 
must  open  a  logical  file  to  the  desired  device  and  specify  the 
file  as  the  input  source  before  calling  this  routine.  (See  the 
OPEN  and  CHKIN  routines.) 
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For  keyboard  input  (device  0),  the  routine  accepts 
keypresses  until  RETURN  is  pressed,  and  then  returns  charac- 
ters from  the  input  string  one  at  a  time  on  each  subsequent 
call.  The  character  code  for  RETURN,  13,  is  returned  when  the 
end  of  an  input  string  is  reached.  (The  Kernal  GETIN  routine 
is  better  for  retrieving  individual  keypresses.) 

For  tape  (device  1),  the  routine  retrieves  the  next  character 
from  the  cassette  buffer.  If  all  characters  have  been  read  from 
the  buffer,  the  next  data  block  is  read  from  tape  into  the 
buffer. 

For  RS-232  (device  2),  the  routine  returns  the  next  avail- 
able character  from  the  RS-232  input  buffer.  If  the  buffer  is 
empty,  the  routine  waits  until  a  character  is  received — unless 
the  RS-232  status  flag  indicates  that  the  DSR  signal  from  the 
external  device  is  missing,  in  which  case  a  RETURN  character 
code,  13,  is  returned. 

CHRIN  from  the  screen  (device  3)  retrieves  characters  one 
at  a  time  from  the  current  screen  line,  ending  with  a  RETURN 
character  code  when  the  last  nonspace  character  on  the  logical 
line  is  reached.  (Note  that  CHRIN  from  the  screen  does  not 
work  properly  in  the  original  version  of  the  128  Kernal.)  For 
serial  devices  (device  numbers  4  and  higher),  the  routine  re- 
turns the  next  available  character  from  the  serial  bus,  unless 
the  serial  status  flag  contains  a  nonzero  value.  In  that  case,  the 
RETURN  character  code  is  returned. 

For  all  input  devices,  the  received  byte  will  be  in  the 
accumulator  upon  return.  The  contents  of  .X  and  .Y  are  pre- 
served during  input  from  the  keyboard,  screen,  or  RS-232.  For 
input  from  tape,  only  .X  is  preserved.  For  input  from  serial  de- 
vices, only  .Y  is  preserved.  For  input  from  the  screen,  key- 
board, or  serial  devices,  the  status-register  carry  bit  will  always 
be  clear  upon  return.  For  tape  input,  the  carry  bit  will  be  clear 
unless  the  operation  was  aborted  by  pressing  the  RUN/STOP 
key.  For  tape,  serial,  or  RS-232  input,  the  success  of  the  opera- 
tion will  be  indicated  by  the  value  in  the  status-flag  location. 
(See  the  entry  for  READST.)  The  RS-232  portion  of  the  orig- 
inal 128  version  of  CHRIN  has  a  bug:  The  carry  bit  will  be  set 
if  a  byte  was  successfully  received,  and  will  be  clear  only  if 
the  DSR  signal  is  missing — the  opposite  of  the  settings  for  the 
64.  It's  better  to  judge  the  success  of  an  RS-232  operation  by 
the  value  in  the  status-flag  location  rather  than  by  the  carry- 
bit  setting.  (See  the  READST  routine.) 

The  JMP  to  the  CHRIN  execution  routine  is  by  way  of  the 
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ICHRIN  indirect  vector  at  $0324-$0325.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

CHROUT  65490  $FFD2 

This  routine  (some  Commodore  references  call  it  BSOUT) 
sends  a  byte  to  the  logical  file  currently  specified  for  output. 
Except  to  send  output  to  the  screen  when  the  system  is  set  for 
default  I/O,  you  must  open  a  logical  file  to  the  desired  device 
and  specify  the  file  as  the  output  target  before  calling  this  rou- 
tine. (See  the  OPEN  and  CHKOUT  routines.) 

For  output  to  tape  (device  1),  the  character  is  stored  at  the 
next  available  position  in  the  cassette  buffer.  When  the  buffer 
is  full,  the  data  block  is  written  to  tape. 

For  output  to  RS-232  (device  2),  the  character  is  stored  in 
the  next  available  position  in  the  RS-232  output  buffer.  If  the 
buffer  is  full,  the  routine  waits  until  a  character  is  sent. 

For  output  to  the  screen  (device  3),  the  character  is 
printed  at  the  current  cursor  position.  For  serial  devices  (device 
numbers  4  and  higher),  the  CIOUT  routine  is  called. 

Regardless  of  the  output  device,  the  contents  of  the  accu- 
mulator, .X,  and  .Y  are  preserved  during  this  routine.  The 
status-register  carry  bit  will  always  be  clear  upon  return,  un- 
less output  to  tape  is  aborted  by  pressing  the  RUN/STOP  key. 
(In  that  case,  the  accumulator  will  also  be  set  to  0,  setting  the 
status-register  Z  bit  as  well.)  For  tape,  serial,  or  RS-232  output, 
the  success  of  the  operation  will  be  indicated  by  the  value  in 
the  status  flag.  (See  READST  for  details.) 

The  JMP  to  the  CHROUT  execution  routine  is  by  way  of 
the  ICHROUT  indirect  vector  at  $0326-$0327.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

CINT  65409  $FF81 

This  routine  initializes  all  RAM  locations  used  by  the  screen 
editor,  returning  screen  memory  to  its  default  position  and  set- 
ting default  screen  and  border  colors.  The  routine  also  clears 
the  screen  and  homes  the  cursor.  All  processor  registers  are 
affected. 

For  the  64  only,  this  routine  initializes  all  VIC  chip  reg- 
isters to  their  default  values  (that's  done  during  the  Kemal 
IOINIT  routine  in  the  128).  For  the  128,  CINT  clears  both  dis- 
plays and  redirects  printing  to  the  display  indicated  by  the  po- 
sition of  the  40/80  DISPLAY  key.  The  128  routine  also  sets 
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SID  volume  to  zero  and  resets  programmable  function  keys  to 
their  default  definitions.  It  does  not,  however,  reinitialize  the 
80-column  character  set.  (That's  also  part  of  IOINIT.) 

CIOUT  65448  $FFA8 

This  low-level  I/O  routine  sends  a  byte  to  a  serial  device.  The 
accumulator  should  hold  the  byte  to  be  sent.  All  register  val- 
ues are  preserved.  The  success  of  the  operation  will  be  in- 
dicated by  the  value  in  the  serial  status  flag.  (See  READST  for 
details.) 

For  the  routine  to  function  properly,  the  target  serial  de- 
vice must  currently  be  a  listener  on  the  serial  bus,  which  re- 
quires a  number  of  setup  steps.  However,  if  you  have  already 
performed  all  the  preparatory  steps  necessary  for  CHROUT  to 
a  serial  device,  then  you  can  freely  substitute  CIOUT  for 
CHROUT,  since,  for  a  serial  device,  CHROUT  simply  jumps  to 
the  CIOUT  routine. 

CLALL  65511  $FFE7 

This  routine  resets  the  number  of  open  files  (location  $98)  to 
zero,  then  falls  through  into  the  CLRCH  routine  to  reset  de- 
fault I/O.  The  contents  of  A  and  .X  are  changed,  but  .Y  is 
unaffected. 

Despite  its  name,  the  routine  doesn't  actually  close  any 
files  that  may  be  open  to  tape,  disk,  or  RS-232  devices.  Un- 
closed files  may  cause  problems,  particularly  on  disks,  so  this 
routine  is  of  limited  usefulness.  The  128  Kernal  provides  an 
alternate  routine  that  does  properly  close  all  files  open  to  a  se- 
rial device.  (See  CLOSE_ALL.) 

The  JMP  to  the  CLALL  execution  routine  is  by  way  of  the 
ICLALL  indirect  vector  at  $032C-$032D.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

CLOSE  65475  $FFC3 

This  routine  closes  a  specified  logical  file.  Call  the  routine  with 
the  accumulator  holding  the  number  of  the  logical  file  to  be 
closed.  If  no  file  with  the  specified  logical  file  number  is  cur- 
rently open,  no  action  is  taken  and  no  error  is  indicated.  If  a 
file  with  the  specified  number  is  open,  its  entry  in  the  logical 
file  number,  device  number,  and  secondary  address  tables  will 
be  removed.  For  RS-232  files,  the  driving  CIA  #2  interrupts  will 
also  be  disabled.  For  tape  files,  the  final  block  of  data  will  be 
written  to  tape  (followed  by  an  end-of-tape  marker,  if  one  was 
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specified).  For  disk  files,  the  EOI  sequence  will  be  performed. 

The  128  version  of  the  routine  offers  a  special  close  func- 
tion for  disk  files:  If  this  routine  is  called  with  the  status- 
register  carry  bit  set,  and  if  the  device  number  for  the  file  is  8 
or  greater,  and  if  the  file  was  opened  with  a  secondary  address 
of  15,  then  the  EOI  sequence  is  skipped.  (The  table  entries  for 
the  file  are  deleted,  but  that's  all.)  This  solves  a  problem  in 
earlier  versions  of  the  Kemal  for  disk  files  opened  with  a 
secondary  address  of  15,  the  command  channel  to  the  drive. 
An  attempt  to  close  the  command  channel  will  result  in  an 
EOI  sequence  that  closes  all  files  currently  open  to  the  drive, 
not  just  the  command-channel  file.  This  special  mode  allows 
the  command-channel  file  to  be  closed  without  disturbing 
other  files  that  may  be  open  to  the  drive. 

The  JMP  to  the  CLOSE  execution  routine  is  by  way  of  the 
ICLOSE  indirect  vector  at  $031C-$031D.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

CLRCHN  65484  $FFCC 

This  routine  restores  the  default  I/O  sources  for  the  operating 
system.  The  output  channel  (location  $9A)  is  reset  to  device  3, 
the  video  display.  (If  the  previous  output  channel  was  a  serial 
device,  it  is  sent  an  UNLISTEN  command.)  The  input  channel 
(location  $99)  is  reset  to  device  0,  the  keyboard.  (If  the  pre- 
vious input  channel  was  a  serial  device,  it  is  sent  an  UNTALK 
command.)  The  contents  of  .X  and  .A  are  changed,  but  .Y  is 
unaffected. 

The  JMP  to  the  CLRCHN  execution  routine  is  by  way  of 
the  ICLRCH  indirect  vector  at  $0322-$0323.  You  can  modify 
the  actions  of  the  routine  by  changing  the  vector  to  point  to  a 
routine  of  your  own. 

GETIN  65508  $FFE4 

This  routine  retrieves  a  single  character  from  the  current  input 
device.  The  routine  first  checks  to  see  whether  the  input  de- 
vice number  is  0  (keyboard)  or  2  (RS-232).  If  it's  not  either  of 
these,  the  Kernal  CHRIN  routine  is  called  instead.  For  key- 
board or  RS-232,  the  retrieved  character  will  be  in  the  accu- 
mulator upon  return,  and  the  status-register  carry  bit  will  be 
clear.  If  no  character  is  available,  the  accumulator  will  contain 
0.  (CHRIN,  by  contrast,  will  wait  for  a  character.)  The  contents 
of  .Y  are  unaffected,  but  .X  will  be  changed.  For  RS-232,  bit  3 
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of  the  status  flag  will  also  be  set  if  no  characters  are  available. 
(See  READST  for  details.) 

The  JMP  to  the  GETIN  execution  routine  is  by  way  of  the 
IGETIN  indirect  vector  at  $032A-$032B.  You  can  modify  the 
actions  of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

IOBASE  65523  $FFF3 

This  routine  returns  a  constant  I/O  chip  base-address  value  in 
.X  (low  byte)  and  .Y  (high  byte).  The  accumulator  is  un- 
affected. For  the  64,  the  value  returned  is  $DC00 — the  address 
of  CIA  #1.  For  the  128,  the  value  is  $D000— the  address  of 
the  VIC  chip. 

IOINIT  65412  $FF84 

This  routine  initializes  the  CIA  chips'  registers  to  their  default 
values,  along  with  related  RAM  locations.  All  processor  reg- 
isters are  affected.  For  the  128,  the  routine  also  initializes  the 
VIC  and  VDC  chip  registers  (a  step  which  is  part  of  the  Kernal 
CINT  routine  in  the  64).  In  addition,  the  128  routine  sets  all 
SID  chip  registers  to  zero  and  calls  the  Kernal  DLCHR  routine 
to  initialize  the  character  set  for  the  80-column  chip. 

LISTEN  65457  $FFB1 

This  low-level  serial  I/O  routine  sends  a  LISTEN  command  to 
a  specified  serial  device.  Call  the  routine  with  the  accumulator 
holding  the  device  number  (4-31)  of  the  serial  device  to  re- 
ceive the  command.  The  contents  of  .A  and  .X  will  be  changed; 
.Y  is  unaffected.  The  success  of  the  operation  will  be  indicated 
by  the  value  in  the  serial  status  flag  upon  return.  (See 
READST  for  details.) 

LOAD  65493  $FFD5 

This  routine  loads  a  program  file  from  tape  or  disk  into  a 
specified  area  of  memory,  or  verifies  a  program  file  against  the 
contents  of  a  specified  area  of  memory.  A  number  of  prepara- 
tory routines  must  be  called  before  LOAD:  SETLFS,  SETNAM, 
and  (for  the  128  only)  SETBNK.  See  the  discussions  of  those 
routines  for  details. 

SETLFS  establishes  the  device  number  and  secondary  ad- 
dress for  the  operation.  (The  logical  file  number  isn't  significant 
for  loading  or  verifying.)  The  secondary-address  value  deter- 
mines whether  the  load/verify  will  be  absolute  or  relocating. 
If  bit  0  of  the  secondary  address  is  %0  (if  the  value  is  0  or  any 
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even  number,  for  example),  a  relocating  load  will  be  performed: 
The  file  will  be  loaded  starting  at  the  address  specified  in  .X 
and  .Y.  If  the  bit  is  %1  (if  the  value  is  1  or  any  odd  number, 
for  example),  an  absolute  load  will  be  performed:  The  data 
will  be  loaded  starting  at  the  address  specified  in  the  file  itself. 
For  tape  files,  the  secondary-address  specification  can  be  over- 
ridden by  the  file's  internal  type  specification.  Nonrelocatable 
tape  program  files  always  load  at  their  absolute  address, 
regardless  of  the  secondary  address. 

When  calling  the  LOAD  routine,  the  accumulator  should 
hold  the  operation  type  value  (0  for  a  load,  or  any  nonzero 
value  for  a  verify).  If  the  secondary  address  specifies  a  relocat- 
ing load,  the  starting  address  at  which  data  is  to  be  loaded 
should  be  stored  in  .X  (low  byte)  and  .Y  (high  byte).  The  val- 
ues of  .X  and  .Y  are  irrelevant  for  an  absolute  load. 

The  status-register  carry  bit  will  be  clear  upon  return  if 
the  file  was  successfully  loaded,  or  set  if  an  error  occurred  or  if 
the  RUN/STOP  key  was  pressed  to  abort  the  load.  When 
carry  is  set  upon  return,  the  accumulator  will  hold  a  Kernal  er- 
ror-code value  indicating  the  problem.  Possible  error  codes  in- 
clude 4  (file  was  not  found),  5  (device  was  not  present),  8  (no 
name  was  specified  for  a  serial  load),  9  (an  illegal  device  num- 
ber was  specified). 

On  the  128  only,  the  load  will  be  aborted  if  it  extends  be- 
yond address  $FEFF.  This  prevents  corruption  of  the  MMU 
configuration  register  at  $FF00.  In  this  case,  an  error  code  of 
16  will  be  returned.  The  success  of  the  operation  will  also  be 
indicated  by  the  value  in  the  tape/serial  status  flag.  (See 
READST  for  details.) 

MEMBOT  65436  $FF9C 

MEMTOP  65433  $FF99 

These  routines  read  or  set  the  Kemal's  bottom-of-memory 
pointer  and  top-of-memory  pointer,  respectively.  (The  bottom- 
of-memory  pointer  is  at  locations  $0281-$0282  for  the  64  or 
$0A05-$0AO6  for  the  128;  the  top-of-memory  pointer  is  at 
locations  $0283-$0284  for  the  64  or  $0A07-$0A08  for  the 
128.)  To  read  the  pointer,  call  the  routine  with  the  carry  flag 
set;  the  pointer  value  will  be  returned  in  .X  (low  byte)  and  .Y 
(high  byte).  To  set  the  pointer,  call  the  routine  with  the  carry 
flag  clear  and  with  .X  and  .Y  containing  the  low  and  high 
bytes,  respectively,  of  the  desired  pointer  value. 
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OPEN  65472  $FFC0 

This  routine  opens  a  logical  file  to  a  specified  device  in 
preparation  for  input  or  output.  At  least  one  preparatory  step 
is  required  before  the  standard  OPEN  routine  is  called: 
SETLFS  must  be  called  to  establish  the  logical  file  number,  de- 
vice number,  and  secondary  address.  For  tape  (device  1),  RS- 
232  (device  2),  or  serial  (device  4  or  higher),  SETNAM  is  also 
required  to  specify  the  length  and  address  of  the  associated 
filename.  For  the  128,  SETBNK  must  be  called  to  establish  the 
bank  number  where  the  filename  can  be  found. 

It  is  not  necessary  to  load  any  registers  before  calling 
OPEN,  and  all  processor  register  values  may  be  changed  dur- 
ing the  routine.  The  carry  will  be  clear  if  the  file  was  succee  - 
fully  opened,  or  it  will  be  set  if  it  could  not  be  opened.  When 
carry  is  set  upon  return,  the  accumulator  will  hold  an  error 
code  indicating  the  problem.  Possible  error-code  values  in- 
clude 1  (ten  files — the  maximum  allowed — are  already  open), 
2  (a  currently  open  file  already  uses  the  specified  logical  file 
number),  and  5  (specified  device  did  not  respond).  The  RS-232 
and  tape/serial  status  flags  will  also  reflect  the  success  of  the 
operation  for  those  devices.  (See  READST  for  details.) 

On  the  128,  there  is  an  exception  to  the  carry-bit  rule.  Be- 
cause of  a  bug  in  the  128's  RS-232  OPEN  routine,  carry  will 
be  set  if  the  RS-232  device  is  present  when  x-line  handshaking 
is  used  (if  the  DSR  line  is  high),  or  clear  if  the  device  is  ab- 
sent— the  opposite  of  the  proper  setting. 

The  JMP  to  the  OPEN  execution  routine  is  by  way  of  the 
IOPEN  indirect  vector  $031A-$031B.  You  can  modify  the  ac- 
tions of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 

PLOT  65520  $FFF0 

This  routine  reads  or  sets  the  cursor  position  on  the  active  dis- 
play. If  it  is  called  with  the  status-register  carry  bit  clear,  the 
value  in  .X  specifies  the  new  cursor  row  (vertical  position), 
and  the  value  in  .Y  specifies  the  column  (horizontal  position). 
The  carry  bit  will  be  set  upon  return  if  the  specified  column  or 
row  values  are  beyond  the  right  or  bottom  margins  of  the  cur- 
rent output  window,  or  it  will  be  clear  if  the  cursor  was 
successfully  positioned. 

If  the  routine  is  called  with  the  carry  bit  set,  the  row  num- 
ber for  the  current  cursor  position  is  returned  in  .X  and  the 
current  column  number  is  returned  in  .Y.  For  the  Commodore 
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128,  the  cursor  position  will  be  relative  to  the  home  position 
of  the  current  output  window  rather  than  to  the  upper  left  cor- 
ner of  the  screen.  Of  course,  in  the  case  of  a  full-screen  output 
window — the  default  condition — the  upper  left  corner  of  the 
screen  is  the  home  position  of  the  window. 

RAMTAS  65415  $FF87 

This  routine  clears  zero-page  RAM  (locations  $02-$FF)  and 
initializes  Kernal  memory  pointers  in  zero  page.  For  the  64 
only,  the  routine  also  clears  pages  2  and  3  (locations 
$0200-$03FF),  tests  all  RAM  locations  from  $0400  upwards 
until  ROM  is  encountered,  and  sets  the  top-of-memory 
pointer.  For  the  128,  the  routine  sets  the  BASIC  restart  vector 
($0A00)  to  point  to  BASIC'S  cold-start  entry  address,  $4000. 

RDTIM  65502  $FFDE 

This  routine  returns  the  current  value  of  the  jiffy  clock.  The 
clock  value  corresponds  to  the  number  of  jiffies  (1/60-second 
intervals)  that  have  elapsed  since  the  system  was  turned  on  or 
reset,  or  the  number  of  jiffies  since  midnight  if  the  clock  value 
has  been  set.  The  low  byte  of  the  clock  value  (location  $A2)  is 
returned  in  A,  the  middle  byte  (location  $A1)  in  .X,  and  the 
high  byte  (location  $A0)  in  .Y. 

READST  65463  $FFB7 

This  routine  (some  Commodore  references  call  it  READSS)  re- 
turns the  status  of  the  most  recent  I/O  operation.  The  status 
value  will  be  in  the  accumulator  upon  return;  the  contents  of 
.X  and  .Y  are  unaffected.  If  the  current  device  number  is  2  (in- 
dicating an  RS-232  operation),  the  status  value  is  retrieved 
from  the  RS-232  status  flag  (location  $0297  for  the  64  or 
$0A14  for  the  128),  and  the  flag  is  cleared.  Otherwise,  the  sta- 
tus value  is  retrieved  from  the  tape/serial  status  flag  (location 
$90).  That  flag  is  not  cleared  after  being  read. 


Sit 

Value 

Meaning  if  set 

Meaning  if  set 

Meaning  if  set 

Serial 

Tape 

RS-232 

0 

1/$01 

write  timeout 

parity  error 

1 

2/$02 

read  timeout 

framing  error 

2 

4/$04 

short  block 

receiver  buffer  overflow 

3 

8/$08 

long  block 

receiver  buffer  empty 

4 

16/S10 

verify  mismatch 

unrecoverable  read 
or  verify  mismatch 

CTS  missing 

5 

32/$20 

checksum  mismatch 

6 

64/$40 

EOI  (end  of  file) 

end  of  file 

DSR  missing 

7 

128/S80 

device  not  present 

end  of  tape 

break 
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RESTOR  65418  $FF8A 

This  routine  resets  the  Kernal  indirect  vectors  ($0314-$0333) 
to  their  default  values.  All  processor  registers  are  affected. 

SAVE  65496  $FFD8 

This  routine  saves  the  contents  of  a  block  of  memory  to  disk 
or  tape.  It  could  be  a  BASIC  or  ML  program,  but  it  doesn't 
have  to  be.  A  number  of  preparatory  routines  must  be  called 
first:  SETLFS,  SETNAM,  and  (for  the  128  only)  SETBNK.  See 
the  discussions  of  those  routines  for  details. 

SETLFS  establishes  the  device  number  and  secondary  ad- 
dress for  the  operation.  (The  logical  file  number  isn't  signifi- 
cant for  saving.)  The  secondary  address  is  irrelevant  for  saves 
to  serial  devices,  but  for  tape  it  specifies  the  header  type.  If  bit 
0  of  the  secondary  address  value  is  %1  (if  the  value  is  1,  for 
example),  the  data  will  be  stored  in  a  nonrelocatable  file — one 
that  will  always  load  to  the  same  memory  address  from  which 
it  was  saved.  Otherwise,  the  data  will  be  stored  in  a  file  that 
can  be  loaded  to  another  location.  If  bit  1  of  the  secondary  ad- 
dress is  %1  (if  the  value  is  2  or  3,  for  example),  the  file  will  be 
followed  by  an  end-of-tape  marker. 

Before  calling  SAVE,  you  must  also  set  up  a  two-byte 
zero-page  pointer  containing  the  starting  address  of  the  block 
of  memory  to  be  saved  and  then  store  the  address  of  the  zero- 
page  pointer  in  the  accumulator.  The  ending  address  (plus 
one)  for  the  save  should  be  stored  in  .X  (low  byte)  and  .Y 
(high  byte).  To  save  the  entire  contents  of  the  desired  area,  it's 
important  to  remember  that  .X  and  .Y  must  hold  an  address 
that  is  one  location  beyond  the  desired  ending  address. 

When  the  save  is  complete,  the  carry  will  be  clear  if  the 
file  was  successfully  saved,  or  set  if  an  error  occurred  (or  if  the 
RUN/STOP  key  was  pressed  to  abort  the  save).  When  carry  is 
set  upon  return,  the  accumulator  will  hold  the  Kernal  error 
code  indicating  the  problem.  Possible  error-code  values  in- 
clude 5  (serial  device  was  not  present),  8  (no  name  was  speci- 
fied for  a  serial  save),  and  9  (an  illegal  device  number  was 
specified).  The  success  of  the  operation  will  also  be  indicated 
by  the  value  in  the  tape/serial  status  flag.  (See  READST  for 
details.) 

SCNKEY  65439  $FF9F 

This  routine  scans  the  keyboard  matrix  to  determine  which 
keys,  if  any,  are  currently  pressed.  The  standard  IRQ  service 
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routine  calls  SCNKEY,  so  it's  not  usually  necessary  to  call  it 
explicitly  to  read  the  keyboard.  The  character  code  for  the  key 
currently  pressed  is  loaded  into  the  keyboard  buffer,  from 
where  it  can  be  retrieved  using  the  Kernal  GETIN  routine.  The 
matrix  code  of  the  keypress  read  during  this  routine  can  also 
be  read  in  location  $CB  (64)  or  $D4  (128),  and  the  status  of 
the  shift  keys  can  be  read  in  location  $028D  (64)  or  $D3  (128). 

SCREEN  65517  $FFED 

This  routine  (Commodore  128  literature  calls  it  SCRORG)  re- 
turns information  on  the  size  of  the  screen  display.  For  the  64, 
the  routine  always  returns  the  same  values — the  screen  width 
in  columns  (40)  in  .X  and  the  screen  height  in  rows  (25)  in  .Y. 
The  accumulator  is  unaffected.  For  the  128,  the  values  returned 
reflect  the  size  of  the  current  output  window.  The  X  register 
will  contain  in  the  current  window  the  number  of  columns  mi- 
nus one,  and  .Y  will  contain  the  number  of  rows  minus  one. 
The  accumulator  will  hold  the  maximum  column  number  for 
the  display  currently  active  (39  for  the  40-column  screen  or  79 
for  the  80-column  screen). 

SECOND     •  65427  $FF93 

This  low-level  serial  I/O  routine  sends  a  secondary  address  to 
a  device  which  has  been  commanded  to  listen.  The  value  in 
the  serial  status  flag  upon  return  will  indicate  whether  the  op- 
eration was  successful. 

SETLFS  65466  $FFBA 

This  routine  assigns  the  logical  file  number  (location  $B8),  de- 
vice number  (location  $BA),  and  secondary  address  (location 
$B9)  for  the  current  I/O  operation.  Call  the  routine  with  the 
accumulator  holding  the  logical  file  number,  .X  holding  the 
device  number,  and  .Y  holding  the  secondary  address.  All  reg- 
ister values  are  preserved  during  the  routine.  Refer  to  the 
LOAD  and  SAVE  routines  for  the  special  significance  of  the 
secondary  address  in  those  cases.  When  OPENing  files  to  se- 
rial devices,  it's  vital  that  each  logical  file  have  a  unique 
secondary  address.  In  the  128  Kernal,  the  LKUPLA  and 
LKUPSA  routines  can  be  used  to  find  unused  logical  file  num- 
bers and  secondary  addresses. 

SETMSG  65424  $FF90 

SETMSG  sets  the  value  of  the  Kernal  message  flag  (location 
$9D).  Call  the  routine  with  the  accumulator  holding  the  de- 
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sired  flag  value  (.X  and  .Y  are  unaffected.)  Valid  flag  values 
are  0  (no  Kernal  messages  are  displayed),  64  (only  error  mes- 
sages are  displayed),  128  (only  control  messages — PRESS 
PLAY  ON  TAPE,  for  example— are  displayed),  and  192  (both 
error  and  control  messages  are  displayed). 

SETNAM  65469  $FFBD 

This  routine  assigns  the  length  (location  $B7)  and  address 
(locations  $BB-$BC)  of  the  filename  for  the  current  I/O  opera- 
tion. Call  the  routine  with  the  length  of  the  filename  in  .A  and 
the  address  of  the  first  character  of  the  name  in  .X  (low  byte) 
and  .Y  (high  byte).  If  no  name  is  used  for  the  current  opera- 
tion, load  the  accumulator  with  0;  the  values  in  .X  and  .Y  are 
then  irrelevant.  All  register  values  are  preserved  during  this 
routine. 

SETTIM  65499  $FFDB 

This  routine  sets  the  value  in  the  software  jiffy  clock.  The 
value  in  the  accumulator  is  transferred  to  the  low  byte  (loca- 
tion $A2),  the  value  in  .X  to  the  middle  byte  (location  $A1), 
and  the  value  in  .Y  to  the  high  byte  (location  $A0).  The  speci- 
fied value  should  be  less  than  $4F1A01,  which  corresponds  to 
24:00:00  hours. 

SETTMO  65442  $FFA2 

The  SETTMO  routine  stores  the  contents  of  the  accumulator  in 
the  IEEE  timeout  flag.  (.X  and  .Y  are  unaffected.)  This  routine 
is  superfluous,  since  the  flag  isn't  used  by  any  64  or  128  ROM 
routine.  It  is  present  merely  to  maintain  consistency  with  pre- 
vious versions  of  the  Kernal.  For  the  64,  the  flag  location  is 
$0285;  for  the  128,  it's  at  $0A0E. 

STOP  65505  $FFE1 

This  routine  checks  whether  the  RUN/STOP  key  is  currently 
pressed.  It  returns  with  the  status-register  Z  bit  clear  if  the  key 
is  not  pressed,  or  with  the  bit  set  if  it  is  pressed.  Additionally, 
if  RUN/STOP  is  pressed  the  CLRCH  routine  is  called  to  re- 
store default  I/O  channels,  and  the  count  of  keys  in  the  key- 
board buffer  is  reset  to  zero. 

The  JMP  to  the  STOP  execution  routine  is  by  way  of  the 
ISTOP  indirect  vector  at  $0328-$0329.  You  can  modify  the  ac- 
tions of  the  routine  by  changing  the  vector  to  point  to  a  rou- 
tine of  your  own. 
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TALK  65460  $FFB4 

This  low-level  I/O  routine  sends  a  TALK  command  to  a  serial 
device.  Call  the  routine  with  the  accumulator  holding  the 
number  (4-31)  of  the  device.  The  success  of  the  operation  will 
be  indicated  by  the  value  in  the  serial  status  flag  upon  return. 
(See  READST  for  details.) 

TKSA  65430  $FF96 

This  low-level  serial  I/O  routine  sends  a  secondary  address  to 
a  device  which  has  previously  been  commanded  to  talk.  The 
success  of  the  operation  will  be  indicated  by  the  value  in  the 
serial  status  flag  upon  return.  (See  READST  for  details.) 

UDTIM  65514  $FFEA 

This  routine  increments  the  software  jiffy  clock  and  scans  the 
keyboard  column  containing  the  RUN/STOP  key.  (The  128 
version  of  the  routine  also  decrements  a  countdown  timer.) 
This  routine  is  normally  called  every  1/60  second  as  part  of 
the  standard  IRQ  service  routine. 

UNLSN  65454  $FFAE 

This  low-level  I/O  routine  sends  an  UNLISTEN  command  to 
all  devices  on  the  serial  bus.  Any  devices  which  are  currently 
listeners  will  cease  accepting  data. 

UNTLK  65451  $FFAB 

This  low-level  I/O  routine  sends  an  UNTALK  command  to  all 
devices  on  the  serial  bus.  Any  devices  which  are  currently 
talkers  will  cease  sending  data. 

VECTOR  65421  $FF8D 

This  routine  can  be  used  either  to  store  the  current  values  of 
Kernal  indirect  vectors  at  $0314-$0333  or  to  write  new  values 
to  the  vectors.  When  calling  this  routine,  .X  and  .Y  should  be 
loaded  with  the  address  of  a  32-byte  table  (low  byte  in  .X, 
high  byte  in  .Y).  If  the  status-register  carry  bit  is  clear  when 
the  routine  is  called,  the  vectors  will  be  loaded  with  the  values 
from  the  table.  If  carry  is  set,  the  16  two-byte  address  values 
currendy  in  the  vectors  will  be  copied  to  the  table. 

New  128  Kernal  Jump  Table 

Locations  $FF47-$FF7F  comprise  a  new  table  of  jump  vectors 
to  routines  found  in  Commodore  128  ROM,  but  not  in  the 
Commodore  64. 
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BOOT-CALL  65363  $FF53 

This  routine  attempts  to  load  and  execute  boot  sectors  from  a 
specified  disk  drive.  Call  the  routine  with  .X  holding  the  de- 
vice number  for  the  drive  (usually  8)  and  with  the  accu- 
mulator holding  the  character  code  corresponding  to  the  drive 
number — not  the  actual  drive  number.  The  single  drive  in 
1541  and  1571  units  is  drive  0;  in  this  case,  use  48,  the  charac- 
ter code  for  zero.  If  the  specified  drive  is  not  present  or  is 
turned  off,  or  if  the  disk  in  the  drive  does  not  contain  a  valid 
boot  sector,  the  routine  will  return  with  the  status-register 
carry  bit  set.  If  a  boot  sector  is  found,  it  will  be  loaded  into 
locations  $0B00-$0BFF.  Additional  boot  sectors  may  be  loaded 
into  other  areas  of  memory,  and  the  boot  code  may  not  return 
to  this  routine. 

CLOSE_ALL  65354  $FF4A 

This  routine  closes  all  files  currently  opened  to  a  specified  de- 
vice, providing  an  improved  version  of  CLALL.  Enter  the  rou- 
tine with  the  accumulator  holding  the  number  of  the  device 
on  which  files  are  to  be  closed.  If  the  specified  device  is  the 
current  input  or  output  device,  the  input  or  output  channel 
will  be  reset  to  the  default  device  (screen  or  keyboard).  If  all 
files  to  the  device  were  successfully  closed,  the  status-register 
carry  bit  will  clear  upon  return.  A  set  carry  bit  indicates  that  a 
device  error  occurred. 

C64-MODE  65357  $FF4D 

This  is  the  equivalent  of  the  BASIC  command  GO  64.  It  per- 
forms an  immediate  cold  start  of  64  mode.  To  get  back  to  128 
mode,  it  is  necessary  to  reset  the  computer,  or  to  turn  it  off 
and  back  on. 

DLCHR  65378  $FF62 

This  routine  copies  character  shape  data  for  both  standard 
ROM  character  sets  into  the  VDC  video  chip's  private  block  of 
RAM,  providing  character  definitions  for  the  80-column  dis- 
play. (The  VDC  has  no  character  ROM.)  This  routine  is  also 
called  as  part  of  IOrNIT  for  the  128. 

DMA_CALL  65360  $FF50 

This  routine  passes  a  command  to  a  DMA  (Direct  Memory  Ac- 
cess) device.  The  DMA  device  will  then  take  control  of  the 
system  to  execute  the  command.  The  routine  is  written  to  sup- 
port the  REC  (RAM  Expansion  Controller)  chip  in  the  1700 
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and  1750  Memory  Expansion  Modules,  the  only  DMA  periph- 
erals currently  available.  Call  the  routine  with'.Y  holding  the 
command  for  the  DMA  device  and  .X  holding  the  bank  number 
for  the  operation.  Other  preparatory  steps  may  be  required, 
depending  on  the  command. 

GETCFG  65387  $FF6B 

This  routine  translates  a  bank  number  (0-15)  into  the 
corresponding  MMU  register  setting  to  configure  the  system 
for  that  bank.  Call  the  routine  with  .X  holding  the  bank  num- 
ber. Upon  return,  the  accumulator  will  hold  the  corresponding 
MMU  configuration  register  value.  (.Y  is  unaffected.)  Once  you 
have  this  value,  you  can  store  it  into  $FF00  to  change  banks. 
The  input  bank  number  is  not  checked  for  validity,  and  a 
number  outside  the  acceptable  range  will  return  a  meaningless 
value. 

INDCMP  65402  $FF7A 

This  routine  compares  .A  to  the  number  held  in  a  memory 
location  in  a  specified  bank.  In  preparing  to  call  INDCMP, 
load  a  two-byte  zero-page  pointer  with  the  address  of  the 
location  with  which  the  accumulator  is  to  be  compared  (or 
with  the  base  location  if  a  series  of  bytes  is  to  be  compared), 
then  store  the  address  of  this  pointer  in  location  $02C8.  Call 
the  routine  with  the  accumulator  holding  the  byte  to  be  com- 
pared, .X  holding  the  bank  number  (0-15)  for  the  target  loca- 
tion, and  .Y  holding  an  offset  value  which  will  be  added  to 
the  address  in  the  pointer.  (Load  .Y  with  0  if  no  offset  is  de- 
sired.) Upon  return,  the  accumulator  will  still  hold  the  byte 
value,  and  the  status-register  N,  Z,  and  C  (carry)  bits  will  re- 
flect the  result  of  the  comparison.  The  value  in  .Y  will  also  be 
preserved,  but  it  is  necessary  to  reload  .X  with  the  bank  num- 
ber before  every  call  to  this  routine.  You  can  compare  up  to 
256  sequential  locations  without  changing  the  address  in  the 
zero-page  pointer  by  simply  incrementing  .Y  between  calls. 

INDFET  65396  $FF74 

This  routine  reads  the  contents  of  a  location  in  a  specified 
bank.  Prior  to  calling  this  routine,  you  must  load  a  two-byte 
zero-page  pointer  with  the  address  of  the  location  to  be  read 
(or  with  the  base  location  if  a  series  of  bytes  is  to  be  read). 

Call  the  routine  with  the  accumulator  holding  the  address 
of  the  zero-page  pointer,  .X  holding  the  bank  number  (0-15) 
for  the  target  location,  and  .Y  holding  an  offset  value  which 
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will  be  added  to  the  address  in  the  pointer.  (Load  .Y  with  0  if 
no  offset  is  desired.)  Upon  return,  the  accumulator  will  hold 
the  byte  from  the  specified  address.  The  value  in  .Y  is  not 
changed. 

To  read  from  a  series  of  locations,  it  is  necessary  to  reload 
the  accumulator  and  .X  values  before  every  call  to  this  routine, 
but  you  can  read  up  to  256  sequential  locations  without 
changing  the  address  in  the  zero-page  pointer  by  incrementing 
.Y  between  calls. 

INDSTA  65399  $FF77 

This  routine  stores  a  value  at  an  address  in  a  specified  bank. 
Before  calling  the  routine,  you  must  load  a  two-byte  zero-page 
pointer  with  the  address  of  the  location  at  which  the  byte  is  to 
be  stored  (or  with  the  base  location  if  a  series  of  bytes  is  to  be 
stored),  and  then  store  the  address  of  this  pointer  in  location 
S02B9.  Call  the  routine  with  the  accumulator  holding  the  byte 
to  be  stored,  .X  holding  the  bank  number  (0-15)  for  the  target 
location,  and  ,Y  holding  an  offset  value  which  will  be  added 
to  the  address  in  the  pointer.  (Load  Y  with  0  if  no  offset  is  de- 
sired.) Upon  return,  the  accumulator  will  still  hold  the  byte 
value;  .Y  is  also  preserved.  To  write  to  a  series  of  locations, 
you  must  reload  .X  with  the  bank  number  before  every  call, 
but  you  can  write  to  up  to  256  sequential  locations  without 
changing  the  address  in  the  zero-page  pointer  by  simply  in- 
crementing .Y  between  calls. 

JMPFAR  65393  SFF71 

JMPFAR  jumps  to  a  routine  in  a  specified  bank,  with  no  return 
to  the  calling  bank.  Prior  to  calling  this  routine,  you  must  store 
the  bank  number  (0-15)  of  the  target  routine  in  location  2  and 
the  address  of  the  target  routine  in  locations  3-4  in  high- 
byte/low-byte  order,  opposite  from  the  usual  arrangement. 
Load  location  5  with  the  value  you  want  placed  in  the  status 
register  when  the  target  routine  is  entered.  (The  behavior  of 
many  operating-system  routines  is  influenced  by  the  status- 
register  setting,  particularly  the  state  of  the  carry  bit.  Load  5 
with  the  value  0  to  clear  carry  or  with  1  to  set  carry.)  To  pass 
other  register  values,  store  the  desired  accumulator  value  in 
location  6,  the  value  for  .X  in  7,  and  the  value  for  .Y  in  8. 

JSRFAR  65390  $FF6E 

This  routine  jumps  to  a  subroutine  in  a  specified  bank  and  re- 
turns to  the  calling  routine  in  bank  15.  Prior  to  calling  this 
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routine,  you  must  store  the  bank  number  (0-15)  of  the  target 
routine  in  location  2  and  the  address  of  the  target  routine  in 
locations  3-4  (in  high-byte/low-byte  order,  opposite  from  the 
usual  arrangement).  Load  location  5  with  the  value  you  want 
placed  in  the  status  register  when  the  target  routine  is  called. 
(The  behavior  of  many  operating  system  routines  is  influenced 
by  the  status-register  setting,  particularly  the  state  of  the  carry 
bit.  Load  5  with  the  value  0  to  clear  carry,  or  with  1  to  set 
carry.)  To  pass  other  register  values  to  the  routine  you  will  be 
calling,  store  the  desired  accumulator  value  in  location  6,  the 
value  for  .X  in  7,  and  the  value  for  .Y  in  8.  Upon  return,  loca- 
tion 5  will  hold  the  status-register  value  at  the  time  of  exit,  6 
will  hold  the  accumulator  value,  7  will  hold  the  .X  value,  8 
will  hold  the  .Y  value,  and  9  will  hold  the  stack-pointer  value. 
The  system  is  always  configured  for  bank  15  upon  exit. 

LKUPLA  65369  $FF59 

This  routine  checks  whether  a  specified  logical  file  number  is 
currently  used.  Call  the  routine  with  the  accumulator  holding 
the  logical-file-number  value  in  question.  If  that  file  number  is 
available,  the  carry  bit  will  be  set  upon  return.  (The  logical  file 
number  will  still  be  in  the  accumulator.)  However,  if  the  num- 
ber is  used  for  a  currently  open  file,  then  the  carry  bit  will  be 
clear  upon  return,  the  accumulator  will  still  hold  the  logical 
file  number,  .X  will  hold  the  corresponding  device  number, 
and  .Y  will  hold  the  corresponding  secondary  address. 

LKUPSA  65372  $FF5C 

This  routine  checks  whether  a  specified  secondary  address  is 
currently  in  use.  Call  the  routine  with  .Y  holding  the  secondary- 
address  value  in  question.  If  that  secondary  address  is  not 
currently  used,  the  status-register  carry  bit  will  be  set  upon  re- 
turn. (The  secondary-address  value  will  still  be  in  .Y.)  How- 
ever, if  the  number  is  used  for  a  currently  open  file,  the  carry 
bit  will  be  clear  upon  return,  .Y  will  still  hold  the  secondary 
address,  the  accumulator  will  hold  the  associated  logical  file 
number,  and  .X  will  hold  the  corresponding  device  number. 

PFKEY  65381  $FF65 

When  you  turn  on  the  128,  its  function  keys  are  predefined. 
Pressing  F3  prints  DIRECTORY,  F7  holds  the  LIST  command, 
and  so  on.  The  PFKEY  Kernal  routine  assigns  a  new  definition 
to  one  of  the  10  programmable  function  keys  (F1-F8,  SHIFT- 
RUN/STOP,  and  HELP). 
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Call  the  routine  with  the  accumulator  holding  the  address 
of  a  three-byte  zero-page  string  descriptor,  .X  holding  the  key 
number  (1-10),  and  .Y  holding  the  length  of  the  new  defi- 
nition string.  The  first  two  bytes  of  the  descriptor  in  zero  page 
should  contain  the  address  of  the  definition  string  (in  the 
usual  low-byte/high-byte  order);  the  final  byte  should  hold 
the  bank  number  where  the  definition  string  is  located.  PFKEY 
doesn't  check  the  key  number  for  validity;  a  value  outside  the 
acceptable  range  may  garble  existing  definitions.  Upon  return, 
the  carry  bit  will  be  clear  if  the  new  definition  was  success- 
fully added,  or  set  if  there  was  insufficient  room  in  the  defi- 
nition table  for  the  new  definition. 

PHOENIX  65366  $FF56 

This  routine  initializes  function  ROMs  and  attempts  to  boot  a 
disk  from  the  default  drive.  The  presence  of  function  ROMs  in 
cartridges  or  in  the  128's  spare  ROM  socket  is  recorded  during 
the  power-on/reset  sequence.  This  routine  initializes  the  func- 
tion ROMs  by  calling  their  recorded  cold-start  entry  addresses. 
If  ROMs  are  present,  they  may  or  may  not  return  to  this  rou- 
tine, depending  on  the  initialization  steps  performed.  If  no 
ROMs  are  present,  or  if  all  ROMs  return  after  initialization, 
the  routine  attempts  to  boot  a  disk  in  drive  0  of  device  8  using 
the  BOOT_CALL  routine. 

PRIMM  65405  $FF7D 

This  routine  prints  the  string  of  character  codes  which  im- 
mediately follows  the  JSR  to  this  routine.  (You  must  always 
call  this  routine  with  JSR,  never  with  IMP.  Only  JSR  places  the 
required  address  information  on  the  stack.)  The  routine  contin- 
ues printing  bytes  as  character  codes  until  a  byte  containing 
zero  is  encountered.  When  the  ending  marker  is  found,  the 
routine  returns  to  the  address  immediately  following  the  zero 
byte.  All  registers  (.A,  .X,  and  .Y)  are  preserved  during  this 
routine. 

SETBNK  65384  $FF68 

This  Kernal  routine  establishes  the  current  memory  bank  from 
which  data  will  be  read  or  to  which  data  will  be  written  dur- 
ing load/save  operations,  as  well  as  the  bank  where  the  file- 
name for  the  I/O  operations  can  be  found.  Call  the  routine 
with  the  accumulator  holding  the  bank  number  for  data  and 
.X  holding  the  bank  for  the  filename.  All  registers  (.A,  .X,  and 
.Y)  are  preserved  during  this  routine. 
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SPIN-SPOUT  65351  $FF47 

This  low-level  serial  I/O  routine  sets  up  the  serial  bus  for  fast 
(burst  mode)  communications.  Unless  you're  writing  a  custom 
data-transfer  routine,  it's  not  necessary  to  call  this  routine 
explicitly.  All  higher-level  serial  I/O  routines  already  include 
this  setup  step.  The  routine  should  be  called  with  the  status- 
register  carry  bit  clear  to  establish  fast  serial  input  or  with  the 
bit  set  to  establish  fast  serial  output. 

SWAPPER  65375  $FF5F 

This  routine  switches  active  screen  displays.  The  active  display 
is  the  one  which  has  a  live  cursor,  and  to  which  screen 
CHROUT  output  is  directed.  The  routine  exchanges  the  active 
and  inactive  screen-editor  variable  tables,  tab-stop  bitmaps, 
and  line-link  bitmaps;  and  it  toggles  the  active  screen  flag 
(location  $D7).  The  routine  doesn't  physically  turn  either 
video  chip  on  or  off — both  chips  always  remain  enabled. 
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Name 

Add  two  bytes  and  store  the  result 

Description 

Adding  is  one  of  the  essential  arithmetic  functions  in  machine 
language  (or  in  any  computer  language).  This  routine  simply 
adds  two  numbers  and  stores  the  result  in  memory. 

Prototype 

1.  Load  the  first  number  from  memory. 

2.  Clear  the  carry  flag  with  a  CLC  instruction. 

3.  Add  the  second  number  with  ADC. 

4.  Save  the  result  in  memory. 

Explanation 

The  framing  routine  waits  for  a  keypress,  then  stores  the 
ASCII  value  in  memory.  It  gets  a  second  ASCII  value,  then 
prints  the  two  numbers.  After  the  ADDBYT  routine  is  called, 
the  answer  is  printed. 

If  you  want  a  proper  result,  you  should  always  clear  carry 
before  using  the  ADC  instruction.  ADC  really  adds  three  num- 
bers: two  that  are  in  the  range  0-255  and  one  (the  carry  flag) 
that's  either  0  or  1.  Adding  10  +  10  with  carry  set 
(10  +  10  +  1)  will  give  you  a  result  of  21. 

Note:  If  the  result  of  the  addition  is  greater  than  255,  the 
additional  bit  which  represents  a  value  of  256  will  be  in  the 
carry  flag  (carry  will  be  set).  If  you're  adding  signed  bytes  and 
the  answer  is  greater  than  127,  the  overflow  (V)  flag  will  be  set. 

Routine 


cooo 

GETTN 

= 

$FFE4 

cooo 

UNPRT 

— 

$BDCD 

;  LINPRT  =  $8E32  on  tb 

cooo 

CHROUT 

*= 

$FFD2 

cooo 

20 

37 

CO 

JSR 

GETKEY 

;  get  a  key  (ASCII  value) 

C003 

3D 

3D 

CO 

STA 

NUMBER  1 

:  store  it 

C006 

20 

37 

CO 

JSR 

GETKEY 

:  get  a  second  key 

C009 

8D 

3E 

CO 

STA 

NUMBER2 

:  store  it,  too 

cooc 

AE 

3D 

CO 

LDX 

NUMBER1 

;  now  print  it 

C00F 

A9 

00 

LDA 

#0 

con 

20 

CD 

BD 

JSR 

LINPRT 

C014 

A9 

0D 

LDA 

#13 

C016 

20 

D2 

FF 

JSR 

CHROUT 

i  print  <RETURN> 

C019 

AE 

3E 

CO 

LDX 

NUMBER2 

;  second  number 

C01C 

A9 

00 

LDA 

#0 

C01E 

20 

CD 

BD 

JSR 

LINPRT 

;  prim  it 

C021 

A9 

0D 

LDA 

#13 

C023 

20 

D2 

FF 

JSR 

CHROUT 

;  <RETURN>  again 

COM 

AD 

3D 

CO 

ADDBYT 

LDA 

.'NUMBER] 

;  the  first  number 

C029 

18 

CLC 

;  clear  the  carry  flag 

ADDBYT 


C02A 
C02D 

6D 
8D 

3E 

3F 

CO 
CO 

ADC 

STA 

NUMBER2 
TOTAL 

;  add  the  second 
;  store  il 

C030 
C031 
C033 
C036 

AA 
A9 
20 
60 

00 
CD 

BD 

TAX 
I.DA 
J5R 
RTS 

#0 

UNPRT 

;  put  it  in  .X 
;  and  print  it 

C037 
C03A 
C03C 

20 
HI 
60 

E4 

FB 

FF 

GETKEV 

JSR 

BEQ 

RTS 

GETIN 
GETKEY 

C03D 
C03E 
C03T- 

00 
00 

oc 

NUMBERl 
NUMBER2 
TOTAL 

.BYTE 
.BYTE 
.BYTE 

0 
0 
0 

See  also  ADDFP,  ADDINT,  INC2. 
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Name 

Add  two  floating-point  numbers  using  the  ROM  routine 

Description 

Enter  this  routine  with  the  two  numbers  to  be  added  in  the 
floating-point  accumulators  FAC1  and  FAC2.  The  ROM  rou- 
tine FADDT  then  adds  them  together  and  returns  the  answer 
in  FAC1. 

Prototype 

1.  Store  one  number  in  FAC1. 

2.  Store  the  other  in  FAC2. 

3.  Call  FADDT. 

Explanation 

Like  most  of  the  other  floating-point  routines  in  this  book, 
ADDFP  depends  on  built-in  ROM  routines.  The  framing  pro- 
gram starts  by  converting  the  integer  15  to  floating-point  for- 
mat, via  GIVAYF.  Next,  MOVEF  moves  the  number  from 
FAC1  to  FAC2.  GIVAYF  converts  another  integer— 1325— to 
floating-point. 

The  numbers  are  added  in  ADDFP  which  simply  calls 
FADDT.  Back  in  the  main  routine,  FOUT  converts  FAC1  to  a 
printable  ASCII  format,  and  the  result  is  printed  to  the  screen. 

Routine 


cooo 

ZP 

— 

SFB 

cooo 

CHROUT 

= 

SFFD2 

cooo 

FADDT 

= 

$BS6A 

FADDT  -  $8848  on  the  128— adds  FAC1 
to  FAC2;  result  in  FAC1 

cooo 

MOVEF 

= 

$BC0F 

MOVEF  =  S8C3B  on  the  128— moves 

FAC1  toFAC2 

cooo 

GIVAYF 

= 

SB391 

GIVAYF  -  $AF03  on  the  128— converts 
integer  to  floating  point 

cooo 

FOUT 

SBDDD 

FOUT  =  $8E42  on  the  128— converts  FAC1 
to  ASCII  string 

Convert  the  numbers  15  and  1325  to 
floating  point  and  add  them. 

cooo 

A9 

00 

LDA 

#>15 

high  byte  of  15 

C002 

AO 

OF 

LDY 

«<15 

low  byte 

C0G4 

20 

91 

B3 

}SR 

GIVAYF 

convert  it,  now  it's  in  FAC1 

C007 

20 

OF 

BC 

JSR 

MOVEF 

move  FAC1  to  FAC2 

COOA 

A9 

05 

LDA 

*>1325 

high  byte  of  1325 

cooc 

AO 

2D 

LDY 

«<1325 

low  byte 

C00E 

20 

91 

B3 

JSR 

GTVAYF 

convert  it 

FAC1  now  holds  1325.  and  FAC2  holds  15. 

con 

20 

29 

CO 

JSR 

ADDFP 

add  them 

C014 

20 

DD 

BD 

JSR 

FOUT 

convert  to  ASCII 

C017 

85 

FB 

STA 

ZP 

pointer 
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C019  84  FC  STY  ZP+1 

C01B  AO  00  LDY  #0 

C01D  Bl  FB  PRTLOP       LDA  (ZP),Y 

COIF  DO  01  BNE  PRNTT 

C02I  60  RTS 

C022  20  D2    FF    PRNTT  JSR  CHROUT 

C025  C8  1NY 

C026  DO  F5  BNE  PRTLOP 

C028  60  RTS 


;  to  the  string 


COM     20     6A    B8    ADDFP 
C02C    60 


;sr 

RTS 


FADDT 

See  also  ADDBYT,  ADDINT,  INC2. 


add  FACI  and  FAC2 
the  result  is  in  FACI 
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Name 

Add  two  2-byte  integer  values  and  store  the  result  in  memory 

Description 

Adding  two  integers  is  a  matter  of  clearing  the  carry  flag  and 
then  using  the  ADC  (ADd  with  Carry)  instruction,  first  on  the 
low  byte  and  then  on  the  high  byte. 

Prototype 

1.  Clear  the  carry  flag. 

2.  Load  the  low  byte  of  the  first  number  into  .A. 

3.  Add  the  low  byte  of  the  second  number  and  store  the 
result. 

4.  Repeat  by  adding  the  high  bytes  of  the  two  numbers. 

Explanation 

Adding  multiple-byte  numbers  is  reasonably  easy.  The  im- 
portant thing  is  to  start  with  the  low  byte  and  work  your  way 
up  to  the  higher  bytes.  Remember  the  convention  that  low 
bytes  are  stored  in  memory  before  the  high  bytes.  The  number 
1000  is  hex  $03E8,  which  would  be  stored  as  an  $E8  followed 
by  an  $03. 

For  each  byte,  addition  is  a  three-step  process:  Load  the 
first  number  (LDA),  add  the  second  (ADC),  and  store  the  re- 
sult somewhere  (STA).  Also,  carry  should  be  cleared  before  the 
first  byte  is  added.  After  that,  carry  handles  itself. 

The  following  program  starts  with  the  number  1000  and 
loops  30  times,  repeatedly  adding  350  to  the  total  in  NUM1. 
After  each  step,  the  current  value  is  printed  to  the  screen. 

Routine 


cooo 

LINrRT 

= 

SBDCD 

;  LDMPRT  -  S8E32  on  the  128 

cooo 

CHROUT 

SFFD2 

:  Start  at  1000  and  add  350.  repeating  30 
:  times. 

cooo 

A9 

E8 

LDA 

»<1000 

;  set  up  NUM1 

C002 

8D 

47 

CO 

STA 

NUM1 

:  with  the  low  byte 

C0O5 

A9 

03 

LDA 

»>1000 

;  and  high  byte 

C007 

8D 

48 

CO 

STA 

NUM1+1 

C0OA 

A9 

5E 

LDA 

*<350 

;  NUM2  needs 

cooc 

8D 

49 

CO 

STA 

NUM2 

:  a  low  byte 

C0OF 

A9 

01 

LDA 

s>350 

:  and 

con 

6D 

4A 

CO 

STA 

NUM2+1 

:  a  high  byte 

COM 

A9 

IE 

LDA 

•30 

;  the  counter 

C016 

8D 

40 

CO 

STA 

RPT 

:  is  stored  in  RPT  (number  of  repetitions) 

C019 

20 

2A 

CO 

LOOP 

JSR 

PRNNUM 

;  print  the  number 

C01C 

A9 

20 

LDA 

#32 

:  space  character 

C01£ 

20 

D2   FF 

JSR 

CHROUT 

;  print  it 
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C021 

20     33 

CO 

ISR 

ADDINT 

add  NUM2  to  NUMt 

C024 

CE    4B 

CO 

DEC 

RPT 

RPT  counts  down 

C027 

DO    F0 

BNE 

LOOP 

and  loop  back  for  more 

C029 

60 

RTS 

finished 

C02A 

AE    47 

CO 

PRNNUM 

LDX 

NUM1 

low  byte  of  NUMJ 

C02D 

AD  48 

CO 

LDA 

NUM1  +  1 

high  byte 

C030 

4C    CD 

BD 

IMP 

LINPRT 

print  it  (RTS  is  implied) 

C033 

IS 

ADDINT 

CLC 

always  dear  carry  before  adding 

1  034 

AD  49 

CO 

LDA 

NUM2 

low  byte  of  NUM2 

C037 

6D    47 

CO 

ADC 

NUM1 

add  to  low  byte  of  NUM1 

C03A 

8D    47 

CO 

STA 

NUM1 

store  It 

Now  carry  is  indeterminate,  but  It's 
handled  by  the  ADC  below. 
-  Note  that  you  don't  CLC  before  adding 
the  high  byte. 

C03D 

AD  4A 

CO 

LDA 

NUM2+1 

high  byte 

am 

6D    48 

CO 

ADC 

NUM1+1 

add  it 

C043 

SD    48 

CO 

STA 

NUM1+1 

store  It 

C046 

60 

RTS 

done 

C047 

00    00 

NUM1 

-BYTE 

0.0 

• 

C049 

oo  oo 

NUM2 

.BYTE 

0.0 

C04B 

00 

RPT 

.BYTE 

0 

See  also  ADDBYT,  ADDFP,  INC2. 
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Name 

Set  up  a  time-of-day  (TOD)  alarm 

Description 

Both  CIA  time-of-day  clocks  are  equipped  with  a  built-in 
alarm  function.  To  use  the  alarm,  you  must  set  both  the  clock 
and  the  alarm  time,  just  as  you  would  on  any  alarm  clock. 
Rather  than  actually  sounding  a  tone  when  the  clock  time 
matches  the  alarm  time,  the  TOD  clock  triggers  an  interrupt. 
Your  program  must  then  take  appropriate  action,  depending 
upon  the  intended  use  of  the  alarm. 

A  TOD  alarm  can  be  used  in  any  number  of  ways.  In  an 
arcade-style  game,  it  can  signal  the  end  of  one  player's  turn, 
the  completion  of  a  particular  skill  level,  or  the  end  of  the 
game  itself.  In  an  educational  program,  the  alarm  can  signal 
when  the  user  has  taken  too  much  time  to  respond. 

The  alarm  mechanisms  on  the  two  TOD  clocks  are  prac- 
tically identical.  The  only  difference  is  that,  because  of  the 
way  the  CIA  chips  are  wired  into  the  system,  TOD  clock  1 
causes  an  IRQ  interrupt  while  TOD  clock  2  triggers  an  NMI 
interrupt.  In  ALARM2,  we  produce  a  tone  when  the  second 
TOD  clock  alarm  causes  such  an  interrupt. 

Prototype 

In  ALARM2: 

1 .  Store  the  current  time  in  binary-coded  decimal  (BCD)  for- 
mat as  TIMSET  at  the  end  of  the  program. 

2.  Define  the  alarm  time  in  BCD  format  as  ALARTM1. 

3.  Redirect  the  NMI  interrupt  vector  at  792  to  MAIN. 

4.  Set  bit  7  of  control  register  B  at  56591  (C12CRB)  and  set  the 
alarm  time  for  TOD  clock  2  using  ARMTIM. 

5.  Then  clear  this  bit  and  set  the  current  time  for  TOD  clock  2, 
again  using  ARMTIM. 

6.  Set  bit  2,  the  alarm  interrupt  bit,  in  the  interrupt  control 
register  (CI2ICR)  at  56589  and  RTS.  Bit  7  must  be  set  in  or- 
der to  set  bit  2. 

In  MAIN: 

1.  Determine  whether  the  alarm  caused  the  NMI  interrupt  by 
testing  bit  7  of  the  interrupt  control  register  (CI2ICR). 

2.  If  this  bit  is  clear,  exit  the  routine  through  the  normal  NMI 
interrupt  handler  (in  step  7). 

3.  Otherwise,  clear  the  alarm  bit  (bit  2)  in  CI2ICR.  Bit  7  must 
be  set  to  zero  in  order  to  clear  this  bit. 


ALARM2 


4.  Set  the  parameters  of  the  SID  chip  to  produce  an  alarm 
sound  and  start  the  attack/decay/sustain  cycle  of  the  chip. 

5.  Wait  for  a  keypress  with  SCNKEY,  a  Kernal  routine. 

6.  When  a  keypress  occurs,  stop  the  alarm  sound  by  clearing 
the  SID  chip,  restore  the  normal  NMI  vector  address,  and 
clear  the  keyboard  buffer. 

7.  Exit  the  routine  by  executing  the  normal  NMI  interrupt 
handler. 

Explanation 

When  ALARM2  ($CO00-$C009)  is  set  up,  the  NMI  interrupt 
vector  is  changed  so  that  it  points  to  our  own  routine  at 
MAIN.  Next,  with  the  subroutine  ARMTIM,  we  set  the  TOD 
clock  time  to  4:05:10.0  p.m.  and  the  alarm  time  to  three  sec- 
onds later,  or  4:05:13.0  p.m. 

ARMTIM  is  similar  to  TOD2ST,  which  sets  the  second 
TOD  clock.  In  TOD2ST,  .Y  is  always  initialized  to  0,  whereas 
in  ARMTIM,  .Y  is  initially  0  or  4.  This  allows  you  to  set  either 
the  TOD  time  or  the  alarm  time  with  the  same  routine.  If  .Y  is 
0,  the  alarm  time,  defined  as  ALARTM,  is  set.  If  .Y  is  4,  the 
TOD  clock  time,  or  TIMSET,  is  set. 

ALARTM  and  TIMSET  can  be  set  to  any  times  you  like. 
Both  are  expressed  in  binary-coded  decimal  (BCD)  format. 

Before  the  setup  routine  is  exited,  the  TOD  alarm  interrupt 
is  enabled  by  setting  bit  2  of  the  interrupt  control  register 
(CI2ICR).  Notice  that  bit  7  of  this  register  must  be  set  in  order 
to  set  bits  0-6.  To  clear  one  of  these  bits,  store  a  zero  in  bit  7 
while  storing  a  one  in  the  bit  you  wish  to  clear. 

Having  now  pointed  the  NMI  vector  to  our  own  routine, 
the  first  thing  the  computer  does  when  an  NMI  interrupt  oc- 
curs in  MAIN  is  to  check  to  see  whether  our  alarm  caused  this 
interrupt.  If  the  NMI  interrupt  has  been  caused  by  another 
source,  the  normal  NMI  interrupt  handler  is  accessed.  Other- 
wise, the  alarm  interrupt  is  disabled,  and  the  current  alarm  ac- 
tion is  carried  out — in  this  case,  sounding  a  tone  until  a  key  is 
pressed. 

Once  the  SID  chip  starts  the  tone,  we  rely  on  the  Kernal 
routine  SCNKEY  rather  than  GETTN  to  check  for  a  keypress. 
SCNKEY,  unlike  GETIN,  works  during  interrupts. 

When  you  finally  press  a  key,  the  SID  chip  is  turned  off 
with  SIDCLR,  and  the  normal  NMI  vector  is  restored  with 
RSTVEC. 
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Note:  ALARM2  demonstrates  how  to  use  TOD  clock  2,  on 
CIA  (Complex  Interface  Adapter)  chip  2,  to  signal  an  alarm. 
But  if  you're  already  using  the  second  TOD  clock  elsewhere  in 
your  program,  the  first  TOD  clock  will  work  equally  well  in 
this  capacity. 

To  set  up  the  alarm  on  TOD  clock  1,  use  the  equivalent 
TOD  registers  (TODTN1)  and  interrupt  control  registers 
(CIAICR,  CIACRB)  found  in  CIA  1  (each  of  these  is  lower  in 
memory  by  256  bytes).  Since  the  interrupt  generated  by  TOD 
clock  1  is  an  IRQ  interrupt,  redirect  the  IRQ  interrupt  vector  at 
788,  rather  than  the  NMI  vector,  to  your  custom  routine 


Routine 


cooo 


TODTN2       - 


56584 


COOO 

RESTOR 

= 

65418 

cooo 

NMIVEC 

= 

792 

cooo 

NM1NOR 

= 

65095 

cooo 

C32CRB 

= 

56591 

cooo 

C121CR 

= 

56589 

cooo 

SIGVOL 

— 

54296 

cooo 

ATDCY1 

= 

54277 

cooo 

SUREL1 

— 

54278 

cooo 

FREM1 

= 

54273 

cooo 

FREL01 

" 

54272 

cooo 

VCREC1 

= 

54276 

cooo 

SCNKEY 

= 

65439 

cooo 

NDX 

" 

198 

COOO  A9    2A 

C002  BD    18     03 

C005  A9    CO 

CO07  8D    19     03 

COOA  AD  OF    DD 

COOD  09     80 

COOF  8D   OF    DD 

C012  AO    00 

C014  20     66     CO 

C017  AD  OF     DD 


ALARM2      LDA      #<MAIN 


C01A  29  7F 

C01C  8D  OF 

COIF  AO  04 

C021  20  66 

C024  A9  84 


DD 


CO 


C026  8D    OD    DD 

C029  60 

C02A  AD  OD   DD  MAIN 

C02D  29     04 

C02F  FO     32 


STA 

LDA 

STA 

LDA 

ORA 

STA 

LDY 

JSR 

LDA 

AND 

STA 
LDY 
JSR 
LDA 

STA 
RTS 


NMIVEC 

#>MAIN 

NMIVEC+1 

CI2CRB 

#%100OO0O0 

CI2CRB 

#0 

ARMTIM 

CI2CRB 

#wmmu 
CI2CRB 
#4 
ARMTIM 

#4610000100 

CI2ICR 


LDA     CI2ICR 

AND     #%00000100 
BEQ      EXIT 


time-of-day  dock  2 — tenths-of-seconds 

register 

routine  to  restore  Kemal  vectors 

vector  to  NMI  interrupt  routine 

NMINOR  =  64064  on  the  128— normal 

NMI  interrupt  service  routine 

CIA  2  control  register  B 

CIA  2  Interrupt  control  register 

SID  chip  volume  register 

voice  1  attack/decay  register 

voice  1  sustain/release  register 

voice  1  frequency  control  (high  byte) 

voice  1  frequency  control  (low  byte) 

voice  1  control  register 

Kernal  routine  to  get  a  keypress 

NDX  =  208  on  the  128— number  of 

characters  in  keyboard  buffer 

Set  up  an  alarm  dock  signal  using  TOD 

clock  2. 

store  Hie  low  byte  of  NMI  interrupt 

wedge 

and  the  high  byte 

get  current  register  value 
turn  on  bit  7  to  set  alarm  time 

to  index  alarm  time  setting 

set  TOD  clock  2  alarm  time 

now,  dear  bit  7  of  the  control  register  to 

set  TOD  time 

turn  off  bit  7 

to  index  the  time  setting 

set  the  TOD  2  time 

■if!  bits  2  and  7  to  enable  TOD  alarm 

Interrupt 

exit  setup  routine 

did  the  alarm  cause  the  interrupt  (is  bit  2 
set?)? 

bit  2  is  dear,  so  execute  normal  interrupts 
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con 

A9 

04 

LDA 

#%OO0O0100 

C033 

8D 

OD 

DD 

STA 

CI2ICR 

C036 

20 

73 

CO 

JSR 

SIDCLR 

C039 

A9 

OD 

LDA 

#13 

C03B 

8D 

IS 

D4 

STA 

SIGVOL 

COSE 

A9 

00 

LDA 

#$0 

C040 

8D 

05 

D4 

STA 

ATDCY1 

C043 

A9 

FO 

LDA 

#$F0 

C045 

8D 

06 

D4 

STA 

SUREL1 

C048 

A9 

04 

LDA 

#4 

C04A 

8D 

01 

D4 

STA 

FREH11 

C04D 

A9 

21 

LDA 

#%00100001 

C04F 

8D 

04 

D4 

STA 

VCREG1 

C052 

20 

9F 

FF     WAIT 

JSR 

SCNKEY 

C05S 

A5 

C6 

LDA 

NDX 

C057 

FO 

F9 

BEQ 

WATT 

C0S9 

20 

73 

CO 

ISR 

SIDCLR 

C05C 

20 

7E 

CO 

JSR 

RSTVEC 

C05F 

A9 

00 

BUFCLR 

LDA 

#0 

C061 

85 

C6 

STA 

NDX 

C063 

4C 

47 

FE     EXIT 

JMP 

NMINOR 

COW  A2  03  ARMTTM      LDX  #3 

C068  B9  84  CO    RDLOOP      LDA  ALARTM.Y 

C06B  9D  08  DD  STA  TODTN2.X 

C06E  C8  INY 


C06F 

CA 

DEX 

C070 

10 

F6 

BPL 

RDLOOP 

C072 

60 

RTS 

C073 

A9 

00 

SIDCLR 

LDA 

#0 

COTS 

AO 

18 

LDY 

#24 

C077 

99 

00 

D4    SIDLOP 

STA 

FRELOl.Y 

C07A 

88 

DEY 

C07B 

10 

FA 

BPL 

SIDLOP 

C07D 

60 

RTS 

C07E 

78 

RSTVEC 

SFJ 

C07F 

20 

8A 

EF 

|SR 

RESTOR 

C082 

58 

CU 

C083 

60 

RTS 

C084     84     05     13     ALARTM 
C088     84     05     10     TTMSET 


-BYTE    $84,$05,$13.$0 
.BYTE    $84,$05,$10,$0 


the  alarm  triggered  the  interrupt,  so  dear 
the  alarm  bit 

And  signal  with  an  alarm  sound, 
clear  the  SID  chip 
set  the  volume 

set  attack/decay 

set  sustain/release 

set  voice  1  high  frequency 

select  sawtooth  waveform  and  gate  the 
sound 

wait  for  a  keypress 
check  keyboard  buffer 
If  no  key  is  pressed,  wait 
stop  the  alarm  sound 
restore  NM1  vector 
clear  keyboard  buffer 

exit  through  normal  NMI  interrupt 
handler 

Set  alarm  and  time.  Come  in  with  .Y  —  0 

to  set  alarm  and  .Y  —  4  to  set  time. 

as  an  index  for  Ins.,  mini.,  sees.,  tenths 

read  in  alarm  time  or  clock  time  to  set 

store  to  clock — hrs.  first 

for  next  data  position  (in  ALARMT  or 

TIMSET) 

for  next  clock  position  (min.,  sec,  tenths) 

read  four  bytes 


Clear  the  SID  chip. 

fill  with  zeros 

as  the  offset  from  FRELOl 

store  zero  in  each  SID  chip  address 

for  next  lower  address 

fill  25  bytes 

we're  done 

Restore  Kemal  vectors  to  default  values. 

disable  IRQ  interrupts  while  resetting  IRQ 

vector 

reset  page  3  RAM  vectors  to  ROM  table 

values 

reenable  IRQ  interrupts 


hr..  min.,  sec.,  tenths  for  alarm  time 
Alarm  Is  set  for  04.05.13.0  p.m. 
hr..  min.,  sec.  tenths  for  time 
Time  is  set  for  04.05.10.0  p.m. 
For  a.m.,  subtract  $80  from  hrs.  place. 


See  also  INTCLK,  TOD1DL,  TOD1RD,  TOD2PR,  TOD2ST. 
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Name 

Alphabetize  by  swapping  pointers 

Description 

The  main  alphabetizing  routine  does  two  things.  First,  it  sets 
up  a  series  of  pointers  to  strings  in  memory.  Then  it  goes 
through  the  pointers  and  performs  a  Shell  sort,  leaving  the 
strings  where  they  are,  but  swapping  the  pointers  as  nec- 
essary. A  Shell  sort  is  generally  faster  than  the  bubble  sort 
used  in  the  ALSWAP  routine,  but  it's  easier  to  write  either  if 
the  fields  to  be  sorted  are  the  same  size  (which  they  are  not  in 
the  example)  or  if  pointers  are  used  instead  of  an  actual  swap 
of  strings.  (Incidentally,  Shell  is  capitalized  because  it's  named 
after  its  inventor,  Donald  Shell.) 

Prototype 

First,  create  the  table  of  pointers: 

1.  Look,  character  by  character,  through  the  zero-terminated 
strings. 

2.  When  a  zero  is  found,  store  the  address  (plus  one)  of  the 
location. 

3.  Check  the  next  character.  If  it's  not  zero,  increment  the 
TOTL  variable  and  continue  the  loop. 

Next,  alphabetize  the  strings: 

4.  Set  a  gap  variable  (TOTL)  initially  to  the  number  of  words. 

5.  Clear  the  FLIP  variable. 

6.  Cut  the  gap  in  half.  If  there  are  1 20  words,  the  gap  starts 
at  60. 

7.  Set  a  pointer  (ZP)  to  the  beginning  of  the  list  of  pointers. 

8.  Set  a  second  (ZQ)  to  the  beginning  of  the  list  plus  the  gap. 

9.  Load  the  string  pointer  from  ZP  and  store  it  in  AP. 

10.  Load  the  second  string  pointer  from  ZQ  and  store  in  AQ. 

1 1 .  Using  . Y  as  an  offset,  compare  the  strings  in  AP  and  AQ. 

12.  If  they're  in  order,  skip  step  13. 

13.  If  they're  not  in  order,  swap  the  pointers  in  memory  and 
set  FLIP  to  a  nonzero  value. 

14.  Increment  both  ZP  and  ZQ  until  ZQ  points  beyond  the 
end  of  the  list. 

15.  If  a  swap  has  occurred,  FLIP  is  not  zero,  so  loop  back  to 
step  7. 

16.  If  it  has  not,  go  back  to  step  6  while  the  gap  is  larger  than 
zero. 
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Explanation 

This  is  a  long  routine,  but  a  good  chunk  of  it  is  devoted  to  the 
part  that  reads  a  file  into  memory  from  disk.  The  main  routine 
consists  of  three  JSRs.  The  first  calls  the  section  that  reads  a 
text  file  into  memory,  searching  for  spaces — or  CHR$(13)s — 
and  replacing  them  with  zeros  as  the  file  is  copied  to  memory. 
The  second  calls  the  alphabetizing  routine.  The  third  prints 
out  the  word  list. 

ALPNTR  itself  has  two  primary  subroutines:  MAKETL 
and  ALPHAB.  The  first  sets  up  the  table  of  pointers  at 
$5000-$5FFF,  4096  bytes.  Since  each  pointer  needs  2  bytes, 
this  is  enough  memory  to  handle  2048  strings  or  words.  Note 
that  BUFFER  holds  the  actual  words,  while  POINTR  holds  a 
series  of  pointers  to  the  words  in  BUFFER. 

Based  on  the  assumption  that  there's  at  least  one  word  in 
the  list,  the  first  entry  in  the  table  is  set  to  point  to  the  start  of 
the  buffer.  Next,  MAKETL  searches  forward  for  zeros.  When 
one  is  found,  the  next  address  in  the  buffer  is  saved  in 
POINTR.  Each  word  ends  with  a  zero  byte,  and  the  buffer  it- 
self ends  with  an  additional  zero.  When  the  final  zero  is 
found,  the  loop  ends. 

ALPHAB  is  the  main  alphabetizing  routine,  and  it  re- 
quires several  passes.  Remember,  the  words  stay  where  they 
are;  it's  just  the  pointers  that  are  being  shuffled  around. 

The  idea  of  the  gap  is  the  key  to  the  Shell  sort.  The  gap 
starts  out  at  half  the  number  of  total  items  in  the  list.  If  there 
are  56  things  to  put  in  order,  the  gap  is  28.  Entry  1  is  com- 
pared with  entry  29,  2  is  compared  with  30,  and  so  on.  If  any 
two  items  are  out  of  order,  they're  switched. 

After  the  first  pass,  the  FLIP  variable  is  checked.  If  any 
two  items  have  been  changed,  the  gap's  value  remains  the 
same,  and  the  loop  is  repeated.  If  no  swaps  have  occurred,  the 
gap  is  cut  in  half  (from  28  to  14,  for  example).  When  the  gap 
drops  to  a  value  less  than  1,  the  sort  is  finished. 

The  great  advantage  to  using  a  gap  is  that  it  moves  items 
quickly  over  a  long  distance.  Imagine  that  zookeeper  is  the  first 
word  on  a  list  of,  say,  500  words,  and  that  its  rightful  place  in 
the  alphabetized  list  is  last.  On  the  first  pass  (gap  of  250),  it  is 
moved  250  places,  from  1  to  251.  On  the  next  pass  (gap  of 
125),  it  jumps  another  125.  After  just  two  comparisons,  it  has 
traveled  from  location  1  to  location  376.  In  an  ordinary  bubble 
sort,  it  would  take  375  comparisons — 375  passes  through  the 
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loop — to  move  that  far.  A  Shell  sort  of  a  medium-sized  list 
will  almost  always  beat  a  bubble  sort. 

The  following  program  is  written  in  reasonably  short 
modules  and  should  be  easy  to  follow.  One  technique  worth 
noting  occurs  at  $C069,  where  DBLINC  calls  the  routine 
INCZPZQ  directly  below  it.  The  INCZPZQ  routine  adds  1  to 
the  pointers  at  ZP  and  ZQ.  Because  the  DBLINC  (double  in- 
crement) routine  is  placed  above  the  routine  that  increments 
once,  the  routine  is  called  twice.  The  end  RTS  first  returns  to 
just  past  DBLINC,  where  the  routine  executes  a  second  time, 
after  which  the  RTS  returns  to  the  place  that  called  it. 


Routine 


cooo 

ZP 

= 

$FB 

cooo 

ZQ 

— 

$FD 

cooo 

AP 

= 

$F7 

:  for  the  128,  use  other  available  zero-page 
;  locations  here 

cooo 

AQ 

— 

$F9 

;  and  here 

cooo 

STATUS 

= 

144 

cooo 

CHROUT 

= 

SFFD2 

cooo 

BUFFER 

= 

$6000 

:  storage  area  where  the  words  will  be  loaded 
;  into  memory 

cooo 

POiNTR 

$5000 

;  table  of  two-byte  pointers  to  the  words 
;  (maximum  2048  from  $5000  through  $5FFF) 
;  LDA  #0;  set  for  bank  15  (128  only) 
;  STA  $FF0O;  (128  only) 

cooo 

20 

17 

CI 

MAIN 

JSR 

READF1LE 

;  read  a  file  from  disk 

;  LDA  *63;  set  for  bank  0  (128  only) 

;  STA  $FF00;  (128  only) 

C003 

20 

0A 

CO 

JSR 

ALPNTR 

;  alphabetize  the  word  list 

;  LDA  wO;  set  for  bank  15  (128  ortlv) 

;  STA  $FFO0:  (128  only) 

C006 

20 

92 

CI 

JSR 

PR1NTM 

;  print  It  out 

C009 

60 

RTS 

COOA 

ALPNTR 

— 

* 

;  alphabetize  by  pointers 

COOA 

20 

U 

CO 

JSR 

MAKETL 

;  make  a  table  of  pointers 

COOD 

20 

8F 

CO 

JSR 

ALPHAB 

;  alphabetize  it 

C010 

60 

RTS 

con 

MAKETL 

— 

■ 

;  create  the  table 
;  Set  things  up. 

C011 

A9 

93 

LDA 

#147 

;  clear  screen  character 

C013 

20 

D2 

FF 

JSR 

CHROUT 

;  print  it 

C016 

20 

58 

CO 

JSR 

SETZPAP 

;  point  ZP  to  POINTR  and  AP  to  BUFFER 

C019 

AO 

00 

LDY 

#0 

C01B 

BC 

12 

CI 

STY 

TOTL 

;  zero  the  counter 

C01E 

BC 

13 

Cl 

STY 

TOTL+1 

C021 

AS 

F7 

BIGLOP 

LDA 

AP 

;  low  byte  of  pointer  to  BUFFER 

C023 

91 

FB 

STA 

(ZP),Y 

;  store  it  In  the  table 

C025 

20 

6C 

CO 

JSR 

INCZPZQ 

;  increment  ZP  and  ZQ 

C028 

A5 

F8 

LDA 

AP+1 

;  high  byte 

C02A 

91 

FB 

STA 

(ZP),Y 

;  store  it 

C02C 

20 

6C 

CO 

JSR 

INCZPZQ 

;  and  ZP/ZQ  go  up 

C02F 

20 

86 

CO 

JSR 

PLUSTL 

;  increment  the  counter 

C032 

Bl 

F7 

LDA 

(AP),Y 

;  check  the  first  byte 
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COM 

DO 

10 

8NE 

MORE 

;  if  not  j  zero,  there  *re  more  words 

C036 

A9 

OD 

LDA 

#13 

;  print  a  RETURN 

C038 

20 

D2 

FF 

IS!'. 

CHROUT 

C03B 

AS 

F7 

LDA 

AP 

;  save  the  last  pointer 

C03D 

6D 

15 

CI 

STA 

BUFEND 

;  into  BUFEND 

C040 

A5 

F8 

LDA 

AP+1 

;  high  byte 

C042 

8D 

16 

a 

STA 

BUFEND+1 

C045 

60 

RTS 

;  main  RTS  of  MAKETL  marine 

C046 

A9 

2A 

MORE 

LDA 

#42 

;  take  an  asterisk 

COM 

20 

D2 

FF 

JSR 

CHROUT 

;  print  it 

C04B 

20 

79 

CO 

SMALLP 

JSR 

INCAPAQ 

;  increment  AP  and  AQ 

C04E 

81 

F7 

LDA 

(AP),Y 

;  check  the  next  one 

COSO 

DO 

F9 

BNE 

SMALLP 

;  go  back  if  not  zero 

C052 

2U 

79 

cu 

JSR 

INCAPAQ 

;  INC  the  pointer  (to  the  start  of  next  word) 

COS5 

4C 

2! 

CO 

JMP 

BIGLOP 

;  and  go  back 

C058 

A9 

00 

SETZPAP 

LDA 

#<BUFFER 

;  put  the  address  of  buffer 

COSA 

85 

F7 

STA 

AP 

,-into  AP 

C05C 

A9 

60 

LDA 

#>BUFFER 

C05E 

85 

F8 

STA 

AP+1 

COW 

A9 

00 

LDA 

#<POINTR 

;  and  the  address  of  POINTR 

C062 

85 

FB 

STA 

ZP 

;  into  ZP 

C064 

A9 

50 

LDA 

#>FOINTR 

C066 

85 

FC 

STA 

ZP+1 

C068 

60 

RTS 

C069 

20 

6C 

CO 

DBLINC 

JSR 

INCZPZQ 

;  call  it  once  and  then  fall  through  for 
;  double  INC 

C06C 

E6 

FB 

INCZPZQ 

INC 

ZP 

;  ZP  points  higher 

C06E 

DO 

02 

BNE 

ipqi 

C070 

E6 

FC 

INC 

ZP  +  l 

;  handle  the  high  byte 

C072 

E6 

FD 

IFQ1 

INC 

ZQ 

;  ZQ,  too 

C074 

DO 

02 

BNE 

DPQ2 

C076 

E6 

FE 

INC 

ZQ+1 

;  high  byte 

C078 

60 

1PQ2 

RTS 

;  that'-  ill,  folks 

C079 

E6 

F7 

1NCAPAQ 

INC 

AP 

;  AP  points  higher 

C07B 

DO 

02 

BNE 

IAQ1 

C07D 

E6 

F8 

INC 

AP+1 

;  if  AP  -  0,  INC  the  high  byte 

C07F 

E6 

F9 

IAQ1 

INC 

AQ 

;  AQ  goes  up  by  1 

C081 

DO 

02 

BNE 

IAQ2 

C083 

E6 

FA 

INC 

AQ+1 

;  and  maybe  the  high  byte 

C085 

60 

IAQ2 

RTS 

;  all  done 

C086 

EE 

12 

CI 

PLUSTL 

INC 

TOTL 

,-  add  1  to  the  Iota) 

C089 

DO 

03 

BNE 

PLT1 

C08B 

EE 

13 

CI 

INC 

TOTL+1 

;  high  byte,  too 

;  The  main  alphabetizing  routine. 


C08F 

ALPHAB 

.» 

• 

C08F 

20 

A0 

CO 

ALPLOP 

JSR 

INTTPQ 

C092 

20 

BA 

CO 

JSR 

SHUFFLE 

C095 

AD 

14 

CI 

LDA 

FLIP 

C098 

DO 

F5 

BNE 

ALPLOP 

C09A 

20 

FD 

CO 

JSR 

HFTOTL 

C09D 

B0 

F0 

BCS 

ALPLOP 

C09F 

60 

RTS 

COAO 

A0 

00 

1NITPQ 

LDY 

#0 

C0A2 

8C 

14 

CI 

STY 

FLIP 

C0A5 

20 

58 

CO 

JSR 

SETZPAP 

C0A8 

AD 

12 

CI 

LDA 

TOTL 

; 


set  up  the  initial  pointers  in  ZP  and  ZQ 

move  them  around  and  put  them  in  order 

if  the  flag  is  set, 

go  back  and  do  it  again 

cut  TOTL  in  half 

if  carry  set,  do  more 

otherwise,  we're  done 


reset  the  FLIP  flag 

set  ZP  to  POINTR  address 
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COAB  29  FE 

CO  AD  18 

COAE  65  FB 

COBO  85  FD 

C0B2  AD  13     CI 

COBS  65  FC 

C0B7  85  FE 

C0B9  60 


COBA 
COBA 
COBC 
COBE 
COCO 
CDC2 
C0C4 
C0C5 
C0C7 
C0C9 
COCB 


SHUFFLE 


AO  00 

81  FB 

85  F7 

Bl  FD 

85  F9 
C8 

Bl  FB 

85  F8 

Bl  FD 

85  FA 


COCD  88 
COCE    Bl    F9 
CODO    DO    01 

C0D2    60 

C0D3    Bl    F7  KEEPON 

C0D5    FO    20 

C0D7    Dl  F9 

C0D9    90  1C 

CODB   DO  04 
CODD  C8 

CODE   4C    D3    CO 

C0E1  8D  14    CI    SWITCH 

C0E4  AO  00 

C0E6  A5  F7 

C0E8  91  FD 

COEA  A5  F9 

COEC  91  FB 

COEE  C8 

COEF  A5  F8 

COn  91  FD 

C0F3  A5  FA 

C0F5  91  FB 


AND  #<X>11111110 
CLC 

ADC  ZP 

STA  ZQ 

LDA  TOTL+l 

ADC  ZP+1 

STA  ZQ+1 
RTS 


LDY  #0 

LDA  (ZP),Y 

STA  AP 

LDA  (ZQ),Y 

STA  AQ 
INT 

LDA  (ZP),* 

STA  AP+1 

LDA  (ZQ),Y 

STA  AQ+1 

DEY 

LDA  (AQ),Y 

BNE  KEEPON 

RTS 

LDA  (AP),Y 

BEQ  NOSWIT 

CMP  (AQ),Y 

BCC  NOSWIT 

BNE  SWITCH 
INY 

JMP  KEEPON 


STA 
LDY 


FLIP 

#0 


LDA  AP 

STA  (ZQ).Y 

LDA  AQ 

STA  (ZP),Y 
INY 

LDA  AP+1 

STA  (ZQ),Y 

LDA  AQ+1 

STA  (ZP),Y 


C0F7     20     69     CO    NOSWIT      JSR        DBL1NC 
COFA    4C    BA    CO  JMP       SHUFFLE 


COFD 

4E     13 

a     HFTOTL 

LSR 

TOTL+l 

C100 

6E     12 

CI 

ROR 

TOTL 

ao3 

38 

SEC 

C104 

AD  13 

CI 

LDA 

TOTL+l 

C107 

DO    08 

BNE 

ENDHF 

C109 

AD  12 

Cl 

LDA 

TOTL 

C10C 

C9    02 

CMP 

#2 

cioe 

BO    01 

BCS 

ENDHF 

C110 

18 

CLC 

;  round  down  to  nearest  even  number 

;  add  in  low  byte 

;  higher  painter  in  ZQ 

;  add  the  high  byte 

;  to  ZP+1 

;  and  put  it  in  ZQ 

;  end  of  INITPQ 


;  get  the  first  pointer 
;  and  set  up  a  pointer 
■  and  the  second 
;  as  well 
;  now  the  high  bytes 


;  back  to  zero 

;  look  for  the  zero  at  the  end  of  the  table 

;  if  the  first  character  of  (AQ)  isn't  zero,  we 

;  have  more 

;  else,  finish  this  routine 

;  found  a  zero  at  the  end  of  the  (shorter) 

;  string  from  AP 

;  not  a  zero,  so  compare  to  the  AQ  string 

;  if  AP  <  AQ  no  switch 

;  if  not  equaL  AQ  <  AP 

;  else  they're  equal  and  we  check  some 

:  more 


;  store  a  nonzero  value  in  FLIP 

;  get  the  pointer  from  AP 
;  and  put  it  in  the  table 
;  same  for  AQ 
;  low  byte 

;  now  the  high  bytes 


;  and  fall  through 

;  double  increment  of  ZP  and  ZQ 

;  end  of  SHUFFLE 

;  shift  right  (cut  in  ham  the  high  byte  of 

;TOTL 

;  and  the  low  byte 

;  set  carry  means  more 

;  is  there  a  high  byte? 

;  yes,  there's  more 

;  no,  check  the  low  byte 

;  if  if  8  2  or  more 

;  we're  OK 

;  else  clear  carry  (all  done) 


95 


ALPNTR 


cm    60 


C112    00    00 

oh   oo 

C115     00     00 

C117 
CU7 
C117 
C117 
C117 
C117 
C117 
C117 


ENDUP 


TOTL 
FLIP 

BUFEND 


RTS 


.BYTE    0,0 
.BYTE    0 
.BYTE    0,0 


READFILE  = 

SETLFS  = 

SETNAM  - 
OPEN 

CHKIN  — 

CHR1N  — 
CXOSE 

CLRCHN  = 


65466 
65469 
65472 
65478 
65487 
65475 
65484 


n  we  leave,  CLC  means  done,  SEC  means 
keep  going 


C117 
C119 
CUB 
CI  ID 
C120 
C122 
C124 
C126 
C129 
C12C 
C12E 


A9  01 

A2  08 

A0  02 

20  BA    FF 

A9  0D 

A2  85 

A0  CI 

20  BD    FF 

20  CO    FF 

A2  01 

20  C6    FF 


CI  31  A9  00 

C133  85  FB 

C135  A9  60 

C137  85  FC 

CI  39  A0  00 

C13B  20  CF    FF    GETCUR 

C13E  C9  0D 

CI  40  F0  26 

C142  C9  20 

C144  90  09 

C146  F0  20 

C148  91  FB 

C14A  C8 

C14B  DO  02 

C14D  E6  FC 

C14F  A6  90  CHKEND 

C151  F0  E8 

C153  A9  00 

C155  91  FB 

C157  20  76     CI 

C15A  91  FB 

CISC  C8 

C15D  91  FB 

C15F  A9  01 

C161  20  C3    FF 

C164  20  CC   FF 

C167  60 


C168     CO    00 
C16A    FO     E3 


C16C    A9    00 
C16E     91     FB 


DELIMIT 


LDA 

LDX 

LDV 

JSR 

LDA 

LDX 

LDY 

JSR 

JSR 

LDX 

JSR 

LDA 
STA 
LDA 
STA 

LDY 

ISR 

CMP 

BEQ 

CMP 

BCC 

BEQ 

STA 

INY 

BNE 

INC 

LDX 

BEQ 

LDA 

STA 

ISR 

STA 

INY 

STA 

LDA 

JSR 

JSR 

RTS 

CPY 
BEQ 


#1 

#8 

#2 

SETLFS 

#FNLEN 

#<FNAME 

#>FNAME 

SETNAM 

OPEN 

#1 

CHKIN 

#<BUFFER 
ZP 

#>BUFFER 
ZP  +  1 

#0 

CHRIN 

#13 

DELIMIT 

#32 

CHKEND 

DELIMIT 

(ZP),Y 

CHKEND 

ZP+1 

STATUS 

CETCHR 

#0 

(ZP).Y 

ADDYZP 

(ZP),Y 

(ZP),Y 

w 

CLOSE 
CLRCHN 


#0 

CHKEND 


LDA       #0 
STA       (ZP),Y 


;  logical  file  number 

;  device  number  for  disk  drive 

;  secondary  address  (2-14  ate  OK) 

;  length  o(  filename 
;  address  of  filename 


;  logical  file  number 
!  set  for  Input 

;  set  up  a  pointer 

;  high  byte 


;  gel  a  character 
;  check  for  RETURN 

;  look  for  a  space 

;  eliminate  characters  0-31 

I  spaces  are  delimiters 


;  check  for  the  end 
;  increment  the  pointer 

;  If  equal,  get  more  characters 
:  close  It  up  with  three  zeros 
;  store  it 
;  reset  ZP 


;  close  the  file 

;  clear  channels 

;  the  end  of  the  routine 

;  is  this  the  first  character? 
;  yes,  go  back 

;  Enter  this  routine  if  a  space  or  RETURN  is 
;  found  after  a  word. 
;  zero  marks  the  division 
;  put  a  zero  in  memory 
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C170  20    76    CI 

C173  4C    4F     a 

CI76  38  ADDYZP 

CI  77  98 

C178  65     FB 

C17A  85     FB 

C17C  A9    no 

CI7E  A8 

C17F  65     FC 

C18)  85    FC 

CI 83  98 

C184  60 


ISR 

ADDYZP 

;  add  Y  to  ZP  (plus  1) 

IMP 

CHKEND 

;  and  check  for  end  of  file 

SEC 

;  add  1  to  .Y 

TYA 

;  put  it  in  .A 

ADC 

ZP 

;  add  to  ZP 

STA 

ZP 

;fixZF 

LDA 

#0 

:  handle  the  high  byte 

TAY 

;  put  zero  back  into  .Y 

ADC 

ZP+1 

;add 

STA 

ZP+I 

:  and  store 

TYA 

:  exit  with  zero  in  .A 

RTS 

C185     41     53     43     FNAME         .ASC       '0:ASCUF1LE,S,R" 

;  name  of  file  to  read 
C192  FNLEN  =  » -  FNAME 


C192 

20 

58 

CO 

PRINTM 

JSR 

SETZPAP 

C195 

AO 

01 

PMLOOP 

LDY 

#1 

C197 

Bl 

FB 

LDA 

(ZP),Y 

C199 

85 

FB 

STA 

AP+1 

C19B 

88 

DEY 

C19C 

Bl 

FB 

LDA 

(ZP),Y 

C19E 

85 

F7 

STA 

AP 

C1A0 

Bl 

T7 

LDA 

(AP).Y 

C1A2 

FO 

15 

BEQ 

QUITIT 

C1A4 

20 

D2 

FF 

PINLOP 

)5R 

CHROUT 

C1A7 

20 

79 

CO 

ISR 

INCAPAQ 

C1AA 

Bl 

F7 

LDA 

(AP),Y 

C1AC 

DO 

F6 

BNE 

PINLOP 

C1AE 

A9 

0D 

LDA 

#13 

C1B0 

20 

D2 

FF 

JSR 

CHROUT 

C1B3 

20 

69 

CO 

JSR 

DBUNC 

C1B6 

4C 

95 

CI 

IMP 

PMLOOP 

C1B9    60  QUIT1T         RTS 

See  also  ALSWAP,  SRCBIN. 


:  set  ZP  lo  point  to  POINTR  table 

:  get  the  POINTR  high  byte 
;  set  up  AP 

;  now  the  low  byte 

;  (and  .Y  holds  a  zero) 

;  is  the  first  character  a  zero? 

;  if  so,  we're  all  done 

;  no,  print  it 

I  AP  increases  by  1 

;  get  the  next  character 

;  until  there's  a  zero 

i  print  RETURN 

;  move  ZP  up  two  notches 
;  and  set  up  the  next  address 
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Name 

Alphabetize  a  list  by  swapping  strings  that  are  out  of  order 
Description 

Although  the  example  program  is  longer  than  most  others  in 
this  book,  it's  short  for  an  alphabetizing  routine.  (See  ALPNTR 
for  a  longer,  but  much  faster  routine.)  For  reasons  explained 
below,  ALSWAP  uses  a  relatively  slow  bubble-sort  algorithm, 
which  at  machine  language  speeds  is  fast  enough  if  the  list  to 
be  sorted  has  either  fixed-length  records  or  a  small-to-medium 
number  of  variable-length  records. 

Prototype 

1.  Count  the  number  of  records.  Each  word  is  a  record  in  the 
example  program. 

2.  Start  by  setting  two  zero-page  pointers:  one  pointer  (ZP)  to 
the  first  record  and  another  (ZQ)  to  the  second. 

3.  Decrement  the  counter  for  number  of  records.  If  it's  zero,  exit. 

4.  Otherwise,  copy  the  counter  to  a  second  variable  (INCOUNT). 

5.  Compare  the  two  records. 

6.  If  they're  out  of  place,  swap  them. 

7.  Continue  the  inner  loop  by  decrementing  INCOUNT  and 
incrementing  the  pointers  to  the  two  records.  Branch  back 
to  step  5. 

8.  When  the  inner  loop  counter  INCOUNT  reaches  zero, 
branch  to  step  3. 

Explanation 

The  strings  in  the  example  program  were  selected  randomly 
from  a  book  of  folktales.  Each  is  terminated  by  a  zero  byte. 
The  three  primary  subroutines  in  the  framing  routine  are 
COUNTEM,  ALSWAP,  and  PRINTEM. 

COUNTEM  cruises  through  memory,  finding  the  zero  ter- 
minators and  generally  counting  the  number  of  words  in  the 
list.  When  the  number  of  words  is  known,  ALSWAP  alphabet- 
izes them. 

Two  zero-page  pointers  hold  the  addresses  of  two  neigh- 
boring strings.  Start  by  comparing  the  first  to  the  second.  Then 
compare  the  second  to  the  third,  and  so  on. 

The  COMPAR  subroutine  ($C08F-$C0AA)  makes  a  de- 
cision about  the  two  strings'  positions.  If  they're  in  the  right 
order,  the  carry  flag  is  cleared  and  the  subroutine  ends.  If  not, 
carry  is  set.  Back  in  the  main  alphabetizing  routine,  a  BCC 
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skips  ahead  if  the  words  are  in  their  proper  places.  Otherwise, 
the  strings  switch  positions. 

The  SWITCH  routine  handles  the  trading  of  two  strings.  If 
the  two  strings  are  next  to  each  other,  it's  relatively  easy  to 
make  them  trade  places;  "THERE@HI@"  takes  up  the  same 
amount  of  memory  as  "HI@THERE<5)"  (the  @s  represent  the 
zero  terminators).  If  the  two  strings  "THERE"  and  "HI"  oc- 
cupy different  parts  of  the  list,  a  variety  of  time-wasting  mem- 
ory moves  are  necessary  just  to  get  the  words  in  the  right 
places. 

After  the  comparison  (COMPAR)  and  the  trade  (SWITCH), 
we  check  the  next  two  strings,  until  the  inner  loop  has  fin- 
ished. The  outer  loop  counts  backward  to  1  (from  one  less 
than  the  number  of  items  on  the  list). 

The  alphabetizing  routine  ends,  and  the  PRINTEM  rou- 
tine takes  over,  listing  the  words  in  order. 
Routine 


cooo 

ZP 

= 

$FB 

cooo 

ZQ 

— 

*FD 

cooo 

CHROUT 

= 

$FFD2 

cooo 

20 

OA 

CO 

JSR 

COUNTEM 

;  count  the  number  of  words 

C003 

20 

32 

CO 

ISR 

ALSWAP 

;  alphabetize  by  swapping 

C006 

20 

EB 

CO 

JSR 

PRINTEM 

;  print  them  in  order 

C009 

60 

RTS 

;  end  of  this  routine 

COOA 

A0 

00 

COUNTEM 

LDY 

#0 

:  first  zero  out  the  counter 

cooc 

BC 

IB 

CI 

STY 

COUNTER 

:  low  byte 

COOF 

8C 

1C 

CI 

STY 

COUNTER+1 

;  high  byte 

C012 

20 

OE 

CI 

JSR 

BUF2ZP 

;  copy  the  address  of  buffer  to  ZP 

C015 

Bl 

FB 

CNLOOP 

LDA 

(ZP),Y 

;  gel  a  first  character 

C017 

DO 

01 

BNE 

CNMORE 

;  if  it's  not  zero,  continue 

C019 

60 

RTS 

;  done 

C01A 

EE 

1B 

CI 

CNMORE 

INC 

COUNTER 

;  counter  up  one 

C01D 

DO 

03 

BNE 

FINDO 

COIF 

EE 

1C 

CI 

INC 

COUNTER  + 1 

:  high-byte  increments 

C022 

C8 

FINDO 

INY 

;  increase  the  -Y  counter 

C023 

DO 

02 

BNE 

LOOKMORE 

;  if  Y  <>  0,  continue 

C025 

E6 

FC 

INC 

ZP+1 

;  else,  add  256  to  ZP 

C027 

Bl 

FB 

LOOKMORE 

LDA 

(2P),Y 

.-  get  the  next  character 

C029 

DO 

F7 

BNE 

FINDO 

;  if  not  zero,  keep  going 

C02B 

C8 

INY 

;  keep  the  index  going 

C02C 

DO 

E7 

BNE 

CNLOOP 

;  go  back  for  more 

C02E 

E6 

FC 

INC 

ZP+1 

i  handle  ZP  if  Y  -  0 

C030 

DO 

E3 

BNE 

CNLOOP 

;  branch  always 

;  ALSWAP — the  main  routine  (or 
;  alphabetizing. 

C032 

ALSWAP 

= 

• 

C032 

20 

OE 

a 

ALUTLP 

JSR 

BUF2ZP 

;  set  up  ZP  and  ZQ  pointera 

C03S 

20 

58 

cu 

JSR 

CNDOWN 

;  counter  down  by  one 

C038 

20 

77 

CO 

ALINLP 

JSR 

ZPZQ 

;  copy  ZP  to  ZQ 

C03B 

20 

SO 

CO 

JSR 

FINWORD 

;  find  the  next  word  for  ZQ 

C03E 

20 

6F 

CO 

JSR 

COMPAR 

;  compare  the  two  words 

C041 

90 

03 

BCC 

SKIP 

:  if  CC,  leave  them  alone 
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CD43  20  AB  CO 

C046  CE  ID  CI 

C049  DO  ED 

C04B  CE  IE  CI 


JSR  SWITCH 

SKIP  DEC  INCOUNT 

BNE  AL1NLP 

DEC  INCOUNT+1 


else/  switch  them 

are  we  done? 

no,  continue  the  inner  loop 

else,  INCOUNT  =  0,  so  check  the  high 

byte 


C04E 

AD 

IE 

CI 

LDA 

INCOUNT+I 

C051 

C9 

FF 

CMP 

#255 

;  255  means  we're  done 

C053 

DO 

ea 

BNE 

ALINLP 

;  if  not  255,  continue 

C055 

4C 

32 

CO 

JMP 

ALUTLP 

;  go  back  for  outer  loop 

C058 

CE 

IB 

CI 

CNDOWN 

DEC 

COUNTER 

;  counter  down  by  one 

C05B 

DO 

OD 

BNE 

COPYUI 

;  if  not  zero,  we're  OK 

C05D 

CE 

1C 

CI 

DEC 

COUNTER+1 

;  DEC  the  high  byte 

C060 

AD 

1C 

CI 

LDA 

COUNTER+1 

;  check  it 

C063 

C9 

FF 

CMP 

#255 

;  if  255,  we're  all  done 

C065 

DO 

03 

BNE 

COPYUI 

;  if  not,  continue 

C067 

68 

PIA 

C068 

68 

PLA 

;  trash  the  return  address 

C069 

60 

RTS 

;  return  to  the  previous  routine 

C06A 

AD 

IB 

Ci 

COPYUI 

LDA 

COUNTER 

C06D 

8D 

ID 

Cl 

STA 

INCOUNT 

CO70 

AD 

1C 

a 

LDA 

COUNTER + 1 

C073 

BD 

IE 

Cl 

STA 

INCOUNT+1 

;  copy  COUNTER  to  INCOUNT 

C076 

60 

RTS 

C077 

A  5 

FB 

ZPZQ 

LDA 

ZP 

;  copy  ZP 

C079 

85 

FD 

STA 

ZQ 

;  to  ZQ 

C07B 

A5 

FC 

LDA 

ZP+1 

;  and  the  high  byte 

C07D 

85 

FE 

STA 

ZQ+1 

,-  as  well 

C07F 

60 

RTS 

C080 

FINWORD 

m 

M 

;  finds  the  next  word 

COSO 

A0 

00 

LDY 

#0 

;  index  for  ZQ 

C082 

Bl 

FD 

FINLP 

LDA 

<ZQ),Y 

;  get  a  character 

COM 

E6 

FD 

INC 

ZQ 

;  the  counter  must  go  forward 

C086 

DO 

02 

BNE 

CHECKQ 

C088 

E6 

FE 

INC 

ZQ+1 

;  handle  the  high  byte 

C08A 

C9 

00 

CHECKQ 

CMP 

#0 

;  check  the  character  we  get 

C08C 

DO 

F4 

BNE 

FINLP 

,-  if  it  Isn't  zero,  go  back 

COSE 

60 

RTS 

;  but  if  it  is,  we're  done 

C08F 

AO 

00 

COMPAR 

LDY 

#0 

C091 

Bl 

FB 

COMLP 

LDA 

(ZP),Y 

;  get  a  character  from  the  first  word 

C093 

FO 

OA 

BEQ 

RIGHT 

;  the  first  is  shorter,  so  quit 

C09S 

Dl 

FD 

CMP 

(ZQ),Y 

;  compare  it 

C097 

90 

06 

BCC 

RIGHT 

;  if  ZP<ZQ  they're  right 

C099 

DO 

OE 

BNE 

WRONG 

;  if  not  equal,  they're  in  the  wrong  order 

C09B 

CB 

INY 

;  else  try  for  more 

C09C 

*c 

91 

CO 

JMP 

COMLP 

C09F 

A5 

FD 

RIGHT 

LDA 

ZQ 

;  set  up  ZP  for  the  next  word 

C0A1 

85 

FB 

STA 

ZP 

;  copy  low  byte 

C0A3 

A5 

FE 

LDA 

ZQ+1 

;  and  also 

C0A5 

85 

FC 

STA 

ZP+1 

;  the  high 

C0A7 

1R 

CLC 

;  a  flag  that  means  Ifs  OK 

C0A8 

60 

RTS 

;  and  we're  done  here 

C0A9 

38 

WRONG 

SEC 

;  carry  set  —  a  problem 

COAA 

60 

RTS 

,-  now  SWITCH  will  be  caUed 

COAB 

AO 

1)0 

SWITCH 

LDY 

#0 

COAD 

38 

SEC 

;  carry  should  be  set,  but  we'll  make  sure 

COAE 

Bl 

FB 

SWILP 

LDA 

(ZP),Y 

COBO 

DO 

01 

BNE 

AHEAD 

;  if  ifs  not  zero 

100 


ALSWAP 


C0B2 

18 

CLC 

/ 

if  we  get  a  zero,  clev  carry  to  mark  the 
end  of  the  first  word 

C0B3 

99 

7D 

CI 

AHEAD 

STA 

TEMBUF,Y       ; 

save  the  word  from  ZP 

C0B6 

Bl 

FD 

IDA 

tZQLY               } 

copyZQ 

C0B8 

91 

FB 

STA 

(ZP),Y               i 

toZP 

COBA 

FO 

03 

BEQ 

SWI2                ; 

the  end  of  ZQ  U  a  zero 

COBC 

C8 

INY 

1 

otherwise,  keep  going 

COBD 

DO 

EF 

BNE 

SWILP              j 

branch  back  (always) 

COBF 

90 

11 

SW12 

BCC 

COPY2               ; 

if  carry  clear,  the  first  word  was  shorter 

coci 

8C 

IF 

CI 

STY 

TEMPY            ,- 

stash  Y 

C0C4 

C8 

INY 

COCS 

B1 

FB 

LOOP2 

LDA 

(ZP).Y 

get  more  characters 

C0C7 

99 

7D 

CI 

STA 

TEMBUF.Y 

COCA 

FO 

03 

BEQ 

LOTY 

cocc 

C8 

INY 

COCD 

DO 

F6 

BNE 

LOOP2              ; 

if  not,  keep  going 

COCF 

AC 

IF 

CI 

LOTY 

LDY 

TEMPY 

get  Y  back 

C0D2 

C8 

COPY2 

INY 

INC  .  Y  to  point  one  pa9t  the  current  (zei 
byte 

C0D3 

9S 

TYA 

put  it  in  .A 

C0D4 

IS 

CLC 

C0D5 

65 

FB 

ADC 

ZP                       , 

add  it  to  ZP 

COD7 

85 

FB 

STA 

ZP 

and  store  it 

COD9 

A9 

00 

LDA 

#0 

do  the  high  byte,  too 

CODB 

A8 

TAY 

set  up  Y  for  the  next  loop 

CODC 

65 

FC 

ADC 

ZP+1 

add  zero  plus  carry 

CODE 

85 

FC 

STA 

ZP+1 

store  it 

Now  ZP  points  to  a  new  location. 

COEO 

B9 

7D 

a 

LASTLP 

LDA 

TEMBUF.Y 

C0E3 

91 

FB 

STA 

<ZP),Y 

C0E5 

DO 

01 

BNE 

INNNY 

if  not  zero,  continue 

C0E7 

60 

RTS 

we're  done 

C0E8 

C8 

INNNY 

TNY 

or  we're  not 

C0E9 

DO 

F5 

BNE 

LASTLP 

and  loop  back 

COEB 

20 

OE 

Cl 

PRINTEM 

JSR 

BUF2ZP 

COEE 

AO 

00 

LDY 

#0 

COFO 

Bl 

FB 

FIRST 

LDA 

(ZP),Y 

get  the  first  character 

C0F2 

DO 

01 

BNE 

NOTDONE 

C0F4 

60 

RTS 

if  it's  a  zero,  finish  this  routine 

COF5 

20 

D2 

w 

NOTDONE  Jjr 

CHROUT 

C0F8 

C8 

INY 

C0P9 

DO 

02 

BNE 

NOTEQ 

COFB 

E6 

FC 

INC 

ZP+1 

take  care  of  the  high  byte 

COFD 

Bl 

FB 

NOTEQ 

LDA 

(ZP).Y 

get  more  characters 

COFF 

DO 

F4 

BNE 

NOTDONE 

C101 

A9 

OD 

LDA 

#13 

prim  a  return 

C103 

20 

D2 

FF 

JSR 

CHROUT 

C106 

C8 

DMY 

C107 

DO 

02 

BNE 

ZIZL 

C109 

E6 

FC 

INC 

ZP+1 

ClOB 

4C 

FO 

CO 

ZI7T 

JMP 

FIRST 

ClOE 

A9 

20 

BUF2ZP 

LDA 

#<BUFFER 

set  up  a  pointer  to  BUFFER 

CllO 

85 

FB 

STA 

ZP 

low  byte  of  BUFFER  to  ZP 

C112 

85 

FD 

STA 

ZQ 

also  in  ZQ 

C114 

A9 

CI 

LDA 

#>BUFFER 

C116 

85 

FC 

STA 

ZP+1 

high  byte  to  ZP 

C118 

85 

FE 

STA 

ZQ+1 

ZQ,too 

C11A 

60 

RTS 

CUB 

00 

00 

COUNTER 

.BYTE 

0,0 

CUD 

00 

00 

INCOUNT 

.BYTE 

0,0 

C11F 

00 

TEMPY 

.BYTE 

0 

101 


ALSWAP 


C120 

41 

a 

44     BUFFER         .ASC 

"AND" 

CI  23 

00 

BYTE 

0 

C124 

43 

4C 

45 

.ASC 

"CLEAR" 

C129 

00 

.BYTE 

0 

C12A 

53 

54 

55 

ASC 

"STUMPS" 

C130 

00 

.BYTE 

0 

G131 

57 

45 

.ASC 

"WE" 

C133 

00 

-BYTE 

0 

C134 

46 

4F 

4C 

-ASC 

"FOLKS" 

C139 

00 

.BYTE 

0 

C13A 

54 

48 

45 

.ASC 

"THEY" 

C13E 

00 

.BYTE 

0 

C13F 

54 

48 

45 

.ASC 

THEN" 

C143 

00 

.BYTE 

0 

C144 

52 

45 

4D 

.ASC 

"REMEMBER" 

C14C 

00 

.BYTE 

0 

C14D 

59 

4F 

55 

.ASC 

"YOU" 

C150 

00 

-BYTE 

0 

C151 

53 

45 

45 

-ASC 

"SEEN" 

C155 

00 

.BYTE 

0 

C156 

54 

4F 

.ASC 

"TO" 

C158 

00 

.BYTE 

0 

C159 

54 

57 

45 

.ASC 

"TWENTY" 

C15F 

00 

.BYTE 

0 

C160 

47 

45 

4E 

.ASC 

"GENERALLY' 

C169 

00 

-BYTE 

0 

C16A 

44 

4F 

47 

.ASC 

"DOG" 

C16D 

00 

.BYTE 

0 

C16E 

41 

42 

4F 

-ASC 

"ABOUT" 

C173 

00 

BYTE 

0 

C174 

53 

54 

52 

ASC 

"STRIPE" 

C17A 

00 

.BYTE 

0 

CI7B 

00 

00 

.BYTE 

0,0 

C17D 

TEME 

IUF 

• 

;  temporary  buffer  (allow  256  bytes) 


See  also  ALPNTR,  SRCBIN. 
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Name 

Animation:  alternating  character  sets 

Description 

This  is  one  of  the  easier  ways  to  animate  characters  on  the  40- 
column  screen  of  the  64  or  128.  If  you  press  SHIFT  and  the 
Commodore  key  at  the  same  time,  the  character  set  will  switch 
between  uppercase/graphics  mode  and  lowercase/uppercase 
mode.  By  alternately  printing  CHR$(14)  and  CHR$(142),  you 
can  cause  any  or  all  of  the  characters  on  the  screen  to  change. 

Prototype 

1.  Check  a  timer  (the  jiffy  clock,  in  this  example). 

2.  If  enough  time  has  passed,  start  at  step  3  below.  Otherwise, 
exit  the  routine. 

3.  Add  a  constant  to  the  timer  and  store  it  for  the  next  time. 

4.  Load  .A  with  the  FLIP  value,  which  is  either  14  or  142. 
Print  it  and  then,  using  EOR,  change  it  to  the  other  value. 

5.  Move  characters  that  should  be  in  motion. 

Explanation 

Although  the  example  provides  a  lively  screen,  there's  really 
no  movement  of  characters  at  all.  The  alternating  M's  and  VV's 
are  the  effect  we're  looking  for — animation  via  character  set 
flipping.  The  character  that  flips  between  C  and  a  dash  is  an- 
other by-product  of  this  technique.  It  seems  to  move  from  left 
to  right,  but  it's  not  actually  being  placed  and  erased.  The  line 
where  it  moves  contains  a  series  of  40  C  characters,  but  at  any 
given  point,  39  of  them  are  black,  which  is  the  background 
color.  The  apparent  motion  comes  from  a  different  value  being 
stored  into  color  memory. 

There  aren't  a  lot  of  interesting  dual  characters  in  the  two 
built-in  character  sets,  but  if  you  define  your  own  custom 
characters,  you  can  achieve  some  very  interesting  effects. 

Routine 


cnop 

J1F 

= 

$A2 

LSB  of  the  jiffy  clock 

COLMEM 

= 

55296 

color  memory 

COOO 

SCRMEM 
LINCOL 

^ 

1024 
COLMEM+80 

screen  memory 

UNSCR 

= 

SCRMEM +80 

COM 

BKGRND 

= 

53281 

background  register 

CHROUT 

= 

$FFD2 

Kemal  routines 

cooo 

GEnN 

= 

SFFE4 

cooo 

A9 

00 

LDA 

#0 

C002 

8D 

21 

DO 

STA 

BKGRND 

background  color  =  black 

C005 

A9 

05 

LDA 

#S 

ASCII  code  for  white 

C007 

20 

D2 

FE 

ISR 

CHROUT 

print  it 

CO0A 

A9 

93 

LDA 

#147 

ASCII  for  clear  screen 
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cooc 

20 

D2 

FF 

COOF 

AO 

00 

C011 

By 

71 

CO 

PRLOOP 

C014 

FO 

06 

C016 

20 

D2 

FF 

COW 

C8 

COIA 

DO 

F5 

COIC 

20 

28 

CO 

PROUT 

COIF 

20 

3D 

CO 

CONT 

C022 

20 

E4 

FF 

C025 

FO 

F8 

C027 

60 

C028 

AO 

00 

SETUP 

C02A 

8C 

70 

GO 

C02D 

A9 

00 

SETLOP 

C02F 

99 

50 

D8 

C032 

A9 

43 

C034 

99 

50 

04 

C037 

C8 

C038 

CO 

28 

C03A 

DO 

Fl 

C03C 

60 

C03D 

ANIMAT 

C03D 

AD 

92 

co 

COW 

C5 

A2 

C042 

FO 

01 

C044 

60 

JSR 

LDY 

LDA 

BEQ 

JSR 

INY 

BNE 

ISR 

|SR 

JSR 

BEQ 

RTS 

LDY 
STY 
LDA 
STA 
LDA 
STA 
1NY 
CPY 
BNE 
RTS 


C045  18  MOVEM 

C046  69  OA 

C048  8D  92     CO 

C04B  AD  93     CO 

C04E  20  D2    FF 

C0S1  49  80 

C0S3  8D  93     CO 

C0S6  10  00 


C058  AC  70     CO    AHEAD 

C05B  A9    00 

C05D  99     50     D8 

C060  C8 

C061  CO    28 

C063  DO    02 

C065  AO    00 

C067  8C    70     CO    WHITE 

C06A  A9    01 

C06C  99     50     D8 

C06F  60 


LDY 
LDA 
STA 
1NY 
CPY 
BNE 
LDY 
STY 
LDA 
STA 
RTS 


CHROUT 

#0 

STRTNCY 

PROUT 

CHROUT 

PRLOOP 

SETUP 

ANIMAT 

GBTJN 

CONT 


#0 

POSITION 

#0 

L1NCOL.Y 

*67 

LINSCR.Y 

#40 
SETLOP 


LDA  TIMER 

CMP  JIF 

BEQ  MOVEM 
RTS 

CLC 

ADC  #10 

STA  TIMER 

LDA  FLIP 

JSR  CHROUT 

EOR  #$80 

STA  FLIP 

BPL  AHEAD 


POSITION 

#0 

LINCOUY 

#40 

WHITE 

#0 

POSITION 

#1 

LINCOL,Y 


;  print  it,  also 


:  U  zero,  quit 

;  print  it 

;  count  up 

;  branch  back 

;  set  up  the  animation  characters 

;  animate 

;  get  a  key 

;  if  no  key,  continue 


;  start  at  zero 

:  color  for  black 

;  store  In  color  memory 

;  shifted  C  screen  code 

;  count  forward 
;  to  39 
;  loop  back 


;  check  the  timer 
;  is  it  time  yet? 
;  yes.  move  ahead 
:  otherwise,  go  back 

;  .A  already  holds  the  current  jiffy  value 

;  add  ten  jiffies  (1/6  second) 

;  remember  it 

;  either  14  or  142 

;  print  it 

;  change  it  to  the  other  one  (14  or  142) 

;  and  save  it 

;  if  Ifs  14,  move  ahead 

;  RTS;  else,  quit  (optional) 

;  where  is  the  character? 

;  black 

;  clear  it  out 

;  move  ahead  one  space 

;  is  it  40  yet? 

;  no 

;  yes,  make  it  zero 

;  remember  .Y 

;  the  color  code  for  white 

;  store  it 


C070     00 


C071 
C078 
C080 
C08I 
C08A 
C091 
C092 
C093 


57 

0D 
(ID 
OD 
4D 
00 
DO 

BE 


57 
Bl 

B2 

4D 


POSITION    -BYTE    0 


STRING 


TIMER 
FLIP 


-ASC 
.BYTE 
.BYTE 
.BYTE 
•ASC 
.BYTE 
BYTE 
.BYTE 


See  also  CHRDEF,  CUST80. 


"WWWWWWW" 

13,177,177,177,177,177,177.177 

13 

13,178.178,178.178,178.178,178,13 

"MMMMMMM" 

0 

0 

M 
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Name 

Convert  a  signed  byte  value  to  a  signed  integer  value 

Description 

This  very  short  routine  changes  an  8-bit  signed  number  into  a 
16-bit  signed  number. 

Prototype 

1.  Copy  the  original  byte  to  the  low  byte  of  the  integer. 

2.  If  the  sign  bit  (bit  7)  is  set,  store  an  $FF  to  the  high  byte. 

3.  If  bit  7  is  clear,  store  a  $00  to  the  high  byte. 

Explanation 

A  memory  location  can  hold  only  256  possible  numbers.  In 
unsigned  arithmetic,  the  numbers  are  0-255.  Signed  arithmetic 
also  allows  256  numbers,  but  they  range  from  —128  to  +127. 
If  that  sounds  confusing,  think  of  a  clock  with  the  numbers 
1-12.  Add  one  hour  to  3:00,  and  the  clock  shows  4:00.  But  if 
you  add  ten  hours  to  3:00,  the  result  is  1:00,  because  there  are 
no  hours  beyond  12:00.  In  a  sense,  adding  10  to  3:00  is  the 
same  as  subtracting  2  from  3:00,  so  10  =  —2  when  you're 
using  a  clock.  In  signed  arithmetic,  a  255  is  the  same  as  —  1,  a 
254  is  —2,  and  so  on.  If  a  memory  location  holds  a  zero  and 
you  use  the  DECrement  instruction,  it  will  now  hold  an  $FF, 
which  can  be  called  a  255  (unsigned)  or  a  —  1  (signed). 

Bit  7  indicates  whether  a  number  is  positive  (0)  or  negative 
(1).  The  numbers  0-127  (%00000000-%01111111)  all  have  a  0 
in  the  high  bit.  Likewise,  the  numbers  from  — 128  through  —  1 
(%10000000-%11111111)  contain  a  1  in  the  sign  bit. 

Two-byte  signed  integer  values  follow  the  same  rules,  but 
the  numbers  fall  between  -32768  and  32767  and  bit  15  is  the 
sign  bit.  The  number  -1  is  $FFFF  instead  of  $FF,  and  the  num- 
ber +1  is  $0001  instead  of  $01.  Thus,  to  make  a  positive  byte 
into  a  positive  two-byte  integer,  we  have  to  add  a  $00  as  the 
high  byte.  For  negative  bytes,  an  $FF  becomes  the  high  byte. 

The  example  routine  copies  the  original  value  to  the  low 
byte  of  the  integer.  It  then  checks  the  sign  bit  and  puts  the 
appropriate  value  ($00  or  $FF)  into  the  high  byte  of  the  integer. 

Routine 


C0OO  AD  IS     CO    B2SNIN 

C003  8D    16     CO 

C006  2A 

C007  B0    06 

C009  A9    00 

C00B  8D    17     CO 


LDA  NUMBER 

STA  1NTGER 
ROL 

BCS  NEGATV 

LDA  #%00000000 

STA  INTGER+1 


the  byte  we're  copying 

into  the  low  byte  of  1NTGER 

check  the  sign  bit 

branch  ahead  if  negative 

it's  positive 

so  dear  the  high  byte 
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COOE     60 


RTS 


COOF     A9    FF  NEGATV      LDA      #%11111U1 

C01]      8D    17     CO  STA       INTGER+1 

CM*     60  RTS 


C015    09 
C016     00     00 


NUMBER 
INTGER 


.BYTE    09 
.BYTE    00,00 


and  we're  done 

the  number  is  negative 

so  (ill  the  high  byte  with  ones 

and  we're  done 


See  also  B2UNIN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP,  CNVBFP. 
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Name 

Convert  a  byte  value  (8  bits)  to  an  unsigned  integer  value  (16 
bits) 

Description 

This  is  a  very  simple  routine  that  adds  a  high  byte  of  $00  to  a 
byte  value  to  make  it  an  unsigned  integer  value. 

Prototype 

1.  Copy  the  original  byte  to  the  low  byte  of  the  integer. 

2.  Put  a  zero  in  the  high  byte  of  the  integer. 

Explanation 

Bytes,  by  their  very  nature,  can  contain  only  the  numbers 
0-255  ($00-$FF).  By  combining  two  bytes  to  represent  a  single 
number,  you  can  extend  the  range  to  0-65535  ($0000-$FFFF). 
On  the  64  and  128,  the  convention  is  to  put  the  low  byte  in 
front  of  the  high  byte.  The  number  $A012,  for  example,  would 
be  stored  in  memory  as  18  ($12)  followed  by  160  ($A0). 

This  routine  merely  copies  the  byte  to  the  first  position  of 
the  integer  and  then  tacks  on  a  zero  for  the  high  byte. 

Routine 


cooo 

AD  0C 

CO 

B2UNDJ 

LDA 

NUMBER 

;  the  byte  we're  copying 

C0Q3 

8D    0D 

CO 

STA 

INTGER 

;  Into  the  low  byte  of  Integer 

C006 

A9    00 

LDA 

#0 

;  If  it's  unsigned,  always  a  zero 

COOS 

SD    0E 

CO 

STA 

INTGER +  1 

;  the  high  byte 

C0OB 

60 

RTS 

i 

;  data  bytes 

cooc 

09 

NUMBER 

.BYTE 

09 

C00D 

00     00 

INTGER 

BYTE 

00,00 

See  also  B2SNIN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP,  CNVBFP. 
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Name 

Convert  a  binary-coded  decimal  value  to  ASCII  characters 
Description 

Although  the  processor  has  a  decimal  flag  and  can  perform 
math  in  binary-coded  decimal  (BCD),  this  mode  is  rarely  used 
on  Commodore  computers.  The  CIA  chips'  time-of-day  clocks 
keep  time  in  BCD  format,  but  that's  about  it. 

If  you  decide  there's  some  merit  in  using  BCD  math,  how- 
ever, this  routine  will  convert  a  single  BCD  byte  into  two 
ASCII  numbers.  Its  construction  closely  resembles  the  conver- 
sion routine  that  handles  hexadecimal. 

Prototype 

1.  Enter  with  the  number  to  be  converted  in  the  accumulator. 

2.  Save  it  temporarily. 

3.  AND  with  the  number  $0F  and  add  48  for  the  low  nybble. 

4.  Transfer  to  .X. 

5.  Restore  the  previous  value. 

6.  Repeat  the  above  steps,  but  rotate  right  four  times  with  the 
carry  flag  set  (or  cleared)  as  needed  to  add  48. 

7.  Exit  with  the  high  nybble  in  .A,  the  low  in  .X. 

Explanation 

The  high  and  low  nybbles  of  a  byte  are  the  top  four  bits  and 
the  bottom  four,  respectively.  A  nybble  is  half  a  byte.  Nor- 
mally, a  nybble  can  have  16  possible  settings,  from  %0000 
through  %1111.  Given  two  nybbles,  a  byte  can  hold  256  pos- 
sible values  (16  X  16).  Not  so  in  decimal  mode.  If  you  set  the 
decimal  flag  (with  the  SED  operation),  nybbles  are  suddenly 
limited  to  10  values,  from  $0  through  $9.  That  means  bytes 
can  hold  only  100  different  numbers  (10  X  10),  from  $00 
through  $99. 

Such  mathematical  operations  as  addition  (ADC)  and 
subtraction  (SBC)  are  also  affected  by  the  decimal  flag.  Sud- 
denly, $35  plus  $49  is  $84  (in  decimal  mode)  instead  of  $7E 
(in  nondecimal  mode).  The  number  $2001  in  hex  means  8193. 
But  in  decimal  mode,  $2001  means,  well,  2001.  For  those  of  us 
who  count  with  ten  fingers,  decimal  mode  is  quite  convenient. 

If  you  need  to  print  out  a  BCD  number,  this  routine  will 
do  the  trick.  It  basically  isolates  the  nybbles  and  adds  48  to 
convert  one  byte  into  two  ASCII  characters,  which  can  then  be 
printed. 
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Routine 


cooo 

CHROUT 

■= 

$FFD2 

cooo 

A9 

93 

LDA 

*$93 

;  convert  $93 

C002 

20 

OD 

CO 

)SR 

BCD2AX 

;  to  the  characters  9  and  3 

C005 

20 

D2 

FF 

|SR 

CHROUT 

;  print  9 

CO08 

8A 

TXA 

C009 

20 

D2 

PP 

JSR 

CHROUT 

;  print  3 

COOC 

60 

RTS 

COOD 

D8 

BCD2AX 

CLD 

i 

;  make  sure  decimal  mode  la  off 

COOE 

48 

PHA 

;  save  the  value 

COOF 

29 

OF 

AND 

#%OOOOH11 

;  low  nybble  Brat 

con 

09 

30 

ORA 

#48 

;  add  48  (or  ASCII 

C013 

AA 

TAX 

;  result  in  .X  (or  you  can  store  it  in 
;  memory) 

COM 

68 

PLA 

;  get  back  the  original  value 

C015 

29 

FO 

AND 

#%1U10000 

;  high  nybble 

C017 

38 

SEC 

,-  what  will  become  bit  5  (16)? 

C018 

6A 

ROR 

;  move  it  right  one 

C019 

38 

SEC 

;  bit  6  (32) 

COIA 

bA 

ROR 

;  right  again 

COIB 

4A 

LSR 

COIC 

4A 

LSR 

;  and  shift  right  with  zeros 

C01D 

60 

RTS 

,-  done  (high  nybble  In  .A,  low  In  J 

See  also  CAS2IN,  CB2ASC,  CB2HEX,  CI2HEX. 
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BCD2BY 


Name 

Convert  binary-coded  de  imal  (BCD)  to  a  byte  value 
Description 

If  you  need  to  convert  a  binary-coded  decimal  (BCD)  number 
to  a  standard  byte  value,  this  routine  will  do  it. 

Prototype 

1.  Store  the  value  temporarily  in  memory. 

2.  Get  the  high  nybble  by  masking  off  the  low  nybble. 

3.  Shift  the  high  nybble  right  once  (the  nybble  value  times 
eight).  Store  it  in  the  RESULT  byte. 

4.  Shift  it  right  twice  more  (nybble  times  two).  Add  the  num- 
ber to  RESULT. 

5.  Reload  the  original  value. 

6.  Mask  off  the  high  nybble. 

7.  Add  the  low  nybble  to  RESULT. 

Explanation 

The  SED  (SEt  Decimal)  operation  puts  the  64  and  128  into 
decimal  mode,  where  the  accumulator  can  hold  only  100  val- 
ues instead  of  256.  Each  nybble  counts  from  $0  through  $9  in- 
stead of  $0  through  $F.  Thus,  if  you  add  $03  to  $19,  the  result 
is  $22  instead  of  $1C  (because  3  plus  19  is  22  in  decimal 
arithmetic). 

Converting  a  BCD  number  to  a  normal  byte  value  means 
changing  a  number  like  $71  to  $47,  because  71  in  decimal  is 
$47  in  hexadecimal.  The  ten's  place  of  $71  is  the  high  nybble, 
$7.  If  the  low  byte  is  masked  off,  the  number  becomes  $70 
(decimal  112).  Shift  it  right  once  and  it  becomes  $38  (decimal 
56),  which  is  8  X  7.  That  number  gets  stored  in  memory.  Shift 
it  right  two  more  times,  and  $38  is  changed  to  $0E  (decimal 
14),  which  is  two  2X7.  Add  that  to  the  first  number,  and  the 
result  is  decimal  70,  because  (8  X  7)  -I-  (2  X  7)  is  the  same  as 
10  X  7.  This  operation  changes  $70  (112)  to  70  ($46).  The 
next  step  is  to  add  in  the  low  nybble,  the  one's  place  in  both 
decimal  and  hexadecimal. 

Routine 


cooo 
cooo 


CHROUT      =         $FFD2 
UNPRT         =  $BDCD 


COOO  A0  00  FRAM£  LDY  #0 

C002  BC  IF  CO    LOOP  STY  TEMPV 

C005  B9  20  CO  LDA  UST.Y 

COOS  20  25  CO  JSR  BCD2BY 

C00B  AA  TAX 


:  LfNPRT  -  $8E32  on  the  128 


;  get  a  BCD  value 
;  convert  it 
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cooc 

A9 

00 

LDA 

r<0 

CODE 

20 

CD 

BD 

JSR 

LINPRT 

print  It 

COll 

A9 

OD 

LDA 

013 

C013 

20 

D2 

FF 

JSR 

CHROLT 

and  a  RETURN 

C016 

AC 

IF 

CO 

LDY 

TEMPY 

gel  .Y  back 

C019 

C8 

INY 

INC  it 

C01A 

CO 

05 

CPY 

#5 

is  it  S  yet? 

COIC 

DO 

E4 

BNE 

LOOP 

no.  go  back 

COIE 

60 

RTS 

else,  end 

COIF 

00 

TEMPY 

BYTE 

0 

C020 

10 

01 

99 

LIST 

.BYTE 

$10,$01,$99,$50,$55 

C025 

D8 

BCD2BY 

CLD 

just  to  be  sure  that  decimal  mode  isn't  on 

C026 

8D 

45 

CO 

STA 

TEMPA 

save  the  number 

COM 

29 

FO 

AND 

#•411110000 

get  the  high  nybble 

C02B 

4A 

LSR 

shift  right  (nybble  X  (6); 2  Is  nybble  X  8 

C02C 

6D 

46 

co 

STA 

RESULT 

start  preparing  the  result 

C02F 

4A 

LSR 

nvbble  X  4 

COM 

4A 

LSR 

nybble  X2 

C031 

18 

CLC 

now  add  nybble  X  B  and  nybble  X  2 

C032 

6D 

46 

CO 

ADC 

RESULT 

which  Is  nybble  X  (8  +  2) 

C035 

8D 

46 

CO 

STA 

RESULT 

and  we're  almost  done 

C038 

AD  45 

CO 

LDA 

TEMPA 

now  the  low  nybble 

C03B 

» 

OF 

AND 

#%0O001111 

get  the  four  bits 

C03D 

18 

CLC 

C03E 

6D 

46 

CO 

ADC 

RESULT 

add  it 

C041 

8D 

46 

CO 

STA 

RESULT 

store  11,  for  whatever  reason 

C044 

50 

RTS 

all  done 

C045 

00 

TEMPA 

.BYTE 

0 

C046 

00 

RESULT 

.BYTE 

0 

See  also  B2SNIN,  B2UN1N,  CB2BCD,  CFP2I,  CI2FP,  CNVBFP. 
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Name 

Set  the  text  screen  background  color 

Description 

This  routine  sets  the  background  color  of  the  text  screen.  Pick 
a  color  value,  assign  it  as  COLVAL,  and  access  the  routine. 

Prototype 

1.  Enter  this  routine  with  the  selected  background  color  in  .A. 

2.  Store  .A  in  the  background  color  register  at  53281 
(BGCOLO). 

Explanation 

The  example  program  shows  how  to  set  the  background  color 
of  the  screen  to  red.  Here,  COLVAL  is  given  a  value  of  2, 
representing  the  color  red.  To  choose  another  color,  use  the  ta- 
ble of  color  values  found  under  COLFIL. 

Routine 


cooo 


BGCOLO      - 


COOO  AD  OB  CO 
C003  20  07  CO 
C006     60 


LDA 
ISR 

RTS 


C007     8D    21     DO    BCKCOL     STA 
C00A    60  RTS 

COOB    02 


53281 


COLVAL 
BCKCOL 


BGCOLO 


COLVAL       .BYTE    2 


background  color  register  0 

Set  background  to  red. 

.A  contains  screen  background  color 

set  it 


Set  background  color.  Color  value  in  .A 
set  background 


color  red 


See  also  BORCOL,  COLFIL,  TXTCCH,  TXTCOL. 
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Name 

Emit  a  beep  sound 

Description 

BEEPER  produces  a  beep.  Call  it  whenever  you  want  to  get 
the  user's  attention  without  startling  him  or  her.  You  could  use 
it,  for  example,  to  prompt  for  a  question  or  to  signal  a  correct 
(or  incorrect)  response. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters  for  voice  1.  Set 
volume  to  15,  attack/decay  to  0,  sustain /release  to  $F0,  low 
frequency  to  132,  and  high  frequency  to  125. 

3.  Select  a  triangle  waveform  for  voice  1  and  start  the 
attack/ decay /sustain  cycle  (set  the  gate  bit). 

4.  Allow  a  delay  of  two  jiffies  and  then  start  the  release  cycle 
(clear  the  gate  bit). 

Explanation 

Depending  upon  the  application,  the  beeping  sound  that 
BEEPER  generates  may  or  may  not  be  quite  what  you're  look- 
ing for.  If  it's  not  what  you  want,  experiment  with  the  SID 
chip  parameters  in  the  routine  until  you  get  the  effect  you 
want. 

When  the  SID  chip  is  called  upon  to  make  a  particular 
sound,  it  often  echoes  the  last  frequency  at  a  level  that  is 
barely  audible  even  after  the  release  cycle  is  complete.  In  fact, 
this  occurs  to  some  degree  with  BEEPER.  If  you  find  this  ef- 
fect annoying,  you  can  stop  it  before  exiting  from  the  routine. 
Either  store  zeros  in  the  frequency  registers  (FRELOl, 
FREHI1),  or  simply  turn  the  chip  off  altogether  by  JSRing  to 
SIDCLR. 


Routine 

cooo 
cooo 
cooo 
cooo 


SICVOL 

ATDCY) 

SUREL1 

FRELOl 

FREH11 

VCREG1 

JIEFLO 

20  2F     CO    BEEPER 

A9  OF 

8D  18     D4 

A9  00 


COOO 

C003 

C005 

C008 

C00A    8D    05 

COOD    A9    F0 


D4 


=  54296 

=  54277 

54278 

54272 
=  54273 

54276 

162 

JSR  SIDCLR 

I.D.A  #15 

STA  SIGVOL 

LDA  #$0 

STA  ATDCY1 

LDA  #$F0 


SID  chip  volume  register 
voice  1  attack/decay  register 
voice  1  sustain  /release  register 
voice  1  frequency  control  (low  byte) 
voice  1  frequency  control  (high  byte) 
voice  1  control  register 
low  byte  of  jiffy  clock 

clear  the  SID  chip 
set  the  volume 

set  attack/decay 

set  sustain/release 
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COOF 
C012 
COM 
C017 
C019 
C01C 
C01E 
C021 
C023 
C02S 
C027 
C029 
C02B 
C02E 


8D  06 
A9  84 
8D  00 
A9  7D 
8D  01 
A9  11 
8D  04 
A9  02 
65  A2 
C5  A2 
DO  FC 
A9  10 
8D  04 
60 


D4 


D4 


D4 

D4 


DELAY 


D4 


STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

ADC 

CMP 

BNE 

LDA 

STA 

RTS 


C02F  A9  00  SIDCLR 

C031  AO  18 

C033  99  00     D4    SIDLOP 

C036  88 

C037  10  FA 

C039  60 


SUREL1 

#132 

FRELOl 

#125 

FREHI1 

#<M>00010001 

VCREC1 

#2 

JIFFLO 

JTFFLO 

DELAY 

#%00010000 

VCREG1 


LDA  #0 

LDY  *24 

STA  FRELOl,  Y 

DEY 

BPL  SIDLOP 

RTS 


;  set  voice  1  frequency  (low  byte) 

;  »et  voice  1  frequency  (high  byte) 

;  select  triangle  waveform  and  gate  sound 

;  cause  a  delay  of  two  jiffies 

;  add  current  jiffy  reading 

;  and  wait  for  two  jiffies  to  elapse 

;  ungate  sound 


Clear  the  SID  chip. 

fill  with  zeros 

index  to  FRELOl 

store  zero  in  SID  chip  address 

for  next  lower  byte 

fill  25  bvtes 


See  also  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB,  SIDCLR, 
SfDVOL,  SIRENS. 
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Name 

Emit  a  bell  sound 

Description 

BELLRG  produces  a  bell  tone.  You  might  find  it  useful  in 
your  programs  as  a  signal  to  the  user  that  some  ongoing 
task — like  copying  a  memory  buffer  to  disk — has  finished. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters.  Set  volume  to  7, 
attack/decay  and  sustain  /release  of  voice  1  to  $0A,  and  the 
high  frequency  of  both  voices  1  and  3  to  67. 

3.  Select  a  triangle  waveform  for  voice  1.  At  the  same  time,  set 
bit  2  for  ring  modulation  and  start  the  attack/decay/sustain 
cycle  (set  the  gate  bit). 

4.  Start  the  release  cycle  of  voice  1  (clear  the  gate  bit). 

Explanation 

This  routine  relies  on  ring  modulation  to  simulate  a  bell  sound. 
Ring  modulation  produces  a  waveform  that  is  a  combination  of 
the  sum  and  difference  of  two  waveforms  of  different  frequencies. 

You  can  use  any  or  all  of  the  SID  chip's  three  voices  for 
ring  modulation.  In  BELLRG,  the  frequency  of  voice  1  is  ring 
modulated  by  the  selection  of  a  triangle  waveform  for  this 
voice  and  by  storage  of  a  second  frequency  value  in  voice  3. 
Since  voice  3  is  not  actually  heard,  no  SID  chip  parameters 
other  than  the  frequency  value  are  necessary  for  this  voice. 
Here,  identical  frequencies  are  used  for  both  voices. 

Storing  different  frequencies  in  voice  3  will  produce 
widely  varying  sound  effects.  For  instance,  a  10  in  FREHI3 
will  cause  a  gonglike  sound  rather  than  a  bell.  To  set  this  up, 
insert  an  LDA  #10  instruction  just  before  the  STA  FREHI3  at 
$C015. 

The  SID  chip  often  tends  to  run  on  in  the  background 
even  after  the  release  cycle  is  complete.  BELLRG  is  not  im- 
mune from  this  effect.  To  stop  this  from  happening,  store  ze- 
ros in  the  frequency  registers  (FREHI1,  FREHI3),  or  turn  off 
the  chip  altogether  by  JSRing  to  SIDCLR  once  the  bell  has 
sounded. 
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Routine 


cooo 


COOO 

cooo 
cooo 
cooo 

cooo 

COC3 
C0O5 
COOS 


20  23 
A9  07 
SD  18 
A9  OA 
COOA  8D  05 
COOD    8D    06 


C010 
C012 
C015 
C018 


A9  43 

8D  01 

8D  OF 

A9  15 


SIGVOL 

ATDCY1 

SURELJ 

FRELOl 

FREHI1 

FREHI3 

VCREG1 

CO    BELLRG 

D4 

D4 
D4 


D4 
D4 


EM 


C01A  8D  04 

C01D  A9  14 

COlf  8D  04     D4 

C022  60 


JSR 

LDA 

STA 

LDA 

STA 

STA 

LDA 

STA 

STA 

LDA 

STA 
LDA 
STA 
RTS 


C023 
C025 
C027 
C02A 
C02B 
C02D 


A9    00  SIDCLR 

AO    18 

99     00     D4    SiDLOP 


10 

to 


FA 


54296 
54277 
54278 
54272 
54273 
54287 
54276 

SIDCLR 

#7 

SIGVOL 

#$0A 

ATDCY1 

SLIREL1 

#67 

FRERI1 

FREHI3 

#%00010101 

VCREG1 

#%00010100 
VCREG1 


LDA  #0 

LDY  #24 

STA  FRELOl.Y 

DEY 

BPL  SIDLOP 

RTS 


;  SID  chip  volume  register 

;  voice  1  attack/decay  register 

;  voice  1  sustain/release  register 

;  voice  1  frequency  control  (low  byte) 

:  voice  1  frequency  control  (high  byte) 

i  voice  3  frequency  (high  byte) 

:  voice  1  control  register 

;  clear  the  SID  chip 
;  set  the  volume 

;  set  attack/decay 

:  set  sustain/release 

;  set  voice  1  high  frequency 

;  tor  ring  modulation 

;  select  triangle  waveform/ring 

;  modulation/gate  the  sound 

;  ungate  the  sound 


Gear  the  SID  chip. 

fill  with  zeros 

index  to  FRELOl 

store  zero  in  each  SID  chip  address 

for  next  lower  byte 

fill  25  bvtes 


See  also  BEEPER,  EXPLOD,  INTMUS,  MELODY,  NOTETB,  SIDCLR, 
SIDVOL,  SIRENS. 
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Name 

Display  in  a  virtual  window  portions  of  a  much  larger  map 

Description 

The  normal  40-column  screen,  with  25  rows,  is  somewhat  lim- 
ited when  it  comes  to  games  or  applications  that  need  a  larger 
workspace.  This  routine  allows  you  to  use  the  40-column 
screen  as  a  window  on  a  larger  screen. 

Prototype 

1.  Set  aside  a  section  of  memory  for  use  as  the  big  screen. 

2.  Place  values  for  the  upper  left  corner  in  CORNRX  and 
CORNRY. 

3.  Establish  a  zero-page  pointer  for  the  real  screen. 

4.  Working  40  characters  at  a  time,  store  a  character  and  a 
color  into  screen  and  color  memory. 

5.  At  the  end  of  each  line,  add  40  to  the  zero-page  pointer. 

6.  Add  the  width  of  the  large  screen  to  that  pointer. 

7.  While  the  number  of  rows  is  less  than  maximum,  continue 
to  loop  back  to  step  4. 

Explanation 

Although  this  routine  is  great  for  war  games  and  adventure 
games  (both  of  which  benefit  when  they  have  a  large  map 
area),  it  could  also  be  used  in  a  serious  application  like  a 
spreadsheet. 

The  example  map  is  100  columns  by  50  rows.  You  can  ad- 
just this  by  changing  the  variables  WIDTH  and  HEIGHT  at 
$C120-$C121.  The  variables  LINES  and  COLS  indicate  the 
size  of  the  normal  text  screen. 

Note  that  100  columns  and  50  rows  give  you  5000  cells 
on  the  large  map.  This  means  the  program  uses  5000  bytes  of 
memory.  The  larger  you  make  the  map,  the  more  memory  it 
needs.  If  you  create  your  own  map,  you  could  load  it  into 
memory  directly  from  disk.  The  example  uses  a  table  to  build 
the  map.  The  label  CRUNCH5  at  $C149  contains  four  num- 
bers: 80,  1,  20,  and  2.  This  means  line  5  of  the  large  screen 
contains  80  ones  and  20  twos.  There  are  only  five  characters 
allowed  on  this  particular  map  (a  maximum  of  256  can  be 
placed,  if  you  expand  the  table  MCHAR  and  MCOLR  just 
before  the  CRUNCH  table). 
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The  five  characters  are: 

0  White  102  Crosshatch 

1  Green  88  spade 

2  Blue  160  RVS  space 

3  Black  81  ball 

4  Gray2  87  circle 

The  numbers  in  MCHAR  ($C129)  are  screen  codes.  In 
MCOLR  ($C12E),  the  numbers  are  color  codes.  In  the  5000 
bytes  of  the  map,  you'll  find  the  numbers  0-4.  When  a  portion 
of  the  map  is  displayed,  the  number  is  used  as  an  index  into 
MCHAR  and  MCOLR,  and  the  corresponding  numbers  are 
POKEd  to  screen  or  color  memory. 

The  framing  routine  looks  for  the  cursor  keys  (up,  down, 
left,  and  right)  and  moves  the  values  of  CORNRX  and 
CORNRY  according  to  the  direction  of  movement.  You  won't 
have  to  scroll  one  character  at  a  time,  however.  Just  store  new 
values  to  CORNRX  and  CORNRY  and  call  BIGMAP.  To  exit 
this  routine,  press  RETURN. 

Note:  Since  location  $4000  is  in  bank  0  on  the  128,  you 
may  want  to  put  the  map  at  $2000  instead.  If  you  use  a  128, 
you  should  substitute  MAPTAB  =  $2000  in  the  list  of  equates 
at  the  beginning  of  the  program. 

Routine 


C0D0 

ZP 

= 

$F9 

COOO 

zs 

— 

$FB 

cooo 

ZC 

— 

$FD 

COOO 

GETIN 

=• 

$FFE4 

cooo 

SCREEN 

= 

$0400 

;  screen  memory 

cooo 

COLOR 

= 

SD800 

;  color  memory 

cooo 

MAPTAB 

= 

S40QO 

;  lookup  table  for  map 

cooo 

20 

DF 

CO 

JSR 

MAKMAP 

;  urtrrunch  the  map 

C003 

20 

62 

CO 

JSR 

BIGMAP 

;  print  the  map  (starting  at 

C006 

20 

E4 

FF 

GLP 

)SR 

GETIN 

:  get  a  key 

C009 

F0 

FB 

BEQ 

GLP 

C00B 

C9 

0D 

CMP 

#13 

;  Is  it  RETURN? 

C00D 

DO 

01 

BNE 

MORE 

C00F 

60 

RTS 

;  yes,  so  quit 

C010 

C9 

11 

MORE 

CMP 

#17 

;  if  cursor  down 

C012 

F0 

IB 

BEQ 

MOVEDN 

;  move  the  map  down 

COM 

C9 

91 

CMP 

#145 

;  if  cursor  up 

C016 

F0 

29 

BEQ 

MOVEUP 

;  move  the  map  up 

C018 

C9 

ID 

CMP 

#29 

;  cursor  right 

C01A 

FO 

34 

BEQ 

MOVERT 

C01C 

C9 

9D 

CMP 

#157 

;  check  cursor  left 

C01E 

DO 

E6 

BNE 

GLP 

:  if  not  left,  go  back 

C020 

AE 

24 

CI 

MOVELF 

LDX 

CORNRX 

;  get  the  x  comer 

C023 

F0 

El 

BEQ 

GLP 

;  if  zero,  it  can't  decrement 

C02S 

CA 

DEX 

;  else,  count  down 
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C026  BE    24  CI  STX  CORNRX 

C029  20     62  CO  J5R  BIGMAP 

C02C  4C    06  CO  JMP  GLP 

C02F  AC   25  CI    MOVEDN     LDY  CORNRY 

C032  CC   27  CI  CPY  MAXY 

C035  F0     CF  BEQ  CLP 

C037  C8  INY 

C038  8C    25  CI  STY  CORNRY 

C03B  20     62  CO  JSR  BIGMAP 

C03E  4C   06  CO  IMP  GLP 


C041  AC    25     CI    MOVEUP 

C044  F0    CO 

C046  88 

C047  8C    25    CI 

C04A  20     62     CO 

C04D  4C    06     CO 

C050  AE   24    CI    MOVERT 

C053  EC    26    CI 

C056  F0     AE 

C058  E8 

C059  8E     24     CI 

C05C  20    62    CO 

C05F  4C    06     CO 

C062  A9   00  BIGMAP 

C064  85     F9 

C066  A9    40 

C068  85     FA 

C06A  AC  25     O    FIXROW 

C06D  FO    OF 


LDY  CORNRY 

BEQ  GLP 

DEY 

STY  CORNRY 

JSR  BIGMAP 

IMP  GLP 

LDX  CORNRX 

CPX  MAXX 

BEQ  GLP 

INX 

STX  CORNRX 

)SR  BIGMAP 

IMP  GLP 


C06F  18 

C070  A5  F9 

C072  6D  20     CI 

C075  85  F9 

C077  90  02 

C079  E6  FA 

C07B  88 

C07C  DO  Fl 


LPROW 


INROW 


IDA 

STA 

LDA 

STA 

LDY 

BEQ 

CLC 

LDA 

ADC 

STA 

BCC 

INC 

DEY 

BNE 


#<MAPTAB 

ZP 

#>MAFTAB 

ZP+1 

CORNRY 

FIXCOL 

ZP 

WIDTH 
ZP 

INROW 
ZP+1 

LPROW 


C07E     AD  24     CI    FIXCOL         LDA      CORNRX 


C081  18 

C082  65  F9 

C084  85  F9 

C086  A9  00 

C088  65  FA 

C08A  85  FA 


CLC 

ADC     ZP 
STA 

LDA 


ZP 
#0 


ADC     ZP+1 
STA       ZP+1 


I  change  the  y  comer 
,  is  it  at  the  top  value? 
;  yes,  skip  it 
;  else,  add  one 


check  the  y  location 
if  zero,  skip  it 
count  back  one 


increment  the  x  comer 
is  it  the  maximum? 
if  so,  go  back 


;  set  up  ZP  to  point  to  the  map  table 


row  number 

if  row  0,  skip  ahead 

else,  add  the  number  of  columns 

to  the  pointer 


if  the  carry  Sag  is  set 
then  Increment  the  high  byte 
count  down 
and  loop  back 

now  add  the  x  offset 

add  to  ZP 

store  it 

fix  the  high  byte 

add  zero  or  one 

depending  on  whether  carry  is  set  or  not 

Now  the  pointer  ZP  is  set  up. 

Set  up  a  second  pointer  to  the  screen  and 

color  memory. 


C08C 

A9    00 

LDA 

#<SCREEN 

C08E 

85     FB 

STA 

ZS 

C090 

A9    04 

LDA 

#>SCREEN 

C092 

85     FC 

STA 

ZS+1 

C094 

A9    00 

LDA 

#<COLOR 

C096 

85     FD 

STA 

ZC 

C098 

A9    D8 

LDA 

#>COLOR 

C09A 

85     FE 

STA 

ZC+1 

C09C 

AD  22 

CI 

LDA 

LINES                 ; 

C09F 

8D    28 

CI 

STA 

COUNTR          ; 

Start  storing  the  characters  and  colors, 
number  of  lines 
COUNTR  will  count  down 
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BIGMAP 


C0A2 

AC 

23     CI    STORLP 

LDY 

COLS 

;  number  of  columns 

COAS 

Bl 

F9             INLOOP 

LDA 

(ZP),Y 

;  get  the  character  number 

C0A7 

AA 

TAX 

;  which  is  an  offset 

C0A8 

BD 

29   ci 

LDA 

MCHAK.X 

;  to  the  character 

COAB 

91 

FB 

STA 

(ZS),Y 

;  store  it  to  the  screen 

COAD 

BD 

2E    CI 

LDA 

MCOLR.X 

j  also,  a  color 

CDBO 

91 

FD 

STA 

(ZC),Y 

;  which  goes  In  color  memory 

C0B2 

88 

DEY 

;  .Y  counts  down 

CGB3 

10 

FO 

BPL 

TNLOOP 

;  40  times  (in  this  example) 

;  After  each  time  through  the  loop, 

;  fix  the  zero-page  pointers. 

COBS 

18 

CLC 

C0B6 

A5 

F9 

LDA 

ZP 

;  to  ZP 

COB8 

6D 

20    CI 

ADC 

WTDTH 

;  add  the  width  of  Ihe  big  map 

COBB 

85 

F9 

STA 

ZP 

COBD 

A9 

00 

LDA 

#0 

COBF 

65 

FA 

ADC 

ZP+1 

;  add  zero  or  one 

coci 

85 

FA 

STA 

ZP+1 

;  to  ZP+1 

C0C3 

18 

CLC 

C0C4 

A  5 

FB 

LDA 

ZS 

;  to  ZS 

C0C6 

69 

28 

ADC 

#40 

;  add  40 

coca 

85 

FB 

STA 

ZS 

;  and  store  it 

COCA 

90 

02 

BCC 

FC 

cocc 

E6 

FC 

INC 

ZS+1 

COCE 

18 

FC 

CLC 

COCF 

A5 

FD 

LDA 

ZC 

;toZC 

C0D1 

69 

28 

ADC 

#40 

;  add  40 

C0D3 

85 

FD 

STA 

ZC 

CODS 

90 

02 

BCC 

FD 

COD7 

F.S 

FE 

INC 

ZC+1 

C0D9 

CE 

28     a    FD 

DEC 

COUNTR 

;  now  see  if  if »  time  to  leave 

CODC 

10 

C4 

BPL 

STORLP 

;  no,  do  another  row 

CODE 

60 

RTS 

CODF 

A9 

00             MAKMAP 

LDA 

#<MAPTAB 

;  set  up  ZP  to  point  to  the  table 

COE1 

85 

F9 

STA 

ZP 

COE3 

A9 

40 

LDA 

#>MAPTAB 

COES 

85 

FA 

STA 

ZP+1 

COE7 

A9 

33 

LDA 

#<CRUNCH0 

;  and  ZS  points  to  the  crunch  table 

COE9 

85 

FB 

STA 

ZS 

COEB 

A9 

CI 

LDA 

#>CRUNCH0 

COED 

85 

FC 

STA 

ZS+1 

COEF 

AO 

00             MAKLP 

LDY 

#0 

» 

COF1 

Bl 

FB 

LDA 

(ZS),Y 

;  number  of  times  to  loop 

C0F3 

FO 

2A 

BEQ 

mkquit 

;  quit  if  zero 

COF5 

AA 

TAX 

;  put  it  in  -X 

C0F6 

8D 

28     CI 

STA 

COUNTR 

;  save  in  COUNTR,  too 

C0F9 

C8 

INY 

COFA 

Bl 

FB 

LDA 

(ZS),Y 

;  the  fill  character  is  in  .A 

COFC 

88 

DEY 

;  .Y  is  back  to  zero 

COFD 

91 

F9             MKSTOR 

STA 

(ZP).Y 

;  store  it  in  MAPTAB  memory 

COFF 

C8 

INY 

;  .Y  counts  forward 

ClOO 

CA 

DEX 

;  -X  counts  down 

C101 

DO 

FA 

BNE 

MKSTOR 

;  loop 

* 

;  Now  fix  ZP  and  ZS. 

C103 

A5 

FB 

LDA 

ZS 

C105 

18 

CLC 

C106 

69 

02 

ADC 

#2 

:add2 

C108 

85 

FB 

STA 

ZS 

ClOA 

90 

02 

BCC 

AHD 

CIOC   E6 

FC 

INC 

ZS+1 

ClOE 

A5 

F9             AHD 

LDA 

ZP 

120 
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C110 

18 

CLC 

cm 

6D 

28 

CI 

ADC 

COUNTR 

C114 

85 

1=9 

STA 

ZP 

C116 

A9 

00 

LDA 

#0 

cm 

65 

FA 

ADC 

ZP+1 

C11A 

85 

FA 

STA 

ZP+1 

cue 

4C 

EF 

CO 

JMP 

MAKLP 

Cllf 

60 

mkquit 

RTS 

C120 

64 

WIDTH 

BYTE 

100                    ;  width  of  the  big  map 

C121 

32 

HEIGHT 

.BYTE 

50                      ;  height  of  the  big  screen 

CI  22 

18 

LINES 

.BYTE 

24                         :  number  of  screen  lines  (0-24  is  25  lines) 

C123 

27 

COLS 

.BYTE 

39                        ;  number  of  screen  columns  (0-39  is  total 
:  of  40) 

C124 

00 

CORNRX 

.BYTE 

0                           :  x-position  of  upper  left  comer 

C125 

00 

CORNRY 

.BYTE 

0                          ;  y-position  of  corner 

C126 

3C 

MAXX 

.BYTE 

60 

C127 

19 

MAXY 

BYTE 

25 

C128 

00 

COUNTR 

.BYTE 

0 

C129 

66 

58 

AO 

MCHAR 

.BYTE 

102,88,160,81,87 

C12E 

01 

05 

06 

MCOLR 

.BYTE 

1,5,6,0,12 

C133 

64 

00 

CRUNCH0 

.BYTE 

100,0 

C135 

31 

00 

01 

CRUNCH1 

BYTE 

49  A  1.1. 50.0 

C13B 

0A 

00 

50 

CRUNCH2 

.BYTE 

10,0,80,1,10,0 

C141 

64 

01 

CRUNCH3 

.BYTE 

100.1 

C143 

OE 

01 

02 

CRUNCH4 

.BYTE 

14,1,2,3,84,1 

C149 

SO 

01 

14 

CRUNCH5 

.BYTE 

80.1,20,2 

C14D 

52 

01 

12 

CRUNCH6 

.BYTE 

82.1,18,2 

C151 

53 

01 

01 

CRUNCH7 

.BYTE 

83,1,1,4,16.2 

C157 

OF 

00 

45 

CRUNCH8 

.BYTE 

15.0,69.1.16,2 

C15D 

IE 

00 

37 

CRUNCH9 

.BYTE 

30.0,55,1,15,2 

C163 

32 

00 

26 

CRUNCH  10 

BYTE 

50.0,38,1.12.2 

C169 

34 

00 

24 

CRUNCH11 

BYTE 

52,0,36,1,12,2 

C16F 

58 

00 

ni 

CRUNCH12 

.BYTE 

88.0,1,3,11,2 

a  75 

5A 

00 

OA 

CRUNCH! 3 

.BYTE 

90,0,10,2 

C179 

57 

00 

OD 

CRUNCH14 

BYTE 

87,0,13.2 

C17D 

52 

00 

12 

CRUNCH15 

BYTE 

82,0.18,2 

C181 

05 

00 

01 

CRUNCH16  BYTE 

5,0,1,4,5,0,1.4,63,0,25,2 

C18D 

02 

01 

49 

CRUNCH17  BYTE 

2,1,73,0,25,2 

C193 

06 

01 

4A 

CRUNCH  18  .BYTE 

6.1,74.0,20.2 

C199 

OA 

01 

4B 

CRUNCH19  .BYTE 

10.1,75,0,15,2 

C19F 

OE 

01 

47 

CRUNCH20 

.BYTE 

14,1,71,0,15.2 

C1A5 

12 

01 

01 

CRUNCH21 

.BYTE 

18,1,1,4,67.0.14,2 

C1AD 

17 

01 

14 

CRUNCH22 

.BYTE 

23,1,20.0,1,3.47.0,9,2 

C1B7 

IF 

01 

45 

CRUNCH23 

BYTE 

31.1,69.0 

C1BB 

23 

01 

41 

CRUNCH24  .BYTE 

35,1,65,0 

C1BF 

24 

01 

01 

CRUNCH25  .BYTE 

36,1,1.4,63,0 

C1C5 

20 

01 

44 

CRUNCH26  .BYTE 

32,1,68,0 

C1C9 

18 

01 

4C 

CRUNCH27  .BYTE 

24,1,76,0 

C1CD 

OA 

01 

5A 

CRUNCH28  -BYTE 

10,1,90.0 

C1D1 

64 

00 

CRUNCH29 

.BYTE 

100,0 

C1D3 

64 

00 

CRUNCH30 

.BYTE 

100,0 

C1D5 

50 

00 

14 

CRUNCH31 

.BYTE 

80,0,20,1 

C1D9 

45 

00 

02 

CRUNCH32 

.BYTE 

69,0,2,3,29,1 

C1DF 

33 

00 

01 

CRUNCH33 

.BYTE 

51.0,1,3,48,1 

as 

33 

00 

31 

CRUNCH34 

.BYTE 

51.0.49,1 

C1E9 

2D 

00 

37 

CRUNCH35  .BYTE 

45,0,55,1 

C1ED 

27 

00 

05 

CRUNCH36 

.BYTE 

39.0,5,1,1.435.1 

C1F5 

20 

00 

44 

CRUNCH37 

BYTE 

32,0,68,1 

C1F9 

14 

00 

50 

CRUNCH38 

.BYTE 

20,0,80,1 

C1FD 

12 

00 

IE 

CRUNCH39 

.BYTE 

18,0,30,1.1.3,51,1 

C205 

OF 

00 

55 

CRUNCH40 

BYTE 

15.0,85.1 

121 


BIGMAP 


C209 

OD 

00 

57 

CRUNCH41  .BYTE 

13,0.87,1 

C20D 

OB 

00 

59 

CRUNCH42  .BYTE 

11,0,89,1 

C2U 

64 

01 

CRUNCH43  BYTE 

100,1 

C213 

5A 

01 

OA 

CRUNCH44  ,BYTE 

90,1.10,2 

C217 

50 

01 

14 

CRUNCH45  .BYTE 

80,1.20,2 

C21B 

3C 

01 

28 

CRUNCH46  .BYTE 

60,1.40.2 

C21F 

32 

01 

01 

CRUNCH47  BYTE 

50,1.1.3,49.2 

C225 

29 

01 

3B 

CRUNCH48  .BYTE 

41,139.2 

C229 

14 

01 

50 

CRUNCH49  .BYTE 

20.1.80.2 

C22D 

00 

00 

.BYTE 

0,0 

;  end  of  Ihe  table  is  a  zero 

See  also  WINDOW. 
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Name 

Enable/disable  the  hi-res  screen  (bitmap  mode) 

Description 

This  routine  turns  on  the  hi-res  screen  if  it's  off  and  turns  it 
off  if  it's  currently  on. 

Prototype 

EOR  the  contents  of  SCROLY  (or  GRAPHM  on  the  128)  with 
%00 100000  and  store  the  result  back  in  the  appropriate 
register. 

Explanation 

On  the  64,  setting  bit  5  of  the  vertical  fine-scrolling/control 
register  at  53265  (labeled  SCROLY)  enables  high-resolution 
graphics,  or  bitmap  mode.  On  the  128,  GRAPHM  (location 
216)  serves  as  a  shadow  register  for  SCROLY.  During  each 
IRQ  interrupt  of  the  128,  the  contents  of  GRAPHM  are  copied 
to  SCROLY.  So,  to  enable  bitmap  mode  on  the  128,  set  bit  5  of 
location  216. 

To  disable  bitmap  mode  and  return  to  the  normal  text- 
screen  arrangement,  clear  bit  5  of  either  SCROLY  on  the  64  or 
GRAPHM  on  the  128. 

Both  operations,  enabling  and  disabling  bitmap  mode,  can 
be  carried  out  by  exclusive-ORing  this  bit. 

Routine 


cooo 


SCROLY       = 


53265 


COOO 

AD  11 

DO    BITMAP 

IDA 

SCROLY 

C003 

49     20 

EOR 

#WX>100000 

CU05 

8D    11 

DO 

STA 

SCROLY 

scroll/control  register;  use  GRAPHM  =  216 
on  the  128 

Enable/disable  bitmap  mode. 

substitute  GRAPHM  for  SCROLY  on  the  128 

flip  bit  5 

react  register  (again  use  GRAPHM  instead  of 

SCROLY  on  the  128 


COOS     60 


RTS 


See  also  SCRDN1,  SCRDN2,  SCRDN3;  CLRHRF  or  CLRHRS  for  ex- 
ample programs  using  BITMAP. 
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BORCOL 


Name 

Set  the  text  screen  border  color 

Description 

BORCOL  uses  the  color  value  in  the  accumulator  to  set  the 
border  color  of  the  text  screen.  A  table  of  color  values  and 
their  corresponding  colors  is  given  under  COLFIL. 

Prototype 

1.  Come  into  this  routine  with  the  designated  border  color 
value  in  .A. 

2.  Store  .A  in  the  border  color  register  at  53280  (EXTCOL). 

Explanation 

In  the  example  program,  the  border  color  of  the  screen  contin- 
ually cycles  through  the  16  available  colors.  Pressing  any  key 
exits  the  routine. 

A  series  of  horizontal,  or  raster,  lines  make  up  the  screen 
display.  These  raster  lines  are  updated  and  redrawn  every 
1/60  second.  Only  200  (lines  50-249)  of  the  262  raster  lines 
(312  on  European  machines)  are  actually  part  of  the  visible 
display.  The  rest  constitute  the  screen  border. 

Here,  we  determine  the  current  raster  line  being  drawn 
with  RASTER,  changing  the  border  color  only  when  this  raster 
line  is  off  the  top  of  the  visible  screen  area  (when  it  has  a 
value  of  25  or  less).  This  prevents  the  "moving  lines"  effect 
where  the  raster  line  is  updated  before  it's  completely  drawn. 

Routine 


cooo 

EXTCOL 

•«= 

53280 

;  border  color  register 

cooo 

RASTER 

= 

53266 

;  current  raster  scan  line 

a 

GETIN 
ZP 

- 

65508 
251 

;  Cycle  border  color  while  raster  line  is  off 
:  bottom  of  screen. 

cooo 

AD 

12 

DO 

GETRAS 

LDA 

RASTER 

;  check  current  raster  line 

C003 

C9 

19 

CMP 

#25 

;  is  it  otf  the  top  of  the  screen? 

C005 

90 

F9 

BCS 

CETRAS 

;  no.  so  wait 

C007 

H6 

FB 

INC 

ZP 

:  yes,  so  cycle  color 

C009 

AS 

FB 

LDA 

ZP 

;  .A  contains  border  color 

C00B 

20 

14 

CO 

JSR 

BORCOL 

;  change  it 

C00E 

20 

£4 

FF 

WAIT 

JSR 

GETIN 

;  get  a  keypress 

con 

F0 

ED 

BEQ 

GETRAS 

;  no  key.  so  continue  to  cycle 

C013 

60 

RTS 

;  Set  border  color  .A  holds  color  value. 

COM 

8D 

20 

DO 

BORCOL 

STA 

EXTCOL 

;  set  register 

C017 

60 

RTS 

See  also  BCKCOL,  COLFTL,  TXTCCH,  TXTCOL. 
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BUFCLR 


Name 

Clear  the  keyboard  buffer 

Description 

There  are  often  situations  where  you  want  to  accept  only  the 
last  input  from  the  user  and  ignore  any  previous  input.  For  in- 
stance, suppose  your  program  has  a  series  of  yes/no  questions 
requiring  a  Y  or  N  response.  If  the  user's  finger  lingers  on  a 
key,  several  such  responses  can  unintentionally  be  entered  into 
the  keyboard  buffer.  And  subsequent  questions  will  be  an- 
swered, for  better  or  for  worse,  in  a  flash. 

Or  suppose  you  have  written  a  game  that  requires  key- 
board control.  At  the  end  of  the  game,  you  might  have  a 
"Play  again  (Y/N)?"  question.  If  the  keyboard  buffer  contains 
a  number  of  moves,  the  question  can  be  answered  before  the 
player  realizes  what  has  happened. 

In  both  cases,  you  need  to  clear  the  keyboard  buffer  just 
before  a  response  is  accepted.  To  clear  the  keyboard  buffer, 
simply  store  a  zero  in  NDX,  the  location  containing  the  num- 
ber of  characters  currently  in  the  buffer. 

Prototype 

Store  a  zero  in  the  keyboard  buffer  character  counter,  NDX. 

Explanation 

The  example  routine  illustrates  how  to  clear  the  keyboard 
buffer  before  input  is  accepted. 

The  keyboard  buffer,  which  begins  at  location  631  on  the 
64  and  location  842  on  the  128,  can  hold  up  to  ten  characters 
before  overflow  occurs.  When  the  buffer  fills,  additional 
characters  are  ignored.  Note  that  GETIN  returns  the  first 
character  placed  in  the  buffer. 

Routine 


cooo 

cooo 
cooo 

NDX 

GETIN 
CHROUT 

: 

198 

65508 
65490 

j  NDX  —  208  on  the  128 — number  of  characters 
;  in  keyboard  buffer 

cooo 

C003 
C006 
C008 
COOB 

20 
20 
F0 
20 
60 

oc 

E4 
FB 
D2 

CO 
FF 

FF 

WAIT 

JSR 

JSR 

BEQ 

JSR 

RTS 

BUFCLR 

CETTN 

WAIT 

CHROUT 

;  Clear  keyboard  buffer  and  fetch  a  keypress 
:  clear  the  keyboard  buffer 
;  fetch  the  next  character 
;  no  keypress,  so  WAIT 
:  print  it 

cooc 

A9 

00 

BUFCLR 

LDA 

#0 

;  Clear  the  keyboard  buffer. 

COOE 
C010 

85 
60 

C6 

STA 

RTS 

NDX 

;  set  number  of  keys  to  0 

See  also  CHRGTR,  CHRGTS,  CHRKER,  MATGET. 
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BYT1DL 


Name 

Cause  a  one-byte  delay 

Description 

Access  the  BYT1DL  routine  whenever  you  need  to  produce  a 
very  brief  delay  in  your  program.  By  using  this  routine,  you 
can  generate  delays  of  a  millisecond  or  less. 

Prototype 

1.  Enter  this  routine  with  the  delay  byte  in  .X. 

2.  Decrement  .X  to  zero  and  then  RTS. 

Explanation 

The  requirements  of  the  routine  are  simple:  Just  load  the  X 
register  with  a  delay  value — some  number  from  0-255 — and 
JSR  to  the  routine. 

Within  the  routine  itself,  a  branching  loop  repeats  until  .X 
decrements  to  zero.  Because  .X  is  decremented  before  the 
branch,  the  maximum  delay  occurs  when  .X  is  initially  equal 
to  zero.  In  this  case,  256  branches  take  place. 

By  knowing  the  number  of  machine  cycles  required  by 
each  instruction  (see  the  opcode  table  which  appears  else- 
where in  this  book),  you  can  determine  the  actual  delay  time 
for  BYT1DL  based  on  the  incoming  .X  value.  Within  the  rou- 
tine, each  DEX  requires  two  cycles  while  the  BNE,  assuming 
no  page  boundaries  are  crossed,  takes  three.  If  no  branch  ac- 
tually occurs,  which  is  the  case  on  the  last  pass  through  the 
loop,  the  BNE  instruction  requires  only  two  cycles. 

In  addition  to  instructions  within  the  loop,  you  must  con- 
sider the  JSR  and  the  RTS.  Both  of  these  require  six  cycles. 

Overall,  then,  the  number  of  machine  cycles  (MC),  based 
on  the  incoming  .X  value,  can  be  calculated  by  using  the  for- 
mula MC=B  *  X  -  1  +  12.  B  is  either  5  or  6  here,  depending 
on  whether  or  not  the  branch  crosses  a  page  boundary;  X  is 
the  number  of  times  the  loop  repeats.  In  all  cases  but  one — 
the  exception  being  when  .X  is  initially  zero — X  in  the  formula 
is  the  same  as  the  contents  of  the  X  register. 

On  the  64  or  128,  the  duration  of  each  machine  cycle  is 
based  on  the  clock  speed  for  the  microprocessor.  For  North 
American  (NTSC)  systems,  the  microprocessor  runs  at 
1,022,730  Hz  (cycles  per  second).  European  systems  (PAL) 
have  a  clock  speed  of  985,250  Hz.  At  either  rate,  each  ma- 
chine cycle  takes  approximately  1  microsecond  (IE  — 6  sec- 
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ond) — 0.978  microseconds  for  NTSC  systems  and  1.015 
microseconds  for  PAL  systems. 

And  so,  if  .X  were  zero  coming  into  BYT1DL,  the  delay 
loop  would  have  a  maximum  number  of  repetitions — 256.  In 
this  case,  a  delay  of  5  *  256  —  1  +  12,  or  1291,  machine  cy- 
cles would  result.  Assuming  a  64  or  128  using  the  North 
American  convention,  the  actual  time  that  elapses  would  be 
1291*0.978  microseconds,  or  1.263  milliseconds  (1.263E-3 
second). 

On  the  other  hand,  if  .X  holds  1  upon  entry  into  the 
loop — so  no  repetitions  take  place — a  delay  of  16  cycles,  or 
15.6  microseconds,  would  result. 

All  in  all,  then,  BYT1DL  offers  a  wide  range  of  delays,  al- 
though they're  consistently  brief.  If  you  need  to,  you  can  ad- 
just the  range  of  these  delays  upward  by  inserting  additional 
instructions  between  the  DEX  and  the  BNE  instruction  in  the 
loop.  Just  make  sure  any  instructions  you  add  don't  affect  the 
execution  of  the  routine. 

A  typical  practice  is  to  insert  one  or  more  NOPs,  which 
take  two  cycles  each,  in  the  code.  Of  course,  you  could  also 
use  instructions  other  than  the  NOP  here,  as  long  as  they 
have  no  effect  on  the  zero  flag.  For  instance,  inserting  an  STX, 
which  stores  into  an  unused  absolute  address,  would  add  four 
cycles  each  time  through  the  loop. 


Routine 


BGCOLO 

= 

53281 

;  screen  background  color 

DELAY 

255 

;  one-byte  delay  value 

:  Set  the  screen  background  color  to  light 
;  gray,  cause  a  one-byte  delay 
;  (based  on  X),  and  then  change  the 
;  background  color  to  black. 

MAIN 

LDA 

•15 

;  for  light  gray  background 

COOO 

A9 

OF 

MAIN 

LDA 

#15 

C002 

8D 

21 

DO 

BCXCOL 

STA 

BGCOLO 

C005 

A2 

FF 

LDX 

•DELAY 

C007 

20 

0E 

CO 

JSR 

BYT1DL 

C0OA 

EE 

21 

DC! 

INC 

BGCOLO 

CO0D 

60 

RTS 

CO0E 

CA 

BYT1DL 

DEX 

COflF 

DO 

FD 

BNE 

BYT1DL 

con 

60 

RTS 

;  enter  BYT1DL  with  the  delay  value  in  .X 
I  cause  a  delay 

•  to  produce  a  black  background  (only  low 
;  nybble  is  significant) 


;  Enter  BYT1DL  with  the  delay  value  in  .X. 
;  decrement  the  one-byte  delay  value 
,-  if  .x  is  greater  than  zero,  continue 
;  we're  finished 


See  also  BYT2DL,  INTDEL,  JIFDEL,  KEYDEL,  TOD1DL. 
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Name 

Cause  a  two-byte  delay 

Description 

Like  BYT1DL,  this  routine  also  produces  short  program  de- 
lays. But  with  BYT2DL,  the  delays  are  slightly  longer — from  a 
few  milliseconds  (1/1000  second)  to  roughly  1/3  second.  De- 
lays on  this  order  are  frequently  needed  in  writing  game  pro- 
grams, especially  when  you  move  sprites  about  the  screen. 

Prototype 

1.  Enter  this  routine  with  the  delay  byte  in  .X. 

2.  Initialize  .Y  to  zero.  Then  in  YLOOP,  decrement  .Y  until  it 
reaches  zero  (256  times). 

3.  When  .Y  reaches  zero,  decrement  .X,  repeating  YLOOP  each 
time  until  .X  reaches  zero.  Then  RTS  to  the  main  program. 

Explanation 

To  use  BYT2DL,  load  the  X  register  with  a  delay  byte  and 
JSR  to  the  routine.  Notice  that  because  of  the  BNE  instruction 
in  SCO  14,  a  maximum  delay  actually  occurs  when  the  incom- 
ing value  of  .X  is  zero.  In  this  case,  the  loop  from  $C00E  to 
$C015  repeats  265  times. 

As  with  BYT1DL,  the  actual  amount  of  time  that  elapses 
during  a  delay,  based  on  the  initial  value  of  .X,  can  be  cal- 
culated from  the  number  of  machine  cycles  in  the  routine. 
(See  that  entry  for  an  explanation  of  the  calculation  method 
used.)  If  we  assume  no  page  boundaries  are  crossed,  each  time 
YLOOP  executes,  it  requires  5  *  256  -  1,  or  1279,  cycles.  Each 
cycle  takes  approximately  a  millionth  of  a  second. 

The  remaining  instructions  are  the  LDY  at  $C00E  (2  cy- 
cles), the  DEX  at  $C013  (2  cycles),  the  BNE  at  $C014  (3  cy- 
cles), the  RTS  at  $C016  (6  cycles),  and  a  JSR  to  the  routine  (6 
cycles).  Again,  assuming  no  page  boundaries  are  crossed,  the 
number  of  machine  cycles  (MC)  for  the  entire  routine  can  be 
determined  using  the  equation  MC  =  (1279  +  2  +  2  +  3) 
*X-  1  +  12. 

The  X  here  represents  the  number  of  times  the  loop  re- 
peats. In  all  cases  but  one,  X  in  the  formula  is  the  same  as  the 
X  register.  If  .X  is  initially  zero,  use  256  for  X  in  the  formula. 

Based  on  the  clock  speed  for  the  64  or  128,  and  with  X 
varying  from  0  to  256  in  the  formula,  each  delay  can  take 
from  1286  *  1  -  1  +  12  =  1297  cycles  to  1286  *  256  -  1 
+  12  =  329,227  cycles,  or  from  1.262  milliseconds  to  0.322 
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seconds  for  North  American  (NTSC)  systems. 

Again,  as  with  BYT1DL,  additional  instructions,  such  as 
NOPs,  can  be  inserted  into  the  code  to  adjust  the  delay  times 
upward.  In  fact,  using  this  approach,  delays  of  a  second  or 
more  can  be  achieved. 


Routine 

cooo 
cooo 


BGCOLO 
DELAY 


COOO  A9  OF  MAIN 

C002  8D  21     DO    BCKCOL 

COOS  A2  EF 

C007  20  0E    CO 

C00A  EE  21     DO 

C00D  60 


53281 
255 


LDA  #15 

STA  BGCOLO 

LDX  aDELAY 

ISR  BYT2DL 

INC  BGCOLO 


RTS 


C00E  A0    00 

C010  86 

COU  DO    FD 

C013  CA 

C014  DO    F8 

C016  60 


BYT2DL        LDY       #0 
YIOOP  DEY 

BNE      YLOOP 

DEX 

BNE      BYT2DL 

RTS 


;  screen  background  color 

;  two-byte  delay  value 

I 

;  Set  the  screen  background  color  to  light 

;  gray,  cause  a  two-byte  delay 

;  based  on  .X,  and  then  change  the 

:  background  color  to  black. 

:  for  light  gray  background 

;  enter  BYT2DL  with  the  delay  value  in  .X 
;  cause  a  delay 

;  to  produce  a  black  background  (only  low 
:  nibble  is  significant) 


;  Enter  BYT2DL  with  the  delay  value  in  .X. 
;  initialize  -Y 

;  .Y  decrements  256  times 
;  now  decrement  the  delay  value  in  .X 
;  continue  if  .X  is  greater  ihan  0 
;  we're  finished 


See  also  BYT1DL,  INTDEL,  JIFDEL,  KEYDEL,  TOD1DL. 
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Name 

Print  a  one-byte  integer 

Description 

At  some  point,  programs  that  handle  numbers — such  as 
games,  financial  programs,  and  scientific  and  mathematical 
programs — are  bound  to  require  a  routine  that  prints  a  one- 
byte  integer.  Not  only  is  a  routine  like  BYTASC  ideal  in  pro- 
grams of  this  type,  but  it  can  also  be  handy  in  overall  program 
debugging. 

For  instance,  suppose  you  have  a  problem  in  a  lengthy 
section  of  coding.  Knowing  that  BYTASC  prints  the  one-byte 
value  in  the  accumulator,  you  may  be  able  to  isolate  your 
problem  by  transferring  certain  intermediate  values  to  .A  and 
JSRing  to  BYTASC. 

Prototype 

1.  Enter  this  routine  with  the  one-byte  integer  you  wish  to 
print  in  .A. 

2.  Initialize  a  place-holder  table  by  storing  three  ASCII 
zeros— CHR$(48)— to  it. 

3.  Set  up  a  table  of  subtrahends  for  each  digit's  place — 100, 
10,1. 

4.  Count  the  number  of  times  (beginning  with  48)  the  sub- 
trahend representing  the  largest  digit's  place  (100)  can  be 
subtracted  from  the  value  in  the  accumulator  before  a  num- 
ber less  than  zero  results. 

5.  Store  this  number  to  the  proper  position  in  the  place-holder 
table. 

6.  Repeat  steps  4  and  5  for  the  next  two  digit  places — 10  and  1. 

7.  Finally,  print  out  the  ASCII  place-holder  table. 

Explanation 

In  the  example  program,  we  fetch  a  one-byte  value  from  the 
jiffy  dock  and  print  it  with  BYTASC. 

The  integer  occupying  any  single-byte  location  is  nec- 
essarily confined  to  a  range  from  0-255.  This  number  can 
have  as  many  as  three  digits  when  it's  printed  as  a  decimal 
number. 

With  this  in  mind,  we  set  up  a  counter  table  (DIGITS— 
see  below)  containing  three  ASCII  zeros,  or  CFIR$(48)s.  A 
common  subtraction  technique  is  then  employed  to  convert 
the  single-byte  value  in  the  accumulator  into  an  equivalent 
string. 
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In  this  method,  begin  with  the  highest  digit  for  the  num- 
ber, or  the  100's  place.  We  repeatedly  subtract  100 — the  first 
entry  in  the  table  of  one-byte  subtrahends,  or  TBI  SUB — from 
the  number  until  a  negative  result  occurs.  After  each  subtrac- 
tion yielding  a  positive  value  (>=0),  increment  the  first  entry 
in  the  DIGITS  table  representing  the  100's  place.  When  sub- 
traction finally  gives  a  negative  value,  the  number  is  restored 
to  the  value  it  had  before  this  last  subtraction,  and  the  whole 
process  is  repeated  for  the  next  two  digits  (the  10's  place,  then 
the  l's  place). 

When  all  three  places  in  the  number  have  been  accounted 
for,  DIGITS  contains  a  three-byte  string  for  the  number.  This 
is  printed  out  beginning  at  DONE. 

By  maintaining  a  flag  (ZEROFL)  within  the  printing  rou- 
tine, we're  able  to  print  the  number  without  printing  any  lead- 
ing zeros.  The  flag  tells  us  whether  a  nonzero  digit  has  been 
printed.  It  has  a  value  of  zero  as  long  as  the  preceding  digits 
are  all  zeros.  Whenever  the  first  nonzero  digit  is  encountered 
by  the  routine,  ZEROFL  takes  on  this  value.  In  other  words, 
it's  no  longer  zero. 

The  printing  routine  must  also  consider  the  special  case 
where  the  byte  has  a  value  of  zero  (all  three  digits  are  zero). 
This  is  taken  care  of  within  OUT.  If  ZEROFL  is  still  zero  after 
all  three  digits  have  been  assessed,  we  print  a  zero. 


Routine 


cooo 

CHROUT 

i= 

65490 

cooo 

GETIN 

m 

65508 

cooo 

JIFFY 

= 

162 

cooo 

ZP 

= 

251 

cooo 

A5 

A2 

LOOP 

LDA 

JIFFY 

;  gel  a  jiffy 

C002 

20 

15 

CO 

ISR 

BYTASC 

;  convert  value  to  ASCII  and  print  it 

C005 

A9 

20 

LDA 

#32 

;  print  a  SPACE 

C007 

20 

D2 

FF 

JSR 

CHROUT 

C00A 

A9 

0D 

LDA 

#13 

;  print  a  RETURN 

C00C 

20 

D2 

FF 

JSR 

CHROUT 

C00F 

20 

E4 

FF 

ISR 

GETIN 

;  check  for  keypress 

C012 

BO 

EC 

BEQ 

LOOP 

;  if  no  key.  continue 

COM 

60 

RTS 

C015      A2    30 


C017 
C01A 
C01D 
C020 
C022 
C025 


8E 
BE 
8E 
A0 
8C 
BE 


63 
64 
65 
00 
6A 
63 


BYTASC      LDX       #48 


co 

CO 
CO 

CO 
CO 


NMLOOP 


STX 
STX 
STX 
LDY 
STY 
LDX 


DIGITS 

DIGITS +1 

DIGITS+2 

#0 

ZEROFL 

DIGITS,Y 


;  BYTASC  converts  the  one-byte  number  in  A 
;  to  ASCII  and  prints  It. 

J  initially?  place-holder  table  (DIGITS)  with 
;  ASCII  0 


as  an  index 

initialize  ZEROFL 

load  with  ASCII  counter  for  a  particular 

digit's  place 
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C028     FO     14 


BEQ       DONE 


C02A    38  SEC 

C02B     F9     67     CO    SUBLOP      SBC       TB1SUB.Y 

C02E    E8  1NX 


C02F     BO    FA 
C031      79     67     CO 


BCS       SUBLOP 
ADC     TBISUB.Y 


DIGITS,Y 


COM  CA 

C035  48 

C036  8A 

C037  99     63     CO 

C03A  68 

C03B  C8 

C03C  DO    E7 

C03E  AO    FF  DONE         LDY 

COM  C8  PRTLOP      INY 

C041  B9    63     CO  LDA      DIGITS.Y 

C044  FO     12  BEQ 


DEX 
PHA 
TXA 
STA 
PLA 
INY 

BNE      NMLOOP 
#255 


C046      AE  6A    CO 

C049     DO  07 

C04B     C9  30 

C04D    FO  Fl 

C04F     8D  6A    CO 

20  D2   FF    PRINT 

4C  40     CO 

AD  6A    CO    OUT 

C05B    DO  05 

C05D    A9  30 

C05F     20  D2    FF 
C062     60  EXIT 


OUT 
LDX      ZEROFL 


C052 
C055 
C058 


BNE 

CMP 

BEQ 

STA 

JSR 

JMP 

LDA 

BNE 

LDA 

JSR 

RTS 


PRINT 

#48 

PRTLOP 

ZEROFL 

CHROUT 

PRTLOP 

ZEROFL 

EXIT 

#48 

CHROUT 


C063     00     00     00     DIGITS        .BYTE    0,0,0 


C066     00 

C067     64     0A    01     TB1SUB 


.BYTE    0 
.BYTE    100,10,1 


C06A    00  ZEROFL       .BYTE    0 

See  also  CNUMOT,  FACPRD,  FACPRT,  NUMOUT. 


If  we've  reached  (he  last  digit's  place,  go 
print  the  number 

subtract  corresponding  table  value  from  .A 

increment  ASCII  counter  for  a  particular 

digit's  place 

it  A  is  still  zero  or  above 

we  subtracted  one  time  too  many,  so  add 

subtrahend  back  to  .A 

since  one  time  too  many 

temporarily  save  .A 

store  respective  digit  to  place-holder  table 

restore  .A 

for  next  digit's  place 

branch  always 

as  index  in  the  number 

start  with  first  digit 

if  we're  at  the  end  of  the  table,  leave  routine 

check  ZEROFL  to  see  if  a  nonzero  digit  has 

been  printed 

if  so,  go  print  the  digit 

check  for  leading  zeros 

if  leading  zero  occurs,  get  the  next  digit 

store  nonzero  digit 

print  each  digit 

and  go  to  next  place 

determine  if  the  number  is  000 

if  not,  then  return 

print  a  zero 

we're  finished 

for  storing  ASCII  counter  values  for  each 

digit's  place 

digit's  terminator  byte 

table  of  one-byte  subtrahends  for  each  digit's 

place 

ZEROFL  is  nonzero  if  a  nonzero  digit  has 

printed 
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Name 

Convert  an  ASCII  number  to  a  binary  integer  value 
Description 

The  four  characters  in  the  string  2025  translate  to  the  hex 
value  $0401.  If  you  have  a  program  in  which  you  expect  users 
to  type  in  individual  numbers  such  as  2,  0,  2,  and  5,  and  if 
you'd  like  to  change  the  characters  to  a  workable  integer,  this 
routine  will  handle  the  conversion. 

Prototype 

1.  Zero  the  bytes  that  hold  the  result. 

2.  Get  the  first  (or  next)  character  and  subtract  48  to  strip  off 
the  ASCII  trappings. 

3.  Multiply  the  result  by  10  and  add  the  new  value. 

4.  Jump  back  to  step  2  and  get  the  next  character;  repeat  until 
all  have  been  taken  care  of. 

Explanation 

This  example  routine  can  take  nine  or  ten  ASCII  characters 
and  translate  them  into  binary  values.  The  limit  is  the  four 
bytes  of  the  RESULT  variable;  four  bytes  can  count  up  to 
approximately  4.3  billion  (4,294,967,206).  It  should  be  rel- 
atively easy  to  add  a  fifth  byte  (or  even  more)  to  extend  the 
range  to  the  size  of  the  U.S.  budget. 

The  CAS2IN  routine  has  no  error  checking.  It's  up  to  you 
to  make  sure  the  characters  are  within  the  range  48-57  (ASCII 
0-9).  The  ASCII  string  should  be  terminated  with  a  zero  byte, 
or  with  any  byte  that's  less  than  48,  for  that  matter. 

An  example  of  conversion  is  the  short  string  9802,  which 
contains  four  characters.  Start  at  the  leftmost  character,  9.  Mul- 
tiply the  result  (0)  by  10  (still  0)  and  add  9.  Now  the  result 
holds  a  9.  The  next  character  is  8.  Multiply  the  result  (9)  by  10 
(90)  and  add  8  (98).  The  next  character  is  0.  Multiply  result 
(98)  by  10  (980)  and  add  0  (980).  The  final  character  is  2.  So, 
980  becomes  9800,  then  9801.  The  ASCII  string  of  characters 
9802  (the  four  characters  $39,  $38,  $30,  and  $31)  has  been 
transformed  into  the  numeric  value  $2649. 

One  of  the  key  routines  is  TIMES  10.  If  you  shift  a  binary 
number  to  the  left,  you  multiply  it  by  2.  Likewise,  if  you  shift 
a  decimal  number  to  the  left,  you  multiply  by  1 0.  For  example, 
120  shifted  left  in  base  10  is  1200  (120  X  10).  In  binary, 
%1101  (decimal  13)  shifted  left  becomes  %11010  (decimal  26). 
To  multiply  a  binary  number  by  10,  shift  it  left  once  (times  2) 
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and  save  it.  Then  shift  left  two  more  times  (times  2  times  2, 
for  a  grand  total  of  times  8).  Add  the  two  results  (x  times  2 
plus  x  times  8)  and  the  number  has  been  multiplied  by  10. 

Warning:  Don't  succumb  to  the  temptation  to  replace  the 
multiple  ADC  or  ROL  instructions  with  an  indexed  loop.  The 
X  and  Y  registers  would  have  to  count  from  zero  to  three,  be- 
cause the  low  byte  comes  before  medium  and  high  bytes,  and 
you  have  to  add  or  rotate  the  low  byte  first.  To  test  for  the  end 
of  the  loop,  you'd  have  to  CPX  or  CPY.  But  the  act  of  compar- 
ing sets  or  clears  the  carry  flag,  and  the  whole  point  of  the 
addition  or  rotation  is  to  move  the  carry  flags  as  they  overflow 
from  one  byte  to  the  next.  If  you  compare,  you  change  the 
carry  flag,  with  potentially  weird  results. 


Routine 


cooo 

CAS2IN 

— 

• 

cooo 

A9 

00 

LDA 

#0 

first,  zero  out  the  total 

C002 

A2 

03 

LDX 

#BYTES 

number  of  bytes  in  the  result 

C004 

9D 

78 

CO 

ZLOOP 

STA 

RESUIXX 

COOT 

CA 

DEX 

count  down 

C008 

10 

FA 

BPL 

ZLOOP 

and  loop 

C00A 

AA 

TAX 

.A  holds  a  zero 

CO0B 

BD 

71 

CO 

MAINLP 

LDA 

ASCNUM.X 

get  a  number 

C00E 

38 

SEC 

strip  off  the  ASCII  part  to  get  a  number 

0-9 

by  subtracting  48 

C00F 

F.9 

30 

SBC 

#48 

con 

90 

IE 

BCC 

FINIS 

If  the  number  is  less  than  48,  carry  is 
dear 

C013 

48 

PHA 

save  this  number  temporarily 

COM 

20 

32 

CO 

JSR 

TIMESI0 

multiply  RESULT  by  10 

C017 

68 

PLA 

get  the  value  again 

C018 

18 

CLC 

C019 

6D 

78 

CO 

ADC 

RESULT 

and  add  it  to  RESULT 

C01C 

8D 

78 

CO 

STA 

RESULT 

store  it  back 

COIF 

90 

0D 

BCC 

DOX 

C021 

EE 

79 

CO 

INC 

RESULT+I 

do  the  high  bytes 

C024 

DO 

OS 

BNE 

DOX 

C026 

EE 

7A 

CO 

INC 

RESULT+2 

C029 

DO 

03 

BNE 

DOX 

C02B 

EE 

7B 

CO 

INC 

RESULT+3 

C02E 

E8 

DOX 

INX 

count  forward 

C02F 

DO 

DA 

BNE 

MAINLP 

and  go  back  for  more/branch  always 

C031 

60 

FINIS 

RTS 

end  of  the  routine 

C032 

20 

42 

CO 

TIMES10 

JSR 

nMES2 

multiply  RESULT  by  2 

C035 

20 

4F 

CO 

JSR 

copm 

copy  RESULT  to  TEMP 

C03S 

20 

3F 

CO 

JSR 

nMES4 

multiply  RESULT  by  4  more  (total  of  8) 

C03B 

20 

SB 

CO 

JSR 

ADDEM 

add  TEMP  and  RESULT  (times  10  total) 

C03E 

60 

RTS 

done 

C03F 

20 

42 

CO 

TIMES4 

JSR 

TIMES2 

call  TIMES2  and  fall  through 

C042 

OE 

78 

CO 

TIMES2 

ASL 

RESULT 

times  2  via  shifts  to  the  left 

C045 

2E 

79 

co 

ROL 

RESULT +1 

C048 

2E 

7A 

CO 

ROL 

RESULT+2 

C04B 

2E 

7B 

CO 

ROL 

RESULT+3 
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CAS2IN 


C04E     60 


RTS 


;  end  of  times  routines 


C04F 

AO 

03 

COPYJT 

LDY 

•  BYTES 

;copy 

C051 

B9 

78 

CO 

CPLOOP 

LDA 

RESULT.Y 

;  from  RESULT 

C054 

99 

7C 

CO 

STA 

TEMP.Y 

i  to  TEMP 

C057 

88 

DEY 

C0S8 

10 

F7 

BPL 

CPLOOP 

;  branch  back 

C05A 

60 

RTS 

C05B 

AO 

00 

ADDEM 

LDY 

#0 

' 

C05D 

18 

CLC 

C05E 

08 

PHP 

1  preparation 

COSF 

28 

ADLOOP 

PLP 

j gel  .P  back 

C060 

B9 

7C 

CO 

LDA 

TEMP.Y 

;  gel  TEMP 

C063 

79 

78 

CO 

ADC 

RESULT.Y 

;  add  it  to  RESULT 

C066 

99 

78 

CO 

STA 

RESULT.Y 

;  and  store  it 

C069 

08 

PHP 

j  save  carry  temporarily 

C06A 

C8 

INY 

C06B 

CO 

04 

CPY 

"MAX 

C06D 

DO 

FO 

BNZ 

ADLOOP 

C06F 

28 

PLP 

;  remove  .P  from  the  ste 

C070 

60 

RTS 

C071    31     39    36    ASCNUM     -ASC     "196863" 
C077     00  .BYTE    0 

C078    00    00    00    RESULT        .BYTE   0.0.0.0 


C07C  MAX 

C07C  BYTES 

C07C    00    00    00    TEMP 


; 


;  always  zero  terminated 
;  enough  to  handle  roughly  4,000.000.000 
;  but  you  can  add  more  zeros  (or  larger 
;  numbers 


—  *  -  RESULT 

MAX-  1 
.BYTE    0,0.0,0 


See  also  BCD2AX,  CB2ASC,  CB2HEX,  CI2HEX. 
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Name 

Convert  Commodore  ASCII  characters  into  screen  codes 
Description 

Both  the  64  and  128  represent  their  character  sets  in  different 
ways,  depending  on  the  application.  CASSCR  converts  char- 
acters from  one  of  these  coding  systems  to  another — namely, 
from  Commodore  ASCII  into  screen  codes.  This  routine  is  help- 
ful anytime  you  need  to  store  Commodore  ASCII  characters  or 
strings  of  characters  directly  into  screen  memory.  Two  popular 
word  processors  (WordPro  and  SpeedScript)  store  their  files  as 
screen  codes,  so  this  routine  is  useful  in  performing  conver- 
sions of  ASCII  files  to  be  used  with  these  word  processors. 

The  routine  itself  is  set  up  to  receive  Commodore  ASCII 
character  values  in  the  accumulator.  An  equivalent  screen 
code,  if  it  exists,  is  then  returned  in  the  accumulator.  In  the 
process,  the  carry  flag  is  cleared.  However,  if  no  screen  code  is 
defined  for  the  character,  the  accumulator  is  left  unchanged, 
and  carry  is  set  to  indicate  the  conversion  error. 

Prototype 

1.  Check  for  the  pi  character  (255).  If  the  character  is  pi,  set  .A 
to  126,  clear  carry,  and  return. 

2.  Otherwise,  determine  whether  the  character  lacks  an 
equivalent  screen  code  value  (character  code  is  in  the  range 
0-31  or  128-159).  If  so,  set  the  carry  flag  and  return,  leav- 
ing .A  as  is. 

3.  If  the  character's  value  exceeds  127,  go  to  step  5. 

4.  If  it's  in  the  range  96-127,  AND  it  with  95,  clear  carry,  and 
return. 

5.  Replace  bit  6  of  A  with  bit  7,  place  a  zero  in  bit  7,  and 
RTS,  leaving  carry  clear. 

Explanation 

The  example  program  converts  a  string  of  Commodore  ASCII 
characters  (in  STRING)  into  screen  codes  and  stores  them  at 
the  beginning  of  screen  memory.  Any  characters  that  lack 
screen  codes  won't  appear  (BCS  SKIP). 

Except  for  the  special  case  of  character  255,  which  is  set 
to  126,  CASSCR  performs  conversions  based  on  the  range  in 
which  the  character  lies.  As  it  turns  out,  each  range  can  be 
characterized  by  a  different  bit  pattern.  The  table  shows  the 
bit  patterns  of  characters  within  each  range  before  and  after 
conversion. 
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Character  Bit  Patterns 

Before: 

After: 

Range 

0-31 
128-159 

Bit  Pattern 

%000x  xxxx 
%100xxxxx 

Range 

Nonexistent 
Nonexistent 

Bit  Pattern 

96-127 

%011xxxxx 

64-95 

%010x  xxxx 

32-63 

64-95 

160-191 

192-223 

224-254 

%001x  xxxx 
%010x  xxxx 
%101x  xxxx 
%110x  xxxx 
%lllx  xxxx 

32-63 
0-31 
96-127 
64-95 
96-127 

%001x  xxxx  (same) 
%000x  xxxx 
%011x  xxxx 
%010x  xxxx 
%011xxxxx 

Within  each  bit  pattern,  a  zero  designates  bits  that  are  al- 
ways off;  a  one  designates  bits  that  are  always  on.  An  x  repre- 
sents bits  that  may  be  on  or  off. 

We've  intentionally  grouped  together  character  ranges  that 
can  be  converted  with  the  same  bit  manipulations.  The  first 
group  is  handled  as  in  step  2  of  the  prototype  above,  the  sec- 
ond as  in  step  4,  and  the  third  as  in  step  5. 

If  you  look  closely  at  the  bit  patterns,  you'll  see  how  the 
routine  will  work.  First,  if  the  result  of  the  number  AND  127 
(%01111111)  is  31  or  less,  the  ASCII  value  can't  be  converted. 
If  the  number  is  in  the  range  96-127,  AND  it  with  95 
(%01011111),  and  you're  finished.  The  final  and  largest  group 
has  three  characteristics:  Bit  7  is  always  %0  in  the  result.  Bit  6 
of  the  screen  code  is  always  the  same  as  bit  7  of  the  ASCII 
code.  And  bit  5  remains  unchanged. 

The  overall  effect  is  that  ASCII  characters  without  screen 
codes  (in  the  range  0-31  or  128-159)  are  left  alone,  but  the 
carry  flag  is  set.  For  all  others,  the  carry  flag  is  cleared. 

Note:  CASSCR  has  no  effect  on  either  .X  or  .Y.  For  this 
reason,  you  can  use  the  routine  in  a  loop  indexed  by  either 
register  without  first  having  to  save  the  register  contents. 


Routine 


cooo 

CHROUT 

— 

65490 

cooo 

ZP 

= 

251 

cooo 

SCREEN 

•> 

1024 

;  start  of  text  screen 

cooo 

COLRAM 

= 

55296 

;  start  of  color  RAM 

cooo 

BGCOL0 

— 

53281 

;  screen  background  color 

cooo 

BLACK 

= 

0 

cooo 

MDGRAY 

- 

12 
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COOO  A9  93  CLRCHR     LDA 

C002  20  D2  FF                          JSR 

C0O5  A9  OC  LDA 

C007  8D  21  DO                      STA 

COOA  AO  00  LDY 

COOC  B9  5A  CO    LOOP           LDA 

COOF  FO  10  BEQ 

COU  20  22  CO                      JSR 

C014  BO  08  BCS 


CO!  6  99  00     04 

C019  A9  00 

C01B  99  00    D8 

C01E  C8 

COIF  DO  EB 

C021  60 


STA 


LDA 


SKIP 


STA 
INY 
BNE 
FINISH        RTS 


#147 

CHROUT 

#MDGRAY 

BGCOLO 

#0 

STRINCY 

FINISH 

CASSCR 

SKIP 

SCREEN.Y 

#8LACK 

COLRAM,Y 

LOOP 


C022  C9  FF  CASSCR      CMP  #255 

C024  DO  04  BNE  NEQUTV 

C026  A9  7E  LDA  #126 

COM  18  CLC 

C029  60  RTS 

C02A  8D  80  CO    NEQUIV      STA  TEMPA 


C02D    29     60 
C02F     DO    05 


AND     #%011000O0 
BNE      UPPLOW 


C031  AD  80  CO    ERROR        LDA  TEMPA 

COM  38  SEC 

C035  60  RTS 

C036  AD  80  CO    UPPLOW     LDA  TEMPA 

C039  30     06  BMI  REMAIN 

C03B  29     60  AND  #%01100000 


C03D    C9    60 
C03F     FO     12 


CMP      #%OU0O000 
BEQ      TOPLOW 


C041 

OE 

80 

CO 

REMAIN 

ASL 

TEMPA 

C044 

2A 

ROL 

C045 

2E 

80 

CO 

ROL 

TEMPA 

C048 

6A 

ROR 

C049 

6E 

80 

CO 

ROR 

TEMPA 

C04C 

4E 

ao 

CO 

LSR 

TEMPA 

C04F 

AD 

80 

CO 

LDA 

TEMPA 

C052 

60 

RTS 

C053 

AD 

60 

CO 

TOPLOW 

LDA 

TEMPA 

C056 

29 

5F 

AND 

#%01011111 

C058 

18 

CLC 

C059 

60 

RTS 

;  Convert  a  string  from  Commodore  ASCII  to 
i  screen  codes  and  POKE  It. 
;  clear  the  screen 

;  set  screen  background  color  to  medium  gray 

;  as  an  index 

;  get  a  character  from  string 

;  is  it  a  zero  byte? 

:  convert  it  to  a  screen  code 

;  if  carry  is  set,  no  screen  code  exists 

:  POKE  message  to  screen  using  modified 

; POKSCR 

;  set  foreground  color  of  character  to  black  (for 

;  early  64s) 

;  next  character 
;  continue  printing 

;  Convert  Commodore  ASCII  in  .A  to  screen 

;  code  in  .A. 

,  If  no  corresponding  screen  code  exists,  carry 

:  is  set  to  indicate  the  error  and 

;  -A  is  unchanged. 

;  la  it  pi? 

;  if  not,  check  for  nonequlvalent  codes 

;  255  becomes  126 

;  and  we  exit 

;  preserve  Commodore  ASCII  value  for  later 

;  checks 

;  check  for  nonequivalent  codes  (0-31  and 

;  128-159) 

;  if  no,  go  check  for  upper/lower  half  of 

;  character  set 

;  otherwise,  no  equivalent  code  so  restore  .A 

;  and  indicate  error 

;  restore  .A 

;  in  lower  halt;  first  check  whether  in  range 

;  96-127 

;  bit  5  and  6  are  set  if  in  96-127 

:  if  so,  go  convert 

;  Otherwise,  handle  remainder  (32-63,  64-95, 

;  160-191,  192-223,  224-254). 

;  Shift  Wt  7  to  6  of  TEMPA  (containing  the 

;  character)  and  set  bit  7  to  0. 

;  bit  7  of  TEMPA  into  carry 

;  carry  into  bit  0  of  .A 

;  bit  6  of  original  TEMPA  goes  into  carry 

;  bit  0  of  .A  back  into  carry 

;  carry  into  bit  7 

;  move  7  to  6  while  setting  7  to  0 

;  restore  .A 

;  and  return  (the  LSR  cleared  the  cany) 

;  convert  range  96-127 

I  and  return  with  an  equivalent  code 
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C05A   54    C8    C9   STRING      .ASC  ;  "This  message  was  POKEd  to  she  screen." 

C07F    00  -BYTE0 

C080  TEMPA         .BYTEO  ;  for  temporary  .A  storage 

See  also  CASTAS,  CNVERT,  SCRCAS,  TASCAS. 
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Name 

Convert  Commodore  ASCII  characters  to  true  ASCII 
Description 

Commodore  computers,  including  the  64  and  128,  use  their 
own  special  character  codes  known  as  Commodore  ASCII. 
Many  other  microcomputers  use  a  more  standard  character  set 
known  as  true  ASCII.  On  a  64  or  128,  for  example,  the  ASCII 
character  65  is  a  lowercase  a.  But  true  ASCII  defines  65  as  an 
uppercase  A.  This  is  the  primary  difference  between  the  two 
ASCIIs:  The  upper  and  lowercase  letters  are  switched.  In  order 
to  send  transmissions  via  a  modem  to  other  computers,  or  to 
use  certain  printers  that  expect  to  receive  true  ASCII,  you  need 
to  convert  Commodore's  ASCII  to  true  ASCII. 

CASTAS  converts  Commodore  characters  in  the  accu- 
mulator to  true  ASCII  and  leaves  the  result  in  A.  All  true 
ASCII  characters  are  in  the  range  0-127.  Ordinarily,  no 
characters  above  127,  most  of  which  are  graphics  characters, 
will  be  converted.  However,  the  64  and  128  have  a  second  set 
of  uppercase  characters,  193-218,  which  are  used  when  print- 
ing to  the  screen.  In  addition,  shifted-space — CHR$(160) — is 
sometimes  typed  in  as  if  it  were  a  normal  space  (when  SHIFT 
LOCK  is  engaged,  for  example).  So  these  two  instances  are 
exceptions  to  the  rule. 

Also,  there  are  characters  on  the  64  and  128  for  which 
there  are  no  true  ASCII  equivalents.  If  CASTAS  receives  one 
of  these,  it  returns  a  zero  in  the  accumulator  and  sets  the  carry 
flag. 

Prototype 

1.  Change  the  shifted-space  character  (160),  if  it  occurs,  to 
space  (32). 

2.  Check  the  character  value  to  see  whether  it  lies  within  one 
of  three  ranges  of  Commodore  ASCII  alphabetic  characters 
(193-218,  97-122,  or  65-90). 

3.  If  it  doesn't,  go  to  step  7. 

4.  If  the  character  in  A  is  within  one  of  the  three  ranges,  ASL  it. 

5.  If  carry  is  clear  (so  the  character  is  either  in  the  range 
97-122  or  65-90),  flip  bit  6.  Otherwise,  go  to  step  6  (the 
character  is  193-218). 

6.  Perform  an  LSR. 

7.  Determine  whether  the  character  value  is  128  or  greater.  If 
it's  not,  then  RTS. 

8.  Otherwise,  set  A  to  zero  and  leave  carry  set. 
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Explanation 

You  can  test  this  routine  in  the  example  program  by  typing  in 
all  sorts  of  Commodore  ASCII  characters.  As  each  character  is 
typed  in,  its  Commodore  ASCII  value  is  displayed,  conversion 
is  done  with  CASTAS,  and  the  equivalent  true  ASCII  value  is 
also  shown.  This  process  continues  until  you  press  RETURN. 

Conversion  from  Commodore  ASCII  to  true  ASCII  is 
fairly  straightforward  because  of  the  similarities  between  the 
two  character  sets.  Basically,  all  we  need  to  do  is  switch  upper- 
case (97-122  or  193-218)  to  lowercase  (65-90)  letters,  or 
lowercase  to  uppercase  (97-122).  This  is  all  handled  by  the 
routine  SWITCH,  explained  elsewhere  in  this  book.  As  men- 
tioned, the  shifted-space  is  a  special  case.  So,  before  entering 
SWITCH,  we  convert  this  character  to  a  normal  space  (32). 

Note:  CASTAS  corrupts  the  Y  register.  If  your  program 
uses  .Y,  be  sure  to  save  it  to  a  temporary  location  before  enter- 
ing the  routine.  And,  of  course,  restore  it  when  you  return 
from  CASTAS. 

Routine 


cooo 

CHROUT 

= 

65490 

cooo 

Chi  IN 

= 

65508 

cooo 

LINPRT 

= 

48589 

;  LtNPRT  =  36402  on  the  128 

cooo 

ZP 

— 

251 

cooo 

DSFTCM 

— 

8 

;  DSFTCM  =  11  on  the  128 

cooo 

ESFTCM 

9 

;  ESFTCM  =  12  on  the  128 

■ 

,-  Get  a  character:  print  its  Commodore  ASCII 

;  value  and  true  ASCII  value. 

.  Quit  on  RETURN. 

cooo 

A9 

0E 

LDA 

#14 

;  switch  to  lowercase/uppercase  mode 

C002 

20 

D2 

FF 

JSR 

CHROUT 

C005 

A9 

08 

LDA 

#DSFTCM 

.-  disable  SHIFT/Commodore  key  case 
;  switching 

COO" 

20 

D2 

FF 

JSR 

CHROUT 

C00A 

20 

U 

FF 

WAIT 

JSR 

GETIN 

;  get  a  character 

C00D 

FO 

FB 

BEQ 

WAIT 

;  if  null  string,  then  get  another  key 

COOF 

20 

30 

CO 

JSR 

NUMFRT 

;  print  the  Commodore  ASCII  value 

C012 

A9 

20 

LDA 

#32 

;  print  space 

C014 

20 

D2 

FF 

JSR 

CHROUT 

C017 

A3 

FB 

LDA 

ZP 

;  restore  .A 

C019 

20 

38 

CO 

JSR 

CASTAS 

:  convert  value  in  A  from  Commodore  to 
:  true  ASCII 

coic 

20 

30 

CO 

|SR 

NUMFRT 

:  print  the  true  ASCII  value 

C01F 

A9 

0D 

LDA 

«13 

:  print  RETURN 

C021 

20 

D2 

FF 

JSR 

CHROUT 

C024 

A5 

FB 

LDA 

ZP 

:  restore  *A 

C026 

C9 

0D 

CMP 

>>13 

:  is  it  RETURN? 

C028 

DO 

EO 

BNE 

WAIT 

;  no.  so  get  another  character 

C02A 

A9 

09 

QUIT 

LDA 

•ESFTCM 

;  enable  SHIFT/Commodore  key  case 
i  switching 

C02C 

20 

D2 

FF 

JSR 

CHROUT 

C02F 

60 

RTS 

;  and  return 
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C030  85  FB  NUMPRT      STA  ZP 

C032  AA  TAX 

C033  A9  00  LDA  #0 

C03S  4C  CD  BD  NUMOUT    JMP  L1NPRT 


;  save  .A 

:  low  byte  of  ASCII  value 

;  high  byte 

;  print  the  ASCII  value  (see  NUMOUT)  and 

; return 


C038 

C9 

AO 

CASTAS 

CMP 

#160 

C03A 

DO 

02 

BNE 

SWITCH 

C03C 

A9 

20 

LDA 

#32 

C03E 

A0 

03 

SWITCH 

LDY 

#3 

C040 

88 

LOOP 

DEY 

C041 

30 

10 

BMI 

EXIT 

C043 

D9 

5A 

CO 

CMP 

RANGEI.Y 

C046 

90 

OB 

BCC 

EXIT 

C048 

D9 

SD 

CO 

CMP 

RANGE2.Y 

C04B 

B0 

F3 

BCS 

LOOP 

C04D 

0A 

FLOTT 

ASL 

C04E 

BO 

02 

BCS 

Fixrr 

C050 

49 

40 

EOR 

#64 

C052 

4A 

FIXIT 

LSR 

C053 

C9 

80 

EXIT 

CMP 

#128 

C0S5 

90 

02 

BCC 

OUT 

C057 

A9 

00 

LDA 

#0 

C059 

60 

OUT 

RTS 

C05A 

Cl 

61 

41 

RANGE1 

BYTE 

193,97,65 

C05D 

DB 

7B 

5B 

RANGE2 

-BYTE 

219.123,91 

;  Convert  Commodore  ASCII  in  .A  to  true 

:  ASCII  in  .A. 

;  .A  is  zero  and  carry  flag  is  set  if  there  is  no 

;  equivalent  true  ASCII  value 

;  (except  characters  193-218,  which  are 

;  converted  as  if  they  were  97-122). 

;  Also  character  160  is  handled  as  if  it  were  a 

;32. 

;  take  care  of  shift-space 

;  if  not  shift-space,  use  SWITCH  to  convert 

;  others 

;  shift-space  becomes  space 

;  index  to  table 

;  exit  if  no  more  ranges  to  check 

;  character  falls  below  RANGE!,  so  exit 

;  character  is  above  RANGE2  so  check  next 

;  range 

;  character  is  in  a  range;  shift  bit  7  to  carry 

;  character  is  >=128 

;  flip  bit  6 

I  restore  character  (bit  7  becomes  zero) 

;  carry  is  set  for  ail  characters  above  128 

t  (except  193-218  and  160) 

i  return  a  zero  in  .A  if  above  128  (and  not 
;  exceptions) 


;  lower  delimiter  of  each  range 
;  upper  delimiter  + 1  of  each  range 


See  also  CASSCR,  CNVERT,  SCRCAS,  TASCAS. 
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Name 

Convert  a  byte  value  to  an  ASCII  number  by  using  subtraction 

Description 

A  byte  value  such  as  102  is  stored  in  memory  as  a  series  of  bi- 
nary bits.  If  you  want  to  print  it  out,  not  as  a  CHR$(102),  but 
as  the  three  characters  1,  0,  and  2,  you  can  use  this  routine  to 
convert  the  byte  to  three  ASCII  values. 

Prototype 

1 .  Enter  CB2ASC  with  the  value  to  be  translated  in  the 
accumulator. 

2.  Load  .Y  with  a  zero. 

3.  Repeatedly  subtract  100  until  the  value  becomes  negative. 

4.  After  each  successful  subtraction,  increment  .Y. 

5.  When  the  value  becomes  less  than  zero,  add  back  100  and 
store  .Y. 

6.  Repeat  steps  2-5,  subtracting  the  values  10  and  1. 

Explanation 

The  procedure  is  straightforward.  Subtract  hundreds,  then 
tens,  then  ones.  At  each  step,  save  the  result  in  memory. 
These  numbers  can  then  be  ORed  with  48  to  create  printable 
ASCII  numbers. 

Routine 


cooo 

TIMER 

— 

$A2 

;  the  jiffy  clock 

cooo 

RESULT 

"* 

828 

;  store  ASCII  digits  in  the  cassette  buffer 
;  (RESULT  -  2816  on  the  128) 

cooo 

CHROUT 

™ 

$ffd: 

cooo 

A5 

A2 

LDA 

TIMER 

;  get  a  changing  number 

C002 

20 

15 

CO 

JSR 

CB2ASC 

;  convert  it 

COOS 

A0 

00 

LDY 

#0 

;  loop  counter 

C007 

B9 

3C 

03 

LOOP 

LDA 

RESULT.Y 

;  get  the  ASCII  numbers  one  by  one 

C00A 

09 

30 

ORA 

#%001 10000 

;  make  it  ASCII 

cooc 

20 

D2 

FF 

)SR 

CHROUT 

;  print  it 

C00F 

C8 

INY 

;  counter  increases 

C010 

CO 

03 

CPY 

#3 

;  quit  after  0-2 

C012 

DO 

F3 

BNE 

LOOP 

;  or  go  back 

C014 

60 

RTS 

;  end  of  the  framing  routine 

C015 

CB2ASC 

m 

• 

' 

C0I 5 

A0 

00 

LDY 

#0 

;  .Y  is  the  counter 

C017 

38 

SEC 

;  get  ready  to  subtract 

C018 

E9 

64 

HLOOP 

SBC 

#100 

;  keep  subtracting 

C01A 

90 

03 

BCC 

TENS 

;  until  we've  gone  past  zero 

COlC 

C8 

INY 

;  count  up  by  one 

C01D 

DO 

F9 

BNE 

HLOOP 

;  and  loop  back 

COIF 

8C 

3C 

03 

TENS 

STY 

RESULT 

;  .Y  holds  the  hundred's  place 

C022 

A0 

00 

LDY 

#0 

;  zero  it  again 
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C024  69     64 

C026  38 

C027  E9    OA  TLOOP 

C029  90     03 

C02B  C6 

C02C  DO    F9 

C02E  8C    3D    03     ONES 

C031  69     OA 

C033  8D    3E    03 

C036  60 


ADC  #100 

SEC 

SBC  #10 

BCC  ONES 

INY 

BNE  TLOOP 

STY  RESULT +1 

ADC  #10 

STA  RESULT  +2 

RTS 


set  .A  back  to  normal 

this  time,  minus  10 
carry  clear  meant  underflow 
else,  inc  the  counter 
and  go  back  to  subtract 

.Y  la  the  ten's  place 
add  10  to  .A 
and  store  it 
end  of  routine 


See  also  BCD2AX,  CAS2IN,  CB2HEX,  CI2HEX. 
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Name 

Convert  a  byte  value  (0-99)  to  a  BCD  number 

Description 

Bytes  range  in  value  from  0  to  255  ($00  to  $FF).  BCD  num- 
bers, on  the  other  hand,  can  only  have  100  values  ($00-$99). 
This  routine  converts  a  byte  in  the  range  0-99  decimal  to  a 
BCD  value. 

Prototype 

1.  Isolate  the  high  nybble. 

2.  Compare  to  10.  If  the  high  nybble  is  more  than  10,  sub- 
tract 10. 

3.  Rotate  the  carry  flag  into  ANSWER. 

4.  Loop  back  to  step  2  five  times. 

5.  Shift  ANSWER  to  the  left  and  OR  the  remainder  in  .A  with 
ANSWER. 

Explanation 

The  framing  routine  takes  a  value  from  one  location  ($FB), 
calls  the  conversion  routine,  and  stores  the  result  in  a  second 
location  ($FC).  Note  that  at  the  beginning  of  CB2BCD,  num- 
bers greater  than  99  are  trapped  by  subtracting  100  until  the 
value  is  in  the  proper  range.  This  means  that  if  you  enter  with 
a  value  of  132,  the  result  will  be  $32. 

Routine 


cooo 

A5 

FB 

MAIN 

LDA 

SFB 

:  get  a  byte  from  memory 

C002 

20 

08 

CO 

JSR 

CB2BCD 

1  convert  it 

COOS 

85 

FC 

STA 

$FC 

C007 

60 

RTS 

;  end  of  routine 

COOB 

CB2BCD 

_ 

• 

• 

coos 

C9 

64 

PRELIM 

CMP 

#100 

;  firs!  check  the  range 

COOA 

90 

04 

BCC 

BEGIN 

;  ready  to  start  If  it's  0-99 

CMC 

E9 

64 

SBC 

#100 

;  subtract  100 

;  Put  an  INC  here  if  you  want. 

COOE 

BO 

F8 

BCS 

PRELIM 

;  branch  always 

C010 

8D 

45 

CO 

BEGIN 

STA 

TEMPA 

1  store  it 

C013 

A9 

00 

LDA 

#0 

;  ready  to  ROL 

C015 

8D 

46 

CO 

STA 

AN5WER 

;  the  answer  win  be  here 

C018 

A0 

04 

LDY 

#4 

;  four  times 

COIA 

0E 

45 

CO 

RLOOP 

ASL 

TEMPA 

;  move  the  high  bit  into  carry 

C01D 

2A 

ROL 

;  and  rotate  it  into  .A 

C01E 

88 

DEY 

;  count  down 

C01F 

DO 

F9 

BNE 

RLOOP 

;  four  times 

C021 

A0 

05 

LDY 

#5 

;  this  loop  happens  five  times 

C023 

C9 

0A 

CLOOP 

CMP 

#10 

;  is  .A  bigger  than  10? 

C025 

08 

PHP 

;  save  the  status 

C026 

2E 

46 

CO 

ROL 

ANSWER 

;  and  put  carry  into  answer 

C029 

28 

PLP 

;  get .P  back 
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C02A 

90 

02 

BCC 

AHEAD 

if  dear,  leave  .A  alone 

C02C 

E9 

OA 

SBC 

#10 

else  subtract  10 

C02E 

OE 

45 

CO 

AHEAD 

ASL 

TEMPA 

shift  left 

C031 

2A 

ROL 

into  .A 

C032 

88 

DEY 

loop 

COW 

DO 

EE 

BNE 

CLOOP 

back  to  the  compare 

-A  contains  the  remainder 

C035 

4A 

LSR 

.A  needs  to  be  corrected 

C036 

AO 

04 

LDY 

#4 

four  shifts 

C038 

OE 

46 

CO 

AALOOP 

ASI. 

ANSWER 

C03B 

98 

DEY 

C03C 

DO 

FA 

BNE 

AALOOP 

G03E 

OD 

46 

CO 

ORA 

ANSWER 

add  the  low  nybble 

CO-',l 

8D 

4b 

CO 

STA 

ANSWER 

C044 

60 

RTS 

C045 

00 

TEMPA 

BYTE 

0 

C046 

00 

ANSWER 

.BYTE 

0 

See  also  B2SNLN,  B2UNIN,  BCD2BY,  CFP2I,  CI2FP,  CNVBFP. 
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Name 

Convert  a  byte  to  two  hexadecimal  digits  (ASCII) 

Description 

When  you're  looking  at  the  contents  of  memory,  hexadecimal 
(base  16)  is  sometimes  preferable  to  decimal  or  binary. 
CB2HEX  takes  a  single  number  (in  the  range  0-255)  as  input 
and  returns  the  two  ASCII  characters  that  make  up  the  hexa- 
decimal equivalent. 

Prototype 

1.  Enter  the  routine  with  the  value  in  .A. 

2.  Temporarily  save  it. 

3.  AND  with  the  mask  value  %00001111  to  extract  the  lower 
nybble  and  ORA  with  48  ($30)  to  convert  to  ASCII.  If  the 
result  is  greater  than  57  (ASCII  9),  add  7  to  put  it  in  the 
range  A-F.  This  result  goes  into  .X. 

4.  Retrieve  the  original  value  and  shift  it  right  four  times. 

5.  Repeat  step  3  to  convert  the  high  nybble  to  an  ASCII  value. 

Explanation 

The  example  routine  gets  a  keypress,  checks  for  the  letter  Q 
(quit)  and  then  prints  four  things:  the  letter  pressed,  the  deci- 
mal ASCII  value  of  the  character  for  the  key,  the  hexadecimal 
equivalent  of  the  decimal  number,  and  a  RETURN.  It  then 
loops  back  to  get  another  key. 

The  subroutine  is  fairly  simple.  It  first  extracts  the  low 
nybble  and  high  nybble  (a  byte  contains  eight  bits,  while  a 
nybble  is  half  a  byte — four  bits).  The  nybbles  are  then  con- 
verted to  ASCII.  Because  the  characters  0-9  correspond  to  the 
ASCII  codes  48-57,  and  the  characters  A-F  are  ASCII  65-70, 
it's  sometimes  necessary  to  add  7  to  bridge  the  gap  between 
the  character  codes  for  9  and  A. 

A  few  techniques  bear  mentioning.  First,  the  RTS  that 
ends  the  framing  routine  occurs  very  early  in  the  program 
($C009).  Most  of  the  time,  the  program  branches  over  this 
instruction.  There's  no  rule  that  says  a  routine  must  have  an 
RTS  as  the  last  instruction.  Second,  within  the  CB2HEX  rou- 
tine itself,  the  ASCSUB  subroutine  is  used  twice.  The  first 
time,  $C034  performs  a  JSR  ASCSUB.  The  subroutine  executes 
once  and  returns  back  to  $C037.  The  second  time,  the  pro- 
gram falls  through  to  ASCSUB.  This  time,  the  RTS  ends  the 
CB2HEX  routine.  The  first  time,  the  RTS  ends  a  subroutine 
within  the  CB2HEX  subroutine;  the  second  time,  it  ends 
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CB2HEX  itself.  Finally,  the  ADC  #6  at  $C041  doesn't  add  6;  it 
adds  7.  The  instruction  above  is  a  BCC  (Branch  if  Carry  Clear) 
around  the  ADC  instruction,  which  means  ADd  with  Carry.  If 
the  carry  flag  is  set,  adding  6  plus  a  carry  of  1  is  the  same  as 
adding  7. 

Note:  The  value  of  .A  is  temporarily  stored  in  .Y  at  $C031. 
If  you're  using  the  Y  register  as  a  counter  or  index,  you  may 
wish  to  substitute  PHA/PLA  (or  STA/LDA)  for  the  TAY/TYA 
combination. 


Routine 

COOCI 

cooo 
cooo 


C003 
C005 
C007 
C009 
COOA 
COOD 
COOE 
COOF 
C011 
C014 
C016 
C019 
C01B 
C01E 
COIF 
C022 
C025 
C026 
C029 
C02B 
C02E 


20 
F0 


E4 
FB 


EF 


CHROLTT 

GETJN 

LINPRT 

MAIN 


C9  51 
DO  01 
60 

20     D2    FF     CONTIN 

48 

AA 

A9    20 


20 
A9 
20 


D2    FF 

00 

CD  BD 


A9    3D 


D2   FF 

31     CO 
D2   FF 


20 
68 

20 
20 
8A 
20     D2    FF 

A9    0D 
20     D2    FF 
4C    00     CO 


END 


C031 

C031  A8 

C032  29     OF 

C034  20     3D    CO 

C037  AA 

C038  98 

C039  4A 

C03A  4A 

C03B  4A 

C03C  4A 

C03D  C9    OA 

C03F  90     02 

C041  69     06 

C043  69     30 

C045  60 


ASCSUB 


ADD4B 


JSR 

BEQ 

CMP 

BNE 

RTS 

JSR 

PHA 

TAX 

LDA 

JSR 

LDA 

JSR 

LDA 

JSR 

PLA 

JSR 

JSR 

TXA 

JSR 

LDA 

JSR 

JMP 


CB2HEX      - 


TAY 
AND 
JSR 
TAX 
TYA 
LSR 
LSR 
LSR 
LSR 

CMP 
BCC 

ADC 
ADC 

RTS 


$FFD2 

$FFE4 

$BDCD 

GETIN 

MAIN 

»-Q 

CONTIN 

CHROUT 


#32 

CHROUT 
#0 
LINPRT 

CHROUT 

CB2HEX 

CHROUT 

CHROUT 
«13 

CHROUT 
MAIN 

• 

#W10001111 
ASCSUB 


#10 
ADD48 

#6 
#48 


;  UNPRT  =  $8E32  on  the  128 

;  get  a  key 

;  loop  back  if  no  key 

;  if  Q  then  quit 

:  else  continue 

:  print  the  character 

;  push  It  on  slack 

;  low  byte  in  .X 

;  character  code  for  space 

;  print  it 

;  high  byte  for  LINPRT 

:  print  the  decimal  value 

;  print  an  equal  sign 

j  get  the  original  number 

;  convert  it  to  hex 

;  print  high  nybble 

;  .X  into  .A 

;  print  that,  loo 

,  carriage  return 

;  go  back  for  more 


;  save  contents  of  .A  in  -Y 
;  extract  low  nybble 
;  the  conversion  subroutine 
;  put  the  low  nybble  in  .X 
;  retrieve  the  original  number 


shift  right  four  times 

Now  fall  through  to  the  ASCSUB  routine. 

is  it  0-97 

yes,  branch  forward  and  add  48 

(for  ASCID 

this  really  adds  7  because  carry  is  set 

add  48  to  make  0-9  into  48-57  or  10-1 S 

into  A-F 

and  that's  that 


See  also  BCD2AX,  CAS2IN,  CB2ASC,  CL2HEX. 


148 


CHARX4 


Name 

Print  semilarge  (4  X  4)  characters 

Description 

This  routine  looks  up  the  character  shape  in  ROM  and  prints 
it  out  (to  screen  or  printer)  as  a  large  character  that's  four 
times  the  normal  size. 

Prototype 

1.  Set  up  a  zero-page  pointer  to  the  character  shape. 

2.  Read  the  eight  bytes  from  character  ROM;  store  them  in 
memory. 

3.  Loop  four  times,  once  through  each  pair  of  bytes. 

4.  Rotate  each  byte  to  the  left  twice  to  get  a  number  0-15. 

5.  Look  up  the  appropriate  graphics  character  and  print  it. 

6.  The  resulting  printout  has  four  graphics  characters  on  four 
lines. 

Explanation 

At  the  beginning  of  the  routine,  the  screen  code  of  the  charac- 
ter to  be  printed  is  in  the  accumulator,  and  the  choice  of 
uppercase/graphics  or  lowercase/ uppercase  is  determined  by 
the  carry  flag.  The  first  thing  we  have  to  do  is  find  the  charac- 
ter shape  in  ROM,  so  .A  is  stored  in  a  free  zero-page  location, 
and  a  $0D  is  stored  in  the  corresponding  high  byte  of  the 
pointer.  A  single  ROL  transfers  the  contents  of  the  carry  flag 
into  FREEZP4-1.  Now  we  have  either  a  $1A  or  $1B  there.  The 
next  task  is  to  multiply  this  two-byte  pointer  by  8,  via  three 
ASL/ROL  pairs. 

The  pointer  at  $FB  now  points  to  the  character  shape,  so 
we  can  look  up  the  eight  bytes  that  form  the  letter.  The  rou- 
tine from  $C014  through  $C02B  does  this.  The  interrupts  must 
first  be  turned  off  with  SEI.  Then  bit  2  of  location  1  is  turned 
off  so  we  can  read  character  ROM.  The  shape  is  stored  into 
CHCOPY  (at  the  end  of  the  program). 

As  an  example,  imagine  that  we're  printing  a  large  capital 
A,  The  figure  shows  how  the  bits  are  arranged  in  the  character. 

Start  with  a  0  in  the  accumulator.  Rotate  byte  0  to  the  left 
twice;  then  rotate  byte  1  twice.  The  result  is  a  number  be- 
tween 0  and  15  in  the  accumulator.  This  number  is  used  as  an 
offset  to  find  out  first  whether  we  should  print  {RVS  ON}  or 
{RVS  OFF},  and  then  which  character  to  print.  This  procedure 
repeats  four  times,  and  we  go  down  to  the  next  row  (bytes  2 
and  3),  and  so  on. 
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The  Letter  A 


Line    Igte 


0 

e 

l 

1 

2 
3 

2 

5 

3 

7 

Character 


e 

l 

2 

3 

♦ 

♦ 

•  • 

•  • 

• 

• 

♦ 

♦n 

\ 

• 

• 

• 

• 

♦ 

♦ 

• 

• 

• 

• 

• 

• 

2 


If  you  look  at  character  3  on  line  1,  you'll  see  that  the 
graphics  character  to  be  printed  should  be  a  Commodore-C  (in 
reverse  mode). 

Note:  On  the  64,  it's  necessary  to  turn  off  bit  2  of  location 
1  to  get  to  the  character  set  in  ROM.  On  the  128,  you  can  ac- 
cess the  character  by  switching  to  bank  14.  Thus,  it's  necessary 
to  remove  the  instructions  from  SEI  to  STA  $01  ($C014- 
$C01A)  and  the  instructions  from  LDA  $01  to  CLI  ($C025- 
$C02B).  Also,  the  instruction  LDA  (FREEZP),Y  at  $C01D 
should  be  replaced  with  a  call  to  the  INDFET  (indirect  fetch) 
Kernal  routine,  as  follows: 

LOOP   LDA  #FREEZP  ;  the  zero  page  pointer 
LDX  #14  ;  the  bank  to  access 

JSR    65396  ;  the  INDFET  Kernal  routine 


Routine 


cooo 


COW  85  FB 

C002  A9  OD 

COM  85  FC 

C006  26  FC 


C008  06  FB 

C00A  26  FC 

CO0C  06  FB 

C00E  26  FC 

C010  06  FB 


FREEZP        -  $FB 

CHROUT      =  SFFD2 


CHARX4       STA       FREEZP 

LDA      #%00001101 


STA      FREEZP+1 
ROL      FREEZP+1 


ASL  FREEZP 

ROL  FREEZP+1 

ASL  FREEZP 

ROL  FREEZP+1 

ASL  FREEZP 


Enter  with  the  screen  code  in  -A. 

Carry  clear  for  uppercase/graphics;  cany  set 

for  lowercase/uppercase. 

screen  code  flow  byte  to  multiply  by  8) 

SOD,  which  will  be  shifted  four  times  to 

become  $D0  or  JDS 

almost  ready  to  rotate 

got  carry  now 

Now  multiply  it  by  8. 
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C012     26     FC 


C014  78 

C015  A5  01 

C017  29  FB 

C019  85  01 

C01B  AO  07 

C01D  Bl  FB  LOOP 

COIF  99  8B    CO 

C022  88 

C023  10  F8 

C02S  A5  01 

C027  09  04 

C029  85  01 

C02B  58 


C02C  A9  04 

C02E  8D  93     CO 

C031  A2  00 

C033  A9  04  OUTLOP 

C035  8D  94     CO 

C038  A9  00  INLOOP 

C03A  IE  8B    CO 

C03D  2A 

C03E  IE  8B     CO 

C041  2A 

C042  E8 

C043  IE  8B    CO 

C046  2A 

C047  IE  8B     CO 

C04A  2A 


ROL     FREEZP+1 


SEI 

LDA  $01 

AND  #%11111Q11 

STA  $01 

LDY  #7 

LDA  (FREEZP),Y 

STA  CHCOPY.Y 

DEY 

BPL  LOOP 

LDA  $01 

ORA  #%00000100 

STA  $01 

CLI 


C04B 
C04C 
C04F 
C052 
C055 
C058 
C059 
C05C 
COSE 
C060 
COW 
C064 
C065 
C068 
C06A 


A8 

B9    6B    CO 

20     D2    FF 

B9    7B    CO 

20     D2    FF 

CA 

CE    94     CO 

DO    DA 

A9    OD 

20     D2    FF 

E8 

E8 

CE    93 

DO    C9 

60 


CO 


LDA 
STA 
LDX 
IDA 
STA 
LDA 
ASL 
ROL 
ASL 
ROL 
INX 
ASL 
ROL 
ASL 
ROL 

TAY 

LDA 

JSR 

LDA 

]SR 

DEX 

DEC 

BNE 

LDA 

JSR 

INX 

INX 

DEC 

BNE 

RTS 


#4 

COUNTR 

#0 

#4 

COUNT2 

#0 

CHCOPY.X 

CHCOPY,X 


CHCOPY.X 
CHCOPY,X 


OFFON.Y 
CHROUT 
QSCHAR.Y 
CHROUT 

COUNT2 
INLOOP 
#13 
CHROUT 


COUNTR 
OUTLOP 


;  FREEZP  now  point*  to  the  first  byte  of 
;  character  ROM. 

;  torn  off  interrupts  while  we  read 

;  character  ROM 

;  bit  2  of  location  1  control!  character  ROM 

;  mask  It  out  to  get  to  the  characters 

;  need  the  eight  bytes  (0-7) 

;  get  the  shape 

;  and  put  it  In  memory 

;  coimt  down 

;  we  want  0,  so  count  down  to  $FF 

;  check  location  1 

;  and  torn  the  bit  back  on 

;  interrupts  are  OK  now 

;  Print  the  shape  on  the  screen. 

;  do  it  four  times 

;  start  at  CHCOPY+0 

;  four  ROLs 

;  need  a  separate  counter 

;  gel  carry 

;  put  in  .A 

.again 

;  push  it  over 

;  go  up  to  next  byte 

;  more  into  .A 

;  now  we  have  a  number  0-15 

;  put  it  in  -V  for  lookup 

;  print  RVS  ON  or  RVS  OFF 

;  print  the  character 
;  back  to  normal 

;  continue  for  four  characters 
;  return 
;  new  line 

;  Increment  X  by  2 
;  decrement  outer  loop 
;  and  go  back  again 


C06B  92  92  92     OFFON 

C073  92  92  92 

C07B  20  AC  BB    QSCHAR 

C083  BE  BF  Al 

C08B  CHCOPY 


.BYTE  146.146.146,146,146,18.18,18 

BYTE  146.146,146,18,18,18,18,18 

.BYTE  32,172,187,162,188,161.191,190 

.BYTE  190,191,161.188,162,187,172,32 


COUNTR       = 


•  +  8 

■ 

=         "+  1 


C094 
C095 


COUNT2       = 


•  +  1 


See  also  CHARX8. 
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Name 

Print  large  (8  X  8)  characters 

Description 

CHARX8  prints  a  gigantic  character,  eight  times  larger  than 
normal.  It's  not  especially  useful  as  a  screen  routine  (except 
perhaps  for  a  children's  alphabet  program),  but  if  you  send 
output  to  a  printer,  you  can  use  it  to  print  large  banners. 

Prototype 

1.  Enter  this  routine  with  the  screen  code  in  .A  and  the  carry 
flag  clear  to  print  a  character  from  the  uppercase/graphics 
character  set,  or  with  the  carry  flag  set  for  a  character  from 
the  uppercase/lowercase  character  set. 

2.  Store  the  screen  code  in  zero  page. 

3.  Manipulate  a  zero-page  pointer  to  point  to  the  character 
shape  in  ROM. 

4.  Switch  in  character  ROM  and  copy  the  eight  bytes  to  nor- 
mal memory. 

5.  Loop  through  the  eight  bits  of  each  of  the  eight  bytes. 

6.  Print  a  reversed  space  for  bits  that  are  on,  and  a  space  for 
off  bits. 

Explanation 

Patterns  for  the  uppercase/graphics  character  set  are  stored  in 
character  ROM  at  $D000-$D7FF,  while  patterns  for  the 
uppercase/lowercase  character  set  are  found  at  $D800-$DFFF. 
Each  of  the  256  printable  character  patterns  takes  up  eight 
bytes  of  memory,  so  a  screen  code  value  must  be  multiplied 
by  8  and  then  added  to  either  $D000  or  $D800  to  calculate  the 
starting  address  of  the  corresponding  character  pattern  data. 
Once  you  have  the  memory  address  of  the  character  shape, 
you  can  convert  it  into  a  big  character. 

FREEZP  at  location  $FB  is  a  pointer  to  the  character  shape 
we  want  to  print.  The  accumulator  holds  the  screen  code,  so 
first  we  have  to  store  it  in  the  low  byte  of  FREEZP — to  be 
multiplied  by  8  in  a  moment.  Next,  the  high  byte  of  the 
pointer  is  set  up.  At  $C002,  the  number  $0D  is  loaded  and 
stored  into  FREEZP +  1.  Next,  the  contents  of  the  carry  flag  are 
rotated  into  the  same  location.  At  this  point,  both  FREEZP  and 
FREEZP  + 1  are  three  left -shifts  away  from  pointing  to  the 
right  place.  A  left-shift  is  the  same  as  multiplying  by  2,  so 
three  shifts  are  the  same  as  "times  2  times  2  times  2,"  or 
"times  8." 
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ASLing  the  low  byte  followed  by  ROLing  the  high  byte 
multiplies  a  number  by  2,  so  we  do  that  three  times.  The  re- 
sult is  a  two-byte  pointer  that  tells  us  where  to  find  the 
character. 

At  $C014-$C02B,  we  read  the  character  shape.  Memory 
at  $D000-$DFFF  is  very  busy:  Character  ROM  is  there,  I/O 
locations  are  there,  and  RAM  is  there,  too.  Location  1  controls 
what's  going  on,  and  we  have  to  turn  off  bit  2  to  get  to  the 
character  shapes.  But,  first,  SE1  turns  off  interrupts,  so  there's 
no  need  to  worry  about  crashes.  A  loop  copies  the  characters 
from  ROM  down  to  a  section  of  memory  we've  set  aside.  CLI 
turns  on  the  interrupts  again. 

Now  we  have  the  shape  at  CHCOPY  within  the  program. 
There  are  eight  bytes  there,  each  of  which  contains  eight  bits. 
All  that's  left  is  to  ROL  the  appropriate  byte.  The  current  high 
bit  moves  into  the  carry  flag,  and  BCS  branches  to  the  print 
routine  that  prints  a  reversed  space  (if  that's  what  is  needed). 
Otherwise,  the  bit  is  cleared,  and  we  need  to  print  a  normal 
space.  After  eight  rotates,  a  CHR$(13)  puts  the  cursor  on  the 
next  line,  and  the  outer  loop  continues  until  the  last  bit  is  con- 
verted into  a  space  or  reversed  space. 

Note:  On  the  64,  it's  necessary  to  turn  off  bit  2  of  location 
1  to  get  to  the  character  set  in  ROM.  On  the  128,  you  can  ac- 
cess the  character  by  switching  to  bank  14.  Thus,  it's  necessary 
to  remove  the  instructions  from  SEI  to  STA  $01  ($C014- 
$C01A)  and  the  instructions  from  LDA  $01  to  CLI  ($C025- 
$C02B).  Also,  the  instruction  LDA  (FREEZP),Y  at  $C01D 
should  be  replaced  with  a  call  to  the  INDFET  (indirect  fetch) 
Kernal  routine,  as  follows: 

LOOP   LDA  #FREEZP  ;  the  zero  page  pointer 
LDX  #14  ;  the  bank  to  access 

JSR    65396  ;  the  INDFET  Kernal  routine 


Routine 


cooo 
cooo 

FREEZP 
CHROUT 

- 

$FS 

$FFD2 

cooo 

C002 

85 
A9 

FH 

0D 

CHARX8 

STA 
LDA 

FREEZP 

#%Q0001101 

C004 
C006 

85 
26 

rc 

FC 

STA 
ROL 

FREEZP+1 

FREEZP+1 

Enter  with  screen  code  in  .A. 

Carry  dear  for  uppercase/ graphics,  carry  set 

for  uppercase/lowercase. 

the  screen  code  (low-byte,  la  multiply  by  8) 

SOD,  which  will  be  shifted  four  rimes,  to 

become  SDO  or  $D8 

almost  ready  to  rotate 

got  carry  now 

Now  multiply  it  by  8. 
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C008 

06 

FB 

ASL 

FREEZP 

COOA 

26 

FC 

ROL 

FREEZP+1 

COOC 

06 

FB 

ASL 

FREEZP 

COOE 

26 

FC 

ROL 

FREEZP+1 

C01O 

06 

FB 

ASL 

FREEZP 

C012 

26 

FC 

ROL 

FREEZP+1 

;  FREEZP  now  points  lo  the  first  byte  of 
;  character  pattern  in  ROM. 

COM 

78 

SEI 

;  turn  off  interrupts  while  we  read  character 
;ROM 

CMS 

A5 

01 

LDA 

$01 

;  location  1,  bit  2  controls  character  ROM 

C017 

29 

FB 

AND 

#%1 1111011 

;  mask  it  out  to  make  the  characters  visible 

C019 

85 

01 

STA 

$01 

C01B 

AO 

07 

LDY 

#7 

:  need  eight  bytes  (0-7) 

COID 

Bl 

FB 

LOOP 

LDA 

(FREEZP),Y 

;  get  the  shape 

COIF 

99 

65 

CO 

STA 

CHCOPY.Y 

;  and  put  it  in  memory 

C022 

88 

DEY 

;  count  down 

C023 

10 

F8 

BPL 

LOOP 

;  we  want  #0,  so  count  down  to  $FF 

C025 

A5 

01 

LDA 

$01 

;  check  location  1 

C027 

09 

04 

ORA 

#%00000100 

;  and  turn  the  bit  back  on 

COW 

85 

01 

STA 

$01 

C02B 

58 

CLI 

;  interrupts  are  OK  now 

;  Now  print  the  shape  an  the  screen. 

C02C 

A9 

OD 

LDA 

#13 

;  carriage  return 

C02E 

20 

D2 

FF 

JSR 

CHROUT 

;  so  we  start  on  a  new  line 

C031 

A2 

FF 

LDX 

#255 

;  X  must  be  the  counter,  because  ROL  doesn't 
;  accept  Y-index 

C033 

E8 

OUTLOP 

INX 

;  increment  up  to  zero  the  first  time 

COM 

EO 

08 

CPX 

#8 

;  after  0-7,  we're  done 

C036 

DO 

01 

BNE 

START 

;  not  8,  so  do  a  row 

C038 

60 

RTS 

;  else  we're  done 

C039 

AO 

09 

START 

LDY 

#9 

;  counter  (eight  loops) 

C03B 

88 

INLOOP 

DEY 

;  counting  down  to  zero 

C03C 

DO 

08 

BNE 

DOLINE 

C03E 

A9 

OD 

LDA 

#13 

;  print  RETURN 

C040 

20 

D2 

FF 

JSR 

CHROUT 

C043 

JC 

33 

CO 

JMP 

OUTLOP 

C046 

3E 

65 

CO 

DOUNE 

ROL 

CHCOPY.X 

;  move  the  lop  bit  into  carry 

C049 

BO 

OD 

BCS 

REVERS 

;  if  if  s  a  1,  carry  is  set 

C04B 

A9 

92 

LDA 

#146 

;  reverse  off 

C04D 

21) 

D2 

FF 

JSR 

CHROUT 

;  print  it 

C050 

A9 

20 

LDA 

#32 

;  character  code  for  space 

C052 

20 

D2 

FF 

JSR 

CHROUT 

;  print  it,  too 

C0S5 

4C 

3B 

CO 

JMP 

INLOOP 

C058 

A9 

12 

REVERS 

LDA 

#18 

;  reverse  on 

COSA 

20 

D2 

FF 

JSR 

CHROUT 

;  print  it 

C05D 

A9 

20 

LDA 

#32 

;  character  code  for  space 

C05F 

20 

D2 

FF 

JSR 

CHROUT 

;  print  II 

C062 

4C 

3B 

CO 

JMP 

INLOOP 

CHCOPY 


•+8 


;  reserve  eight  bytes  (or  a  copy  of  the  character 


See  also  CHARX4. 
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Name 

Check  peripheral  status  via  location  144 

Description 

The  ML  equivalent  of  BASIC'S  ST  (status)  variable  is  location 
144  ($90).  In  general,  if  the  value  in  location  144  isn't  zero, 
something  has  gone  wrong  (usually,  end  of  file  or  device  not 
present). 

Prototype 

1.  Load  the  accumulator  from  location  144. 

2.  Branch  if  equal  to  zero  (BEQ)  to  continue  the  routine. 

3.  If  not  equal  to  zero,  something  has  gone  wrong. 

Explanation 

The  following  program  attempts  to  open  a  file  that  doesn't  ex- 
ist. The  BEQ  should  not  occur.  The  letter  A  is  printed,  which 
means  something  has  gone  wrong. 

Routine 


cooo 

STAT 

= 

144 

;  location  144  holds  the  status  b 

cooo 

SETLFS 

= 

SFFBA 

cooo 

SETNAM 

= 

SFFBD 

cooo 

OPEN 

— 

SFFC0 

cooo 

CHROUT 

= 

SFFD2 

cooo 

CHKOUT 

= 

$FFC9 

cooo 

CLRCHN 

— 

$FFCC 

cooo 

CLOSE 

= 

$FFC3 

cooo 

A9 

02 

LDA 

#2 

' 

C002 

A2 

08 

LDX 

#8 

C004 

A0 

02 

LDY 

42 

C006 

20 

BA 

FF 

)SR 

SETLFS 

1  set  logic;!  ii!t-  2,8,2 

C009 

A9 

00 

LDA 

#0 

C0OB 

20 

BD 

FF 

jSR 

SETNAM 

;  no  name 

C00E 

20 

CO 

FF 

JSR 

OPEN 

;  open  it 

con 

A2 

02 

LDX 

#2 

C013 

20 

C9 

ft 

1SR 

CHKOUT 

;  get  ready  to  print 

C016 

A5 

90 

CHX144 

LDA 

STAT 

;  check  the  status 

C018 

F0 

08 

BEQ 

FINIS 

;  If  equal  to  zero,  OK 

C01A 

20 

CC 

FF 

JSR 

CLRCHN 

;  clear  channels  before  printing 

C01D 

A9 

41 

LDA 

#65 

COIF 

20 

D2 

FF 

JSR 

CHROUT 

;  print  a  letter  A 

C022 

20 

CC 

FF 

FINIS 

JSR 

CLRCHN 

;  clear  all  channels 

C025 

A9 

02 

LDA 

#2 

C027 

20 

C3 

FF 

JSR 

CLOSE 

;  and  close  file  2 

C02A 

60 

RTS 

See  aha  DERRCK,  RDSTAT. 
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Name 

Change  the  target  screen  memory  address  for  CHROUT 

Description 

If  you've  relocated  your  text  screen,  any  characters  you  print 
with  CHROUT  will  be  placed  in  the  normal  screen  memory 
area  unless  you  update  the  text  screen  pointer  HIBASE. 
CHOUTP  changes  the  pointer  so  that  CHROUT  (or  PRINT  in 
BASIC)  print  characters  on  the  relocated  screen. 

Prototype 

1.  Enter  this  routine  with  .A  containing  the  IK  text-screen  off- 
set (2  for  2K  offset  and  so  forth). 

2.  Multiply  .A  by  4  to  put  HIBASE  on  an  even  IK  boundary. 

3.  Store  the  result  in  HIBASE. 

Explanation 

In  the  example,  the  text-screen  pointer  is  changed  to  8192. 
Using  CHROUT,  500  bytes  beginning  at  this  location  are  filled 
with  zeros.  Printing  CHR$(64) — the  @  symbol — causes  zeros 
to  be  POKEd  into  these  locations  (the  screen  code  for  @  is  0). 

In  the  routine,  SCRPTR  represents  the  actual  location 
(times  IK)  of  the  text  screen  (that  is,  SCRPTR  .BYTE  8  sig- 
nifies that  the  screen  begins  at  8K,  or  location  8192). 

On  the  128,  we  home  the  cursor  twice  within  the  main 
program.  This  closes  any  text  windows  that  may  be  opened 
and  places  the  cursor  at  the  top  of  the  screen. 

Routine 


cooo 

HIBASE 

~ 

648 

;  HIBASE  =  2619  on  the  128— starting  page 
;  of  screen  memory 

cooo 

CHROUT 

65490 

;  Kernal  character  output  routine 

I  Using  CHROUT,  fill  500  bytes  beginning  at 
;  8192  with  zeros. 

cooo 

AD 

27 

CO 

LDA 

SCRPTR 

;  .A  contains  IK  times  SCRPTR  offset 

C003 

20 

21 

CO 

ISR 

CHOUTP 

1  change  the  PRINT  location 

C006 

A9 

13 

LDA 

«19 

|  HOME  the  cursor 

C008 

20 

D2 

FF 

ISR 

CHROUT 

;  JSR  CHROUT;  (128  only— to  close  any 

;  windows) 

;  Fill  500  bytes  at  the  start  of  the  new  screen 

j  with  zeros. 

C00B 

AD 

28 

CO 

LDA 

CHAR 

C00E 

A2 

02 

LDX 

#2 

C010 

A0 

FA 

OUTLOP 

LDY 

#250 

C012 

20 

D2 

FF 

IN  LOOP 

JSR 

CHROUT 

C015 

88 

DE'Y 

C016 

DO 

EA 

BNE 

IN  LOOP 

i  fill  250  bytes 

C018 

CA 

DEX 

C019 

DO 

FS 

BNE 

OUTLOP 

;  do  OUTLOP  twice— 2  times  250 

C01B 

A9 

01 

LDA 

SI 

;  return  to  default  screen  at  IK 
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C01D 
C020 

20 

60 

21 

CO 

JSR         CD 
RTS 

con 

OA 

CHOUTP 

ASL 

C022 
C023 
C026 

OA 
SO 
60 

68 

02 

ASL 
STA      HT 

RTS 

C027 
C028 

OB 

40 

SCRPTR 
CHAR 

.BYTE   8 
.BYTE    64 

CHOUTP 


Change  screen  base  address  for  PRINT. 
.A  holds  IK  offset. 

multiply  A  by  4  Ml  HTBASE  limes  256 
puts  as  on  4  IK  boundary 

now  change  the  PRINT  location 


to  print  on  a  screen  at  8K  (8192) 
character  to  print — here  @ 


See  also  VIDBNK,  VTCADR. 
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Name 

Character  redefinition 

Description 

CHRDEF  moves  either  one  or  both  ROM  character  sets  into 
RAM  and  redefines  a  series  of  characters  within  one  of  these 
sets. 

Prototype 

1 .  Before  assembling  this  routine,  list  the  screen  codes  of  the 
characters  you  wish  to  redefine  as  SCCODE  and  provide 
the  number  of  these  characters  as  NUMDEF.  Store  the  IK 
offset  for  your  RAM  character  set  in  CHROFF.  Then  list 
character  data  at  the  end  of  the  routine  beginning  at 
CHRDAT.  Define  PAGCTR  as  16  if  you  want  to  copy  both 
ROM  character  sets.  In  this  case,  add  the  commented  line, 
ADC  #8,  just  after  ADC  ZT  at  $C066  if  the  characters 
you're  redefining  are  in  the  second  character  set.  On  the 
128,  define  VMCSB  as  2604  rather  than  53272. 

2.  Temporarily  store  the  high  byte  of  the  offset  address  for 
the  RAM  character  set  in  zero  page  (ZT). 

3.  Save  the  high  byte  of  the  ROM  character  set  address  in 
ZP  +  1. 

4.  Multiply  the  current  video  bank  (0-3)  by  64  to  get  the 
high  byte  of  its  starting  address  and  add  the  high  byte  in 
ZT  to  this. 

5.  Store  the  result  representing  the  high  byte  for  the  starting 
location  of  the  RAM  character  set  in  ZP+3  and  also  in  ZT 
for  use  in  character  redefinition. 

6.  Store  a  zero  in  the  low  byte,  zero-page  pointers  to  the 
ROM  and  RAM  character  sets. 

7.  Copy  the  ROM  set  from  the  address  in  ZP  to  the  address 
in  ZP+2.  On  the  64,  set  interrupts  and  switch  in  character 
ROM  at  53248  before  doing  this.  On  the  128,  copy  the 
ROM  set  from  memory  bank  14  with  INDFET. 

8.  When  the  copying  process  is  complete,  on  the  64,  switch 
back  in  the  I/O  at  53248  and  clear  interrupts.  On  both 
computers,  point  the  VIC  chip  memory  control  register  (or 
its  shadow,  on  the  128)  to  the  RAM  character  set. 

9.  To  locate  the  characters  being  redefined  in  the  RAM 
character  set,  multiply  the  screen  code  for  each  by  8  and 
add  the  result  to  the  starting  location  for  the  set  (in  ZT). 

10.  Load  eight  bytes  of  data  representing  each  redefined 
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character,  and  store  this  data  beginning  at  the  address 
determined  in  Step  9. 
11.  Repeat  Steps  9  and  10  for  all  characters  being  redefined, 
and  then  RTS. 

Explanation 

In  the  program  below,  CHRDEF  copies  the  uppercase/ 
graphics  character  set — 2K  of  character  data — from  ROM 
beginning  at  53248  to  RAM  beginning  at  14336  (assuming  the 
current  video  bank  is  0),  and  then  redefines  the  left  arrow  (-) 
character  to  1/8  and  the  ampersand  (&)  to  1/4.  To  copy  the 
lowercase/uppercase  set  instead,  replace  LDA  #>UPPGRP  at 
$C006  with  LDA  #<LOWUPP. 

To  move  both  character  sets  from  ROM,  you  need  to 
allow  room  in  the  current  16K  video  bank  for  4K  of  character 
data.  To  do  this  in  the  example  program  below,  before  assem- 
bling the  program,  change  CHROFF  in  the  equates  to  12;  this 
offsets  the  RAM  character  sets  by  12288  in  the  current  video 
bank.  Also  change  PAGCTR  to  16  to  move  12*256,  or  4096, 
bytes  and,  if  the  characters  you're  redefining  belong  in  the 
second  set,  insert  the  commented  instruction,  ADC  #8,  near 
the  end  of  the  program.  This  instruction  adds  an  additional  8K 
to  the  offset  for  the  RAM  character  set  and  causes  data  for  the 
redefined  characters  to  be  stored  into  the  second  set. 

As  it's  currently  set  up,  the  program  redefines  just  two 
characters — the  left  arrow  (character  31)  and  the  ampersand 
(character  38) — in  the  primary  character  set.  But  with 
CHRDEF,  you  can  redefine  up  to  256  characters  within  one- 
character  set.  Just  define  NUMDEF  to  the  number  of  charac- 
ters you  want  to  redefine  and  list  their  screen  codes  at 
SCCODE.  Then  provide  the  eight  bytes  of  pixel  data  for  each 
character  at  CHRDEF. 

By  listing  the  character  definition  data  in  binary  form,  you 
can  see  how  the  new  characters  will  appear  on  the  screen.  For 
instance,  look  at  the  data  in  $C08C-$C093,  and  you'll  see  the 
image  of  1/8  used  to  redefine  the  left  arrow. 

Routine 


cooo 

VMCSB 

53272 

;  VMCSB  =  2604  on  the  128— VIC-I1  chip 
;  memory  control  register 

cooo 

C1ACRA 

56334 

;  interrupt  control  register  A 

cooo 

C12PRA 

56576 

:  CIA  #2  data  port  register  A 

cooo 

ZT 

163 

;  temporary  zero-page  storage  (normally  for 
;  tape  and  serial  I/O) 

C000  ZP  =251 
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cooo 

UPPGRP 

- 

53248 

cooo 

LOWUPP 

- 

55296 

cooo 

CHROFF 

-= 

%O00O1110 

cooo 

INDFET 

= 

65396 

COOO 
C002 

A9 
OA 

OE 

CHRDEF 

LDA 

ASL 

#CHROFF 

C003 
COM 
CO06 

OA 
85 
A9 

A3 

DO 

ASL 
STA 
LDA 

ZT 

#>UPPGRP 

COOB 

85 

FC 

STA 

ZP+1 

COOA 
COOD 
COOF 

con 

AD  00 
29     03 
49     03 
OA 

DD 

LDA 
AND 
EOR 
ASL 

COPRA 

#%oooooon 

#°i  oooooou 

C012 
C013 
COM 
C015 
C016 
C017 

OA 
OA 

OA 
OA 
OA 
05 

A3 

ASL 
ASL 
ASL 
ASL 
ASL 
ORA 

ZT 

C019 

SS 

FE 

STA 

ZP+3 

COIB 
COID 

85 
A9 

A3 

00 

STA 
LDA 

ZT 

#0 

COIF 
C021 

85 
85 

FB 
FD 

STA 

STA 

ZP 
ZP+2 

C023 
C024 

78 
A5 

01 

SEJ 
LDA 

1 

C026 
C028 

29 
85 

FB 
01 

AND 
STA 

#%111 11011 

1 

C02A 
C02C 

AO 
81 

00 
FB 

CMLOOP 

LDY 

LDA 

#0 
(ZP),Y 

C02E  91  FD 

C030  C8 

C031  DO  F9 

C033  E6  FC 

C035  E6  FE 

C037  CE  87     CO 


STA  (ZP+2LY 

INY 

BNE  CMLOOP 

INC  ZP+1 

INC  ZP+3 

DEC  PAGCTR 


;  address  ol  uppercase/graphics  ROM 

;  character  set 

;  address  o(  lowercase/uppercase  ROM 

;  character  set 

;  IK  RAM  character  set  offset  in  current  video 

;  bank 

;  Kemal  routine  to  fetch  bytes  indirectly  from 

;  another  bank  (128  only) 

;  Put  character  set  In  RAM  at  14K.  redefine 

;  the  -  and  &  characters. 

;  First  move  character  set  to  RAM. 

;  load  character  set  offset 

;  multiply  by  4  to  get  high  byte  of 

;  character  set  offset 

;  store  temporarily 

;  change  UPPGRP  to  LOWUPP  to  move 

;  lowercase/uppercase  ROM  set 

;  save  high  byte  address  of  ROM  character 

;  set 

;  get  current  16K  video  banlc 

I  bank  number  is  in  bits  0-1 

;  to  get  actual  bank  number,  0-3 

;  multiply  bank  number  by  64  to  get  the 

;  high  byte  of  bank  address 


;  now,  add  the  high  byte  of  RAM  character 

;  set  offset  to  this 

;  store  the  result  (high  byte  address  of 

;  RAM  character  set) 

;  save  it  for  redefining  characters  below 

;  ROM  and  RAM  set  addresses  are  on 

;  even-page  boundaries 

;  store  0  into  low-byte  address  of  ROM  set 

;  also  into  low-byte  address  of  RAM  set 

;  Now  copy  character  set  from  ROM  to 

;RAM 

;  disable  IRQ  interrupts  (64  only) 

;  select  character  ROM  using  configuration 

;  register  (64  only) 

;  clear  bit  2  (64  only) 

;  reset  configuration  register  (64  only) 

;  Now  move  character  set(s)  from  ROM  to 

;RAM. 

;  initialize  .Y  as  index 

;  from  ROM  location  (64  only) 

;  Substitute  next  three  lines  for  previous 

;  line  on  the  128. 

,-  CMLOOP  LDA  #ZP 

;  LDX  #14;  bank  number 

;  JSR  INDFET;  fetch  character  data  from 

;  bank  14 

;  to  RAM  location 

;  next  byte 

,-  move  another  256  bytes 

;  next  256-byte  block 

;  next  page 
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CHRDEF 


CD3A  DO  FO 

C03C  A5  01 

C03E  09  04 

COM  85  01 

C042  58 

C043  AD  18     DO 

CD  if,  29  FO 

C048  09  OE 

C04A  8D  18     DO 


8NE  CMIOOP 

LDA  1 

ORA  #%00000100 

STA  1 

CLI 

LDA  VMCSB 

and  #%mioooo 

ORA  #CHROFF 

STA  VMCSB 


C04D 

A2 

00 

LDX 

#0 

C04F 

BD 

8A    CO 

RDFLOP 

LDA 

SCCODE,X 

C052 

85 

FB 

STA 

ZP 

C054 

A9 

00 

LDA 

#0 

C056 

85 

FC 

STA 

ZP+1 

C058 

06 

FB 

ASL 

ZP 

C05A 

26 

FC 

ROL 

ZF+1 

C05C 

06 

FB 

ASL 

ZP 

C05E 

26 

PC 

ROL 

ZP+1 

COM) 

06 

FB 

ASL 

ZP 

C062 

26 

PC 

ROL 

ZP+1 

C064 

A5 

FC 

LDA 

ZP+1 

C066 

65 

A3 

ADC 

ZT 

C068 

85 

FC 

STA 

ZP+1 

C06A 

8A 

TXA 

C06B 

48 

PHA 

C06C 

AO 

00 

LDY 

#0 

C06E 

AE 

88     CO 

CHLOOP 

LDX 

ROWCTR 

C071 

BD 

8C    CO 

LDA 

CHRDAT.X 

C074 

91 

FB 

STA 

(ZP),V 

C076 

EE 

88     CO 

INC 

ROWCTR 

C079 

C8 

INY 

C07A 

CD 

08 

CPY 

#8 

C07C 

90 

FO 

BCC 

CHLOOP 

C07E 

68 

PLA 

C07F 

AA 

TAX 

C080 

E8 

INX 

C081 

EC 

89     CO 

CPX 

NUMDEF 

C084 

DO 

C9 

BNE 

RDFLOP 

C086 

60 

RTS 

C087 

08 

PAGCTR 

BYTE 

8 

C088 

00 

ROWCTR 

.BYTE 

0 

C089 

02 

NUMDEF 

BYTE 

2 

C08A 

IF 

26 

SCCODE 

.BYTE 

3138 

C08C 

CHRDAT 

«= 

• 

C08C 

40 

.BYTE 

%01000000 

C08D 

44 

.BYTE 

%01000100 

C08E 

48 

.BYTE 

%01001000 

;  move  all  256-byte  blocks 

;  (64  only) 

;  set  configuration  register  to  enable  I/O 

;  (64  only) 

;  reset  register  (64  only) 

|  reenable  interrupts  (64  only) 

;  now,  point  VIC  chip  to  RAM  character  set 

;  retain  current  4-7  bits  of  VMCSB  (text 

;  offset) 

;  or  In  bits  0-3  representing  RAM  character 

;  set  offset 

;  and  store  result  in  control  register 

;  Now  redefine  RAM  characters. 

:  First  calculate  location  of  each  character 

;  in  RAM  set. 

;  let  .X  count  number  of  characters  that 

;  have  been  redefined 

;  load  each  character  number  to  redefine 

i  clear  high  byte  for  ROL 

;  multiply  SCCODE  by  8  since  eight  bytes 
;  per  character 


;  now  add  start  of  RAM  character  set  (carry 

;  cleared  by  last  ROL) 

;  only  add  high  byte  since  character  set  is 

;  on  a  page  boundary 

I  ADC  #8;  add  2K  if  you  transfer  both  sets 

;  and  characters  are  in  second  set 

;  specific  character's  address  is  now  at  ZP 

;  store  .X  on  stack  temporarily 

,-  index  rows  of  pixels  in  one  character 

;  -X  now  contains  pixel  row 

;  get  next  row  of  character  data 

',  store  into  RAM  set 

;  next  row  of  data 

;  next  row  for  this  character 

;  do  eight  rows  of  this  character 

;  ail  done 

;  restore  .X  to  contain  number  of  characters 

;  that  have  been  redefined 

;  next  character 

;  have  all  characters  been  done? 

;  if  noL  do  another  one 

;  we're  finished 

;  move  8*256=2048  bytes  (1  set);  use  16  to 

;  move  both  sets 

:  counter  for  row  of  pixel  data 

;  number  of  characters  to  redefine 

;  screen  codes  of  character  to  redefine 

I  pixel  data  for  -  (1/8) 
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CHRDEF 


C08F 

12 

G090 

25 

C091 

42 

C092 

05 

C093 

02 

C094 

40 

C095 

44 

C096 

48 

C097 

12 

C098 

26 

C099 

4A 

C09A 

IF 

C09B 

02 

.BYTE  %00010010 

.BYTE  %00100101 

.BYTE  %01000010 

-BYTE  %00000101 

.BYTE  %00000010 

.BYTE  %01000000 

BYTE  %01000100 

.BYTE  %01001000 

.BYTE  %00010010 

.BYTE  %00100110 

-BYTE  %01001010 

.BYTE  %00011111 

.BYTE  %00000010 


;  pixel  data  for  &  (1/4) 


See  also  AN1MAT,  CUST80. 


CHRGTR 


Name 

Get  a  character  within  a  range 

Description 

CHRGTR  will  come  in  handy  anytime  you  wish  to  limit  the 
user's  response  to  a  specified  range  of  characters.  For  instance, 
suppose  you  ask  the  user  a  question  that  requires  a  numeric 
response.  Or  suppose  you  want  only  alphabetic  input. 

In  either  case,  this  routine  is  ideal.  You  simply  set  the  up- 
per and  lower  limits  of  acceptable  ASCII  characters  before- 
hand and  JSR  to  CHRGTR. 

Prototype 

1.  Set  up  the  lower  and  upper  (plus  one)  values  of  the  ASCII 
character  range  (RANGE1  and  RANGE2,  respectively). 

2.  Get  a  keypress. 

3.  Compare  its  ASCII  value  to  the  lower  delimiter  (RANGE1). 

4.  If  it's  less,  branch  to  step  2. 

5.  Compare  its  ASCII  value  to  the  upper  delimiter  (RANGE2). 

6.  If  it's  greater,  branch  to  step  2. 

7.  Otherwise,  return  the  acceptable  ASCII  character  in  .A. 

Explanation 

The  example  program  is  set  up  so  that  only  letters  between  A 
and  Z  are  accepted.  To  limit  the  input  to  number  keys,  change 
RANGE1  to  48  (ASCD*  0)  and  RANGE2  to  58  (ASCII  9,  plus  1). 

Routine 


cooo 

GETTN 

« 

65508 

cooo 

CHROUT 

65490 

:  Accept  only  keys  in  the  range  A-Z  and 
;  print  the  keypress. 

cooo 

20 

07 

CO 

JSR 

CHRGTR 

;  get  a  character  within  a  range 

C003 

20 

D2 

FF 

JSR 

CHROUT 

;  print  the  character 

C006 

60 

RTS 

;  Get  a  character  from  within 
;  RANGE1-RANGE2 
;  return  it  in  .A. 

C007 

20 

E4 

FF 

CHRGTR 

JSR 

CET1N 

;  get  ASCII  key 

C00A 

CD 

15 

CO 

CMP 

RANGE1 

;  compare  with  RANGE  I 

C00D 

90 

FS 

BCC 

CHRGTR 

;  (oo  low,  so  get  another  keypress 

C00F 

CD 

U 

CO 

CMP 

range: 

;  compare  with  RANGE:  plus  1 

C012 

B0 

F3 

BCS 

CHRGTR 

;  loo  high,  to  get  another  key 

COM 

60 

RTS 

CO  15 

41 

RANGE1 

-BYTE 

65 

;  ASCII  A 

C016 

5B 

RANGE2 

.BYTE 

91 

:  ASCII  Z  plus  1 

See  also  BUFCUR,  CHRGTS,  CHRKER,  MATGET. 
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Name 

Get  a  specific  character 

Description 

There  will  be  many  occasions  when  you  will  want  to  screen 
the  user's  input  selectively.  Probably  the  most  common  ex- 
ample of  this  is  when  you  ask  the  user  a  yes/no  question. 
Usually,  all  you're  really  looking  for  is  a  Y  or  N  response. 

By  using  CHRGTS,  you  can  set  up  this  situation  with 
ease.  Before  you  access  the  routine,  just  place  these  two 
characters  in  the  table  of  acceptable  responses  at  the  end  of 
the  program. 

CHRGTS  checks  the  incoming  character  to  insure  that  it 
is  among  those  in  your  table  of  allowed  characters.  The  pro- 
gram continues  only  if  and  when  it  receives  a  suitable 
response. 

Prototype 

1.  Get  a  keypress. 

2.  Compare  its  ASCII  value  with  a  list  of  acceptable  responses 
(here,  KEYS). 

3.  If  the  incoming  keypress  is  among  those  in  the  table,  return 
its  ASCII  value  in  .A. 

4.  Otherwise,  branch  to  step  1. 

Explanation 

With  the  aid  of  CHRGTS,  the  following  program  checks  for  a 
Y  (yes)  or  N  (no)  keypress.  If  either  is  pressed,  it  is  printed. 
Otherwise,  the  program  fetches  another  keypress  until  a  Y  or 
N  is  received. 

Note:  The  table  of  acceptable  responses  can  have  as  many 
ASCII  characters  in  it  as  you  like.  By  placing  the  responses 
that  you're  more  likely  to  receive  at  the  beginning  of  the  table, 
you  can  speed  up  the  execution  of  this  routine. 

Routine 

C000  GETIN  =  65508 

CHROUT       =  65490 


:  Accept  either  Y  or  N  only. 
COO0     20     07     CO  |SR         CHRGTS  ;  get  specific  characters 

C003    20    D2   FF  1SR       CHROUT  j  print  it 

C006     60  RTS 

;  Get  only  characters  designated  in  KEYS 
;  table.  Return  character  in  .A. 


CHRGTS 


C007     20     E4     FF    CHRGTS      JSR        GETIN 


C00A 
COOC 
COOF 

con 

CD12 
C014 
C016 

C018 


A2    00 
DD  19 
FO    07 
E8 
EO 
DO 
FO 
60 


02 
F6 
EF 


CO    CHKLOP 


EXIT 


LDX 

CMP 

BEQ 

INX 

CPX 

BME 

BEQ 

RTS 


#0 

KEYS,X 

EXIT 

#NUMKEY 

CHKLOP 

CHRGTS 


;  gel  ASCH  key 

;  check  each  character  in  table 
;  if  round 

;  check  key  number 

;  if  more  in  table,  check  next  character 

;  if  no  match,  get  another  keypress 


C019     59     4E 
C01B 


KEYS  ASC 

NUMKEY      = 


"YN" 

•  -KEYS 


;  list  of  acceptable  keystrokes 
;  number  of  acceptable  keys 


See  also  BUFCLR,  CHRGTR,  CHRKER,  MATGET. 
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CHRKER 


Name 

Get  a  character 

Description 

You'll  find  a  need  for  this  routine  in  just  about  any  program 
you  write  that  requires  user  input.  CHRKER  uses  the  Kernal 
routine  GETIN  to  get  a  character  from  the  current  input  device. 

Prototype 

1.  JSR  to  GETIN  to  fetch  a  keypress. 

2.  If  the  Z  flag  is  set — if  GETIN  has  received  a  null  string,  or 
CHR$(0)— BEQ  to  step  1. 

3.  Otherwise,  return  in  .A  the  ASCII  character  received  bv 
GETIN. 

Explanation 

The  example  program  gets  a  character  from  the  keyboard  (by 
default,  the  current  input  device)  and  prints  it. 

Note:  GETIN  relies  on  the  normal  IRQ  interrupt  routine  to 
get  its  characters.  During  each  IRQ  interrupt,  the  keyboard  is 
checked,  and  ASCII  values  for  keypresses  are  placed  in  the 
keyboard  buffer.  So,  altering  the  normal  IRQ  routines  may 
cause  the  keyboard  buffer  not  to  be  updated.  In  such  in- 
stances, GETIN  won't  work,  and  you  should  use  the  Kernal 
SCNKEY  routine  instead. 

A  CMP  #0  instruction  following  JSR  GETIN  may  be  nec- 
essary when  you're  getting  characters  from  a  device  other  than 
the  keyboard  (for  example,  from  a  disk  or  modem). 

Routine 


cooo 
cooo 

GETIN 

= 

65508 

;  Kernal  get-key  routine 

CHROUT 

— 

65490 

;  Accept  keypresses  until  RETURN. 

cooo 

20 

0B 

CO 

LOOP 

JSR 

CHRKER 

;  get  a  key  in  .A 

C003 

20 

D2 

FF 

JSR 

CHROUT 

.  print  it 

C006 

C9 

0D 

CMP 

#13 

.-  is  it  RETURN? 

C008 

DO 

F6 

BNE 

LOOP 

:  If  not,  get  another  keypress 

C00A 

60 

RTS 

;  Return  a  keypress  in  .A. 

C00B 

20 

E4 

FF 

CHRKER 

JSR 

GETIN 

;  get  an  ASCII  keystroke 

COOE 

F0 

FB 

BEQ 

CHRKER 

;  if  no  keypress,  then  loop 

C010 

60 

RTS 

See  also  BUFCLR,  CHRGTR,  CHRGTS,  MATGET. 


CT2FP,  CFP2I 


Name 

Convert  signed  integers  to  floating  point  and  vice  versa 

Description 

A  signed  integer  value  consists  of  16  bits  (two  bytes).  The 
highest  bit  indicates  the  sign  (%0  is  positive,  %1  is  negative); 
the  remaining  15  bits  contain  the  value.  Floating-point  num- 
bers may  contain  fractional  components  and  are  contained 
within  five  bytes.  This  routine  converts  between  the  two 
formats. 

Prototype 

1.  JMP  indirectly  through  $0005  (64)  or  $117C  (128)  to  con- 
vert integers  to  floating  point.  Enter  with  the  integer  value 
in  .A  (low  byte)  and  .Y  (high  byte).  The  resulting  floating- 
point value  will  be  left  in  FAC1  (floating  point  accumulator 
#1),  locations  $61-$65  (64)  or  $63-$67  (128). 

2.  Or  JMP  indirectly  through  $0003  (64)  or  $117A  (128)  to 
change  floating-point  numbers  to  integers.  Enter  with  the 
floating-point  value  in  FAC1  (floating  point  accumulator 
#1),  locations  $61-$65  (64)  or  $63-$67  (128).  The  integer 
value  will  be  returned  in  .A  (low  byte)  and  .Y  (high  byte). 

Explanation 

The  example  program  takes  the  two-byte  value  in  the  start  of 
BASIC  pointer,  converts  it  to  a  floating-point  number,  calls  the 
square-root  routine,  and  prints  the  resuLt.  There's  no  good  rea- 
son why  you'd  want  to  find  the  square  root  of  the  start  of 
BASIC,  of  course,  but  it  serves  as  a  good  example  of  using 
built-in  ROM  routines. 

The  RAM  vectors  to  the  built-in  conversion  routines  in 
BASIC  ROM  are  initialized  when  the  computer  is  turned  on  or 
reset.  The  example  also  uses  the  ROM  routine  for  the  SQR 
function,  which  calculates  the  square  root  of  the  floating-point 
value  in  FACl,  and  the  ROM  routine  that  prints  a  signed  inte- 
ger number. 

A  note  to  machine  language  programmers  who  want  to 
use  fractions  and  floating-point  routines  in  their  programs: 
There  are  a  variety  of  ways  to  avoid  fractions  or  to  simulate 
them  without  going  to  floating  point.  If  you're  convinced  that 
you  need  fractions,  you  may  take  one  of  two  routes.  The  first 
is  to  use  the  various  ROM  routines;  the  second  is  to  write  your 
own  floating-point  package.  If  you  depend  on  the  BASIC 
routines,  your  programs  will  perform  calculations  at  about  the 
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same  speed  as  a  BASIC  program,  which  is  a  good  argument  for 
using  BASIC  in  the  first  place.  Writing  your  own  floating-point 
package  is  feasible,  but  it's  a  lot  of  work,  and  the  end  result 
may  be  a  set  of  routines  that  aren't  much  faster  than  BASIC. 

Note:  128  programmers  should  substitute  the  following 
addresses:  SQR  =  $8FB7,  LINPRT  =  $8E32,  CI2FP  =  IMP 
($11 7C),  CFP2I  -  JMP  ($11 7A). 

Routine 


cooo 

TXTTAB 

— 

43 

;  TXTTAB  —  45  on  the  128— pointer  to 

COM 

;  0/  BASIC 

SQR 

- 

$BF71 

;  ROM  square-root  routine  (SQR  -  $8F 

;  the  128) 

COOO 

UNPRT 

$BDCD 

;  LINPRT  —  $8E32  on  the  128— prints 
;  signed  integer  in  .A  and  .X 

cooo 

A4 

2H 

MAIN 

LDY 

TXTTAB 

;  low  byte  of  the  pointer 

C002 

A5 

2C 

LDA 

TXTTAB+ 1 

;  high  byte 

C004 

20 

15 

CO 

)SR 

C12FP 

;  convert  it 

C007 
COOA 

20 

20 

71 
18 

BF 
CO 

JSR 
JSR 

SQR 
CFP2I 

;  find  the  square  root  (ROM  routine) 
;  back  to  an  integer 

COOD 

48 

PHA 

; save  .A 

COOE 

98 

TYA 

;  Y  to  .A 

COOF 

AA 

TAX 

;  to.X 

C010 

68 

PLA 

j get .A  back 

C011 

20 

CD 

BD 

JSR 

UNPRT 

.  print  it 

C014 

£0 

RTS 

C015     6C    05     00     CX2FP  JMP       ($0005)  ';  JMP  ($U7C)  on  the  128 

C018     6C    03     00     CFP2!  JMP       ($0003)  ,' JMP  ($117A)  on  the  128 

See  also  B2SNIN,  B2UNIN,  BCD2BY,  CB2BCD,  CI2FP,  CNVBFP. 
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Name 

Convert  a  two-byte  integer  to  four  hexadecimal  (ASCII)  digits 

Description 

This  routine  is  just  an  extended  two-byte  version  of  CB2HEX, 
which  converts  a  single  byte  into  two  hex  characters.  You  en- 
ter CI2HEX  with  the  high  byte  in  .A,  the  low  byte  in  .X.  The 
result  is  stored  in  a  buffer,  terminated  by  a  zero. 

Prototype 

1.  With  the  high  byte  in  .A  and  low  byte  in  .X,  call  the  byte- 
to-hex  (BYTHEX)  subroutine. 

2.  Copy  the  resulting  characters  (stored  in  zero  page)  to  a 
buffer. 

3.  Transfer  .X  to  .A  and  call  BYTHEX  again. 

4.  Copy  the  ASCII  hex  characters  to  the  buffer  again. 

Explanation 

The  example  routine  displays  a  section  of  memory  starting  at 
$0800,  where  BASIC  programs  are  stored  on  the  64.  On  the 
128,  programs  are  stored  at  $1C00  or  $4000,  depending  on 
whether  a  graphics  area  has  been  allocated.  To  adapt  the  pro- 
gram to  the  128,  change  the  $08  at  $C004  to  $1C  or  $40. 

The  CI2HEX  routine  is  called  to  set  up  the  memory  ad- 
dresses ($0800,  $0808,  $0810,  and  so  on)  to  be  printed  at  the 
beginning  of  each  line.  Then  eight  single-byte  values  are 
printed,  separated  by  spaces.  The  BYTHEX  subroutine  at 
$C07C  is  essentially  the  same  as  the  CB2HEX  routine  found 
elsewhere  in  this  book,  but  because  the  X  and  Y  registers  are 
used  in  the  calling  routines,  BYTHEX  is  careful  not  to  disturb 
any  values  in  the  registers. 

The  two  ASCII  characters  are  stored  in  $FD  and  $FE  tem- 
porarily. The  BUFFIT  routine  copies  these  characters  to  the 
buffer,  indexed  by  .Y.  Later,  the  PRBUFF  routine  prints  out  the 
characters  in  BUFFER. 

Routine 


cooo 

ZP 

= 

$FB 

cooo 

Fl 

— 

$FD 

cooo 

F2 

= 

SFE 

cooo 

CHROUT 

— 

SFFD2 

cooo 

A9 

00 

MAIN 

LDA 

#0 

C002 

85 

FB 

STA 

ZP 

C004 

A9 

08 

LDA 

#8 

coos 

85 

FC 

STA 

ZP+1 

;  set  up  a  pointer  to  $0800  in  2 

C008 

A9 

0A 

LDA 

#10 

;  ten  lines 

C00A 

8D 

9D 

CO 

STA 

COUNTER 

;  stash  It  in  a  memory  variable 
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COOD 

A6 

Fl) 

COOF 

AS 

FC 

con 

20 

IB 

GO 

C014 

20 

6E 

CO 

C017 

20 

69 

CO 

COIA 

AO 

00 

CMC 

Bl 

FB 

COIE 

20 

7C 

Co 

C021 

A5 

FD 

C023 

20 

D2 

FF 

C026 

A5 

FE 

C028 

20 

D2 

FF 

C02B 

20 

69 

CO 

C02E 

C8 

C02F 

CO 

08 

C031 

DO 

E9 

C033 

A9 

OD 

C035 

20 

D2 

FF 

C038 

A9 

08 

C03A 

18 

C03B 

65 

FB 

C03D 

85 

FB 

C03F 

A9 

00 

C041 

65 

FC 

C043 

85 

FC 

C045 

CE 

9D 

CO 

CD48 

DO 

C3 

C04A 

60 

co-ni 

C04B 

AO 

00 

C04D 

20 

7C 

CO 

COOT 

20 

57 

CO 

C0S3 

8A 

C054 

2(1 

7C 

CO 

C057 

A5 

FD 

C059 

99 

9E 

cu 

C05C 

C8 

C05D 

AS 

FE 

COSF 

99 

9E 

CO 

C062 

C8 

C063 

A9 

00 

C06S 

99 

9E 

CO 

C068 

60 

UTLOOP 


INLOOP 


CI2HEX 


BUFFIT 


LD.X 

LDA 

ISR 

ISR 

ISR 

LDY 

LDA 

JSR 

LDA 

JSR 

LDA 

JSR 

JSR 

INY 

CPY 

BNE 

LDA 

JSR 

LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 

DEC 

BNE 

RTS 


LDY 

JSR 

JSR 

TXA 

JSR 

LDA 

STA 

INY 

LDA 

STA 

INY 

LDA 

STA 

RTS 


ZP 

ZP+1 

C12HEX 

PRBUFF 

PRSPC 

#0 

(ZP).Y 

BYTHEX 

Fl 

CHROUT 

F2 

CHROUT 

PRSPC 

#8 

iNLOOP 

#13 

CHROUT 

#8 

ZP 

ZP 

WO 

ZP+1 

ZP+1 

COUNTER 

UTLOOP 


#0 

BYTHEX 

BUFFIT 

BYTHEX 
FT 

BUFFER.Y 

F2 

BUFFER,Y 

#0 
BUFFER.Y 


;  low  byte  of  pointer 

;  high  byte 

;  convert  it 

;  print  the  buffer 

;  print  a  space 


;  print  RETURN 

;  add  8  to  the  ZP  pointer 

;  always  CLC  before  adding 

.add 

;  store  it  back 

;  adding  0  takes  care  of  carry 

;  store  that,  too 

.-  count  down 

;  and  branch  back 

;  end  of  the  main  routine 


;  convert  -A  to  hex  in  F]r  F2 


C069  A9    20  PRSPC 

C06B  4C    D2    FF 

C06E  AO    00  PRBUFF 

C070  B9    9E    CO   PBLOOP 

C073  F0     06 

C075  20     D2    FF 

C078  C8 

C079  DO    F5 

C07B  60  OUT 

C07C  BYTHEX 

C07C  08 

C07D  48 

C07E  4A 

C07F  4A 

C080  4A 

C081  4A 

C082  20     93     CO 

C085  85    FD 


LDA      #32 
IMP       CHROUT 

LDY  #0 

LDA  BUFFER.Y 

BEQ  OUT 

JSR  CHROUT 

INY 

BNE  PBLOOP 

RTS 

=  • 

PHP 
PHA 

LSR 

LSR 

LSR 

LSR 

JSR         ADD48 

STA       Fl 


;  print  a  space 


;  save  the  processor  status 
; save  -A 


four  shift  rights,  for  the  high  nybble 
add  48  (plus  7.  maybe) 
store  it 


170 


C12HEX 


C087 

68 

PLA 

pull  .A  for  the  low  nybble 

C088 

JS 

PHA 

push  one  more  time 

C089 

29 

OF 

AND 

#%oooonn 

mask  it 

C08B 

20 

93     CO 

JSR 

ADD48 

and  add  48 

C08E 

85 

FE 

STA 

F2 

store  it  in  F2 

C090 

68 

PLA 

get  .A  back 

C091 

28 

PLP 

and  .P,  too 

C092 

60 

RTS 

C093 

IB 

ADD48 

CLC 

C094 

69 

30 

ADC 

#48 

add  48 

C096 

C9 

3A 

CMP 

#58 

is  it  0-9? 

C098 

90 

02 

BCC 

NOMORE 

yes,  move  ahead 

C09A 

69 

Oo 

ADC 

06 

else,  add  7  (with  carry  set) 

C09C 

60 

NOMORE 

RTS 

C09D 

00 

COUNTER 

.BYTE 

0 

C09E 

BUFFER 

= 

• 

C19D 

■ — 

•+255 

a  big  butter 

See  also  BCD2AX,  CAS2IN,  CB2ASC,  CB2HEX. 
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Name 

Close  a  file  and  restore  default  devices 
Description 

This  routine  closes  the  logical  file  whose  number  is  in  the 
accumulator.  It  also  restores  the  keyboard  and  screen  as  the 
current  input  and  output  devices. 

CLOSFL  can  close  any  external  channel  (such  as  disk  drive, 
printer,  or  modem)  as  long  as  the  channel  number  is  in  .A. 

Prototype 

1.  Load  .A  with  the  logical  file  number  of  the  external  device 

2.  JSR  to  CLOSE. 

3.  JMP  to  CLRCHN. 

Explanation 

See  PRTOUT  or  PRTSTR  for  programs  where  CLOSFL  is 
used  to  close  a  printer  channel.  In  the  WRITBF  and  READBF 
routines,  CLOSFL  closes  a  channel  to  the  disk  after  file  writ- 
ing or  reading.  No  error  will  occur  if  you  try  to  close  a  file 
which  hasn't  been  opened. 

Routine 


cooo 
cooo 

CLOSE 
CLRCHN 

= 

65475 
65484 

cooo 

C003 

20     C3    FF     CLOSFL 
4C    CC   FF 

ISR 
JMP 

CLOSE 
CLRCHN 

CLOSFL  doses  ihe  logical  file  in  -A  and 

restores  default  devices. 

dose  file  In  .A 

clear  all  channels,  restore  default  devices, 

and  RTS 

See  also  OPENPR,  PRTOUT,  PRTSTR,  WRITBF,  WRITFL. 
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Name 

Clear  the  screen  with  CHR$(147) 

Description 

One  of  three  routines  in  this  book  that  clears  the  text  screen, 
this  one  accomplishes  the  task  by  printing  CHR$(147),  the 
Commodore  ASCII  code  for  clearing  the  screen. 

Prototype 

Load  .A  with  147  and  JMP  to  CHROUT. 

Explanation 

This  simple  program  clears  the  text  screen  and  prints  a  Y  in 
the  current  cursor  color. 

Note:  This  routine  is  much  faster  than  CLRFIL,  but  just 
slightly  slower  than  CLRROM.  Unlike  CLRROM,  though,  it 
has  the  advantage  of  relying  on  a  Kemal  ROM  routine,  specifi- 
cally CHROUT.  And  like  other  ROM  routines  accessed  from 
the  Kemal  jump  table,  CHROUT  will  be  called  from  the  same 
address  on  all  Commodore  machines. 

Routine 


cooo 

CHROUT 

65490 

;  Clear  screen  and  print  Y. 

cooo 

20 

M 

CO 

JSR 

CLRCHR 

.  clear  the  screen 

C003 

A9 

59 

LDA 

#89 

.print  Y 

cobs 

ID 

D2 

FF 

JSR 

CHROUT 

C008 

60 

RTS 

j  Clear  the  screen  with  CHR$(147) 

C009 

A9 

93 

CLRCHR 

LDA 

#147 

;  print  CLEAR  SCREEN 

COOB 

4C 

D2 

FF 

JMP 

CHROUT 

;  and  RTS 

See  also  CLRFIL,  CLRROM. 
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Name 

Clear  the  screen  with  a  fill  routine 
Description 

Yet  another  routine  to  clear  the  text  screen,  this  one  works  by 
storing  a  32  (the  screen  code  for  the  space  character)  into  each 
screen  memory  location. 

Prototype 

Using  a  loop,  store  spaces  in  all  1000  text-screen  locations. 
Explanation 

This,  short  program  clears  the  text  screen  by  filling  it  with 
spaces,  then  prints  an  X. 

Note:  This  routine  leaves  color  memory  unchanged.  If  you 
wish  to  fill  color  memory  at  the  same  rime  the  screen  is 
cleared,  insert  a  JSR  COLFIL  in  the  code  following  the  fill 
loop  and  add  COLFIL  to  the  end  of  the  program. 

You  may  notice  that  the  BNE  occurs  after  the  STAs  in  the 
primary  loop,  instead  of  in  its  more  natural  position  just  after 
a  DEY.  The  STA  instruction  does  not  affect  any  flags;  the  BNE 
refers  back  to  the  DEY  just  after  the  LDY.  The  four  store 
instructions  must  store  in  offsets  of  0-249.  By  performing  the 
STAs  before  the  BNE,  we're  able  to  store  in  the  offset  of  zero. 
Routine 


cooo 
cooo 


SCREEN 
CHROUT      = 


1024 
65490 


;  normal  text-screen  position 


COOO  20  09     CO 

C003  A9  58 

COOS  20  D2    FF 

C008  60 


JSR  CLRFTL 

LDA  #88 

JSR  CHROUT 

RTS 


;  Clear  screen  with  fill  and  print  X. 
;  clear  the  screen 
;  print  X 


C009 

("00(5 

C00D 

C00E 

COU 

C014 

C017 

C01A 


A9 
A0 
88 
» 

99 
99 
99 
DO 


C01C    60 


20 
FA 

00 
FA 
F4 
EE 

Fl 


04 
04 
05 
06 


CLRFn. 
LOOP 


LDA 
LDY 
DEY 
STA 
STA 
STA 
STA 
BNE 


RTS 


#32 
#250 


;  screen  code  for  space 


SCREEN,  Y  ;  1st  quarter 
SCREEN+250,V  ;  2nd  quarter 
SCREEN+5O0Y  ;  3rd  quarter 
SCREEN +750, Y  ;  4th  quarter 
LOOP  ;  fill  all  250  bytes 

;  Insert  JSR  COLFIL  to  flu  color  RAM  i 

;  well. 


See  also  CLRCHR,  CLRROM. 
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Name 

Clear  the  hi-res  screen  using  a  fill  method 

Description 

Anytime  you  display  the  high-resolution  screen  without  first 
clearing  it,  you're  likely  to  see  whatever  garbage  resides  in  the 
underlying  memory.  To  avoid  this,  clear  screen  memory  with 
the  CLRHRF  routine,  or  with  CLRHRS,  before  you  view  it. 

The  routine  shown  here  relies  on  a  conventional  zero- 
page  addressing  technique  to  fill  8192  bytes  representing 
screen  memory  with  zeros.  CLRHRS  achieves  the  same  result, 
but  in  slightly  less  time  and  with  less  memory,  by  using  self- 
modifying code. 

With  either  method,  high -resolution  color  memory  re- 
mains intact.  If  you  want  to  fill  color  memory  at  the  same 
time,  insert  a  JSR  HRCOLF  into  your  code  where  indicated. 

Prototype 

1.  Store  the  address  of  the  high -resolution  screen  in  a  zero- 
page  pointer. 

2.  Set  .X  to  32  as  a  counter  for  the  number  of  pages  to  fill 
(32  *  256  =  8192). 

3.  Using  indirect  indexed  addressing,  fill  each  byte  within  a 
page  with  zero  (in  .A), 

4.  After  filling  a  page,  increment  the  page  pointer  in  zero 
page. 

5.  Decrement  .X.  If  it's  not  equal  to  zero,  go  to  step  3. 

6.  When  .X  =  0,  RTS  to  the  main  program.  (If  you  want  to 
clear  color  memory  as  well,  JSR  to  HRCOLF  just  before 
the  RTS.) 

Explanation 

In  the  example  program,  we  set  up  a  high-resolution  screen  at 
location  8192  and  clear  it  by  using  CLRHRF.  A  keypress  re- 
turns you  to  the  normal  text  screen. 

On  the  64,  before  locating  the  bitmap  within  the  current 
video  bank  (by  default,  bank  0),  you  must  save  the  contents  of 
the  VIC-II  chip  memory  control  register  at  53272  (VMCSB). 
This  register  contains  the  present  offset  address  within  the 
current  video  bank  for  the  character  set  (low  nybble)  and  the 
text  screen  (high  nybble). 

On  the  128,  during  each  IRQ  interrupt,  VMCSB  takes  its 
value  from  either  VM1  at  2604  (if  you're  in  text  mode)  or  from 
VM2  at  2605  (if  you're  in  bitmap  mode).  Since  VM1  is  never 
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altered  by  the  program,  you  don't  need  to  save  it  (or  VMCSB) 
here. 

Next,  bit  3  of  VMCSB  (VM2  on  the  128)  is  turned  on  to 
offset  the  high -resolution  screen  by  8K  within  the  current 
video  bank.  To  place  your  screen  in  the  first  half  of  the  video 
bank  (the  offset  will  be  0),  turn  off  bit  3  by  ANDing  the  con- 
tents of  the  control  register  with  247. 

Once  you've  located  the  high-resolution  screen,  the  sub- 
routine BITMAP  puts  the  screen  in  bitmap  mode.  The  screen 
is  then  cleared  with  CLRHRF. 

On  the  64,  returning  to  the  normal  text  screen  is  actually 
a  two-step  procedure.  After  bitmap  mode  has  been  disabled 
(again  with  BITMAP),  the  contents  of  the  VIC-II  memory  con- 
trol register  are  restored  so  that  they  point  to  the  character  set 
and  text  screen  that  were  previously  in  use.  On  the  128,  be- 
cause VMCSB  takes  its  value  from  VM1  in  text  mode,  you 
need  only  to  disable  bitmap  mode. 

Routine 


cooo 

ZP 

= 

251 

cooo 

GET1N 

= 

65508 

cooo 

VMCSB 

= 

53272 

cooo 

SCROLY 

— 

53265 

COOO  VM2 


COOO  AD  18  DO 

C003  8D  45  CO 

C006  09  08 

C008  8D  18  DO 

C00B  20  3A  CO 

C00E  20  20  CO 

C011  20  E4  FF     WAIT 

COM  F0  FB 

C016  20  3A  CO 


CO  19  AD  45  CO 
C01C  8D  18  DO 
COIF     60 


C023 
C025 
C028 

C02A 
C02C 


=  2605 


LDA 
STA 


JSR 

JSR 

JSR 

BEQ 

JSR 


LDA 
STA 
RTS 


VMCSB 
TEMP 


ORA      «%00001000 
STA       VMCSB 


BITMAP 

CLRHRF 

GET1N 

WAIT 

BITMAP 


TEMP 
VMCSB 


C020     AD  43     CO    CLRHRF       LDA      HRSCRN 


85     FB 
AD  44 

85     FC 


CO 


A9 
AS 


00 


STA 

LDA 
STA 

LDA 
TAY 


ZP 

HRSCRN +1 
ZP+1 


;  V1C-I1  chip  memory  control  register 

;  scroll/control  register— use  GRAPHM  = 

;  216  on  the  128 

;  VIC-II  chip  memory  control  shadow  register 

;  (128  only) 

« 

.-  Locate  a  hi-res  screen  at  8192  and  clear  it. 

1  temporarily  save  VMCSB  (64  only) 

;  (64  only) 

I  Now,  offset  bitmap  by  8K  in  video  bank. 

;  replace  with  AND  #%11110111  if  hi-res 

;  screen  is  in  first  half  of  video  bank 

;  reset  register  (replace  VMCSB  with  VM2  on 

;  the  128) 

;  enter  bitmap  mode 

;  clear  the  hi-res  screen 

;  get  a  keypress 

;  if  no  keypress,  wait 

:  turn  off  bitmap  mode 

» 

;  Reset  pointer  to  character  set. 

;  (64  only) 

;  (64  only) 


Clear  the  hi-res  screen  with  a  fill  method- 
set  up  zero-page  pointers  to  Ihe  hi-res 
screen 


;  Fill  32  pages  (8K>  with  ieros. 
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C02D 

A2    20 

IDX 

#32 

C02F 

91      FB 

LOOP 

STA 

(ZP),Y 

C031 

C8 

INY 

C032 

DO    FB 

BNE 

LOOP 

COM 

E6     FC 

INC 

ZP+1 

C036 

CA 

DEX 

C037 

DO    F6 

BNE 

LOOP 

C039 

60 

RTS 

C03A 

AD 

11 

DO 

BITMAP 

LDA 

SCROLY 

C03D 

49 

20 

EOR 

#%0010C 

C03F 

8D 

11 

DO 

STA 

SCROLY 

C042 

60 

RTS 

C043 

00 

20 

HRSCRN 

.WORD  8 192 

C045 

00 

TEMP 

.BYTE 

0 

;  32  pages 

;  fill  a  block  of  256  bytes  with  zero 


:  page  filled,  so  increase  page  pointer 

;  to  fill  all  pages 

;  JSR  HRCOLF;  Insert  here  to  clear  color 
;  memory  as  welL 


;  Enable/disable  bitmap  mode. 

;  substitute  GRAPUM  for  SCROLY  for  the 

;  128 

;  flip  bit  5 

:  reset  register  (again,  use  GRAPHM  instead 

j  of  SCROLY  for  the  128) 


:  locate  hi-res  screen 

i  temporary  storage  for  VMCSB  configuration 


See  also  BITMAP,  CLRHRS,  HRCOLF,  HRPOLR,  HRSETP,  PAINT. 
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Name 

Clear  a  hi-res  screen  using  self-modifying  code 

Description 

This  is  probably  the  quickest  way  to  clear  the  8000  bytes  of  a 
hi-res  screen. 

Prototype 

1.  Store  the  address  of  the  high-resolution  screen  in  the 
dummy  address  (initially  $FFFF)  at  $C012. 

2.  Set  .X  to  32,  for  the  number  of  pages  to  fill 
(32  *  256  =  8192). 

3.  Fill  each  byte  within  a  page  with  zero  (in  .A)  using  absolute 
addressing  offset  by  .Y. 

4.  After  filling  a  page,  increment  the  high-byte  page  pointer  in 
the  absolute  address. 

5.  Decrement  .X.  If  it's  not  equal  to  zero,  go  to  step  3. 

6.  When  .X  =  0,  RTS  to  the  main  program.  (If  you  also  want 
to  clear  color  memory,  JSR  to  HRCOLF  just  prior  to 
returning.) 

Explanation 

It  might  look  confusing  when  you  first  read  through  the  pro- 
gram, but  the  idea  is  reasonably  simple.  The  line  at  $C011  is 
the  key.  It  says  STA  $FFFF,Y,  but  that  instruction  never  really 
happens.  The  first  part  of  the  program  takes  the  address  of  the 
hi-res  screen  (8192,  in  this  example)  and  stores  it  low  byte 
first,  just  after  the  STA  instruction. 

The  routine  works  by  modifying  itself,  changing  the  ad- 
dress after  the  STA  a  total  of  32  times. 

Routine 

CO00     AD  If     CO    CLRHRS 


COM 

SD 

13 

CO 

C006 

AD 

IE 

CO 

C009 

8D 

12 

CO 

COOC 

A9 

no 

COOE 

AS 

C00F 

A2 

20 

C011 

99 

FF 

FF 

C014 

C8 

C015 

DO 

FA 

LOOP 


LDA 

HRSCRN+1 

;  store  hi-res  screen  location  in  dummy 
;  location— SUM 

STA 

LOOP +2 

LDA 

HRSCRN 

STA 

LOOP+1 

;  FU1  32  page.  (8K)  with  zeros. 

LDA 

#0 

TAY 

LDX 

#32 

;  32  pages 

STA 

$FFFF,Y 

;  flU  a  block  of  256  bytes  with  zeros 

INY 

BNE 

LOOP 
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C017     EE    13     CO 

C01A    CA 
COIB    DO   F4 


COID    60 
C01E    00     20 


INC       LOOP+2 

DEX 

BNE      LOOP 


HRSCRN 

See  also  CLRFIL,  CLRROM. 


RTS 

WORD8192 


;  page  : ilka  so  increase  high  byte  of 
;  pointer 

;  to  fill  all  pages 

;  Insert  JSR  HRCOLF  here  to  dear  color 

;  memory  as  well. 

;  hi-res  screen 
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Name 

Clear  the  screen  with  a  ROM  routine 

Description 

This  is  one  of  three  routines  in  this  book  that  is  used  for  clear- 
ing the  text  screen.  Each  has  advantages.  This  particular  rou- 
tine uses  a  Kernal  ROM  routine  (labeled  CLRHOM)  located  on 
the  64  at  58692.  An  equivalent  routine  is  at  49474  on  the  128. 

Prototype 

JMP  to  CLRHOM. 
Explanation 

This  short  program  clears  the  text  screen  and  prints  a  Z.  The 
letter  will  print  in  the  current  cursor  color. 

Note:  CLRROM  is  much  faster  than  CLRFIL  and  slightly 
faster  than  CLRCHR.  But,  again,  it  relies  on  a  ROM  routine 
that  may  change  locations  on  a  later  version  of  the  64  or  128. 

Routine 


cooo 
cooo 

CLRHOM 
CHROUT 

58692 
65490 

;  CLRHOM  =  49474  on  the  128 

cooo 

C003 
C005 
C008 

20 
A9 

20 
60 

09 
SA 

D2 

CO 
FF 

JSR 
LDA 
JSR 
RTS 

CLRROM 

»90 
CHROUT 

;  Gear  the  screen  and  print  Z. 
;  dear  the  screen 
;  print  Z 

C0O9 

4C 

44 

E5 

CLRROM 

JMP 

CLRHOM 

;  Clear  the  screen  with  a  Kemal  ROM 
;  routine. 
;  and  RTS 

See  also  CLRCHR,  CLRFIL. 
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Name 

Print  the  value  of  a  two-byte  integer 

Description 

BASIC  offers  a  built-in  ROM  routine  for  printing  the  value  of 
a  two-byte  integer — LINPRT.  We've  shown  how  to  use  this 
routine  in  the  discussion  of  NUMOUT,  elsewhere  in  this  book. 

There  will  be  times,  however,  when  you'll  find  yourself 
working  in  a  programming  environment  where  it's  inconve- 
nient to  access  LINPRT — as  when  you're  in  RAM  under 
BASIC  ROM  on  the  64,  or  in  a  bank  that  doesn't  contain 
BASIC  on  the  128.  At  other  times,  you  may  simply  want  to 
write  a  generic  program  that  runs  on  both  the  128  and  the  64. 

In  either  case,  a  custom  routine  like  CNUMOT  will  give 
you  this  option. 

Prototype 

1.  Prior  to  entering  the  routine,  set  up  a  table  of  two-byte  sub- 
trahends for  each  digit's  place— 1,  10,  100,  1000,  and 
10,000. 

2.  Enter  this  routine  with  the  two-byte  number  to  print  in  .X 
(low  byte)  and  .A  (high  byte). 

3.  Save  the  low  and  high  bytes  of  the  integer  in  zero  page 
locations. 

4.  Count  the  number  of  times  the  subtrahend  representing  the 
largest  digit's  place  (10,000)  can  be  subtracted  from  the 
value  (in  .X  and  .A)  before  a  number  less  than  zero  results. 

5.  Print  this  number  to  the  screen. 

6.  Repeat  steps  4  and  5  for  the  remaining  digit  places — 1000, 
100,  10,  and  1. 

Explanation 

With  CNUMOT,  we  print  the  two-byte  starting  address  of 
BASIC  text. 

Here,  CNUMOT  works  much  like  our  conversion  routine 
for  a  one-byte  integer  (see  BYTASC).  Again,  a  subtraction 
method  is  used,  only  this  time  it  handles  a  second  byte  as 
well.  And  instead  of  passing  a  single  byte  to  the  routine  in  .A 
as  before,  the  low  byte  of  the  two-byte  integer  is  sent  to  the 
routine  in  .X  and  the  high  byte  in  .A. 

Although  it  takes  some  time  to  set  up  the  routine,  the 
basic  idea  is  simple.  First,  subtract  10,000.  Subtract  it  again 
and  again  until  a  negative  number  results.  Now  you  know 
how  many  10,000s  fit  into  the  number.  Next,  subtract  1000  as 
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many  times  as  necessary.  The  third  step  is  to  subtract  100, 
then  10,  then  1.  At  each  stage,  the  program  keeps  track  of 
how  many  times  a  given  value  has  been  subtracted  and  prints 
out  the  total. 

In  this  case,  the  integer  occupying  a  two-byte  address 
must  lie  in  a  range  from  0  through  65535.  The  number  can 
have  as  many  as  five  digits. 

Begin  with  the  highest  digit  for  the  number — here,  the 
10,000's  place.  We  repeatedly  subtract  10,000 — the  first  entry 
in  the  table  of  two-byte  subtrahends,  or  TB2SUB— from  the 
two-byte  number  until  a  negative  result  occurs.  For  each 
subtraction  that  yields  a  positive  value  (>=0),  increment  the 
place-holder  counter — kept  here  in  the  Y  register. 

When  subtraction  finally  produces  a  negative  value,  the 
two-byte  number  itself  is  restored  to  the  value  it  had  before 
this  last  subtraction,  and  the  ASCII  equivalent  of  the  digit  in 
.Y  printed  within  DONE. 

This  entire  process  is  repeated  for  the  next  four  digits  (the 
1000's  place,  the  100's  place,  the  10's  place,  and  the  l's  place). 

A  flag  (ZEROFL)  within  the  printing  routine  prevents 
leading  zeros  from  being  displayed.  Only  when  this  flag  con- 
tains a  nonzero  value  will  the  digit  zero  be  printed.  If  ZEROFL 
is  still  zero  after  all  five  digits  have  been  evaluated,  we  simply 
print  a  zero. 

Note:  There  is  one  important  difference  between  this  rou- 
tine and  BYTASC  when  it  comes  to  understanding  the  two. 
Here,  each  digit  is  printed  after  it  has  been  converted,  whereas 
with  BYTASC,  we  wait  to  print  the  entire  number  after  all 
digits  have  been  converted. 

Routine 


cooo 

CHROUT 

=- 

65490 

cooo 

TXTTAB 

= 

43 

;  TXTTAB  =  45  on  the  128— start-of-BASIC 
:  pointer 

cooo 

ZP 

251 

:  Print  the  start  of  BASIC. 

cooo 

A9 

93 

CLRCHR 

LDA 

#147 

;  clear  the  screen 

C002 

20 

D2 

FF 

JSR 

CHROUT 

:  Print  the  message. 

C005 

A0 

00 

LDY 

#0 

;  print  "BASIC  STARTS  AT  " 

C007 

B9 

n 

CO 

LOC 

LDA 

STRDMG.Y 

C00A 

FD 

07 

BEQ 

POINT 

;  if  zero  byte,  then  don't  print  it 

cooc 

20 

D2 

FF 

JSR 

CHROUT 

C00F 

C8 

INY 

;  next  character 

coio 

4C 

07 

CO 

JMP 

LOOP 

;  and  continue 

C013 

A6 

2B 

POINT 

LDX 

TXTTAB 

;  load  low-  and  high-byte  start-of-BASIC 
;  pointers 

C015 

A5 

2C 

LDA 

TXTTAB+! 

CNUMOT 


C017     4C     1A    CO 


JMP       CNUMOT 


C01A 

86 

FB 

CNUMOT 

STX 

ZP 

C01C 

85 

FC 

STA 

ZP+1 

C01E 

A9 

00 

LDA 

00 

C020 

SD 

82 

CO 

STA 

ZEROFL 

C023 

A2 

08 

LDX 

#8 

C025 

AO 

FF 

INITCT 

LDY 

#25S 

C027 

C8 

SUBTLP 

bjy 

COM 

A5 

FB 

LDA 

ZP 

C02A 

48 

FHA 

C02B 

38 

SEC 

C02C 

FD 

67 

CO 

SBC 

TB2SUB.X 

C02F 

85 

FB 

STA 

ZP 

C031 

AS 

FC 

LDA 

ZP+1 

C033 

48 

PHA 

C034 

FD 

68 

CO 

SBC 

TB2SUB+1,X 

C037 

85 

FC 

STA 

ZP+1 

C039 

90 

05 

BCC 

DONE 

C03B 

68 

PLA 

C03C 

65 

PLA 

C03D 

4C 

27 

CO 

JMP 

SUBTLP 

C040 

68 

DONE 

PLA 

C041 

85 

FC 

STA 

ZP+1 

C043 

68 

PLA 

C044 

65 

FB 

STA 

ZP 

C046 

98 

TYA 

C047 

AC 

82 

CO 

LDY 

ZEROFL 

C04A 

DO 

07 

BNE 

CNVERT 

C04C 

C9 

00 

CMP 

#0 

C04E 

Fn 

08 

BEQ 

ZEROHI 

C050  8D  82  CO  STA  ZEROFL 

C053  09  30  CNVERT      ORA  #48 

C055  20  D2  FF  JSR  CHROUT 

C058  CA  ZEROHI       DEX 


C059 

CA 

DEX 

C05A 

10     C9 

BPL 

INITCT 

;  for  the  next  place 

C05C 

AD  82 

CO 

LDA 

ZEROFL 

;  determine  if  the  number  is  00000 

C05F 

DO    05 

BNE 

EXIT 

;  if  not,  then  return 

C061 

A9    30 

LDA 

#48 

;  print  a  zero 

C063 

20     D2 

FF 

JSR 

CHROUT 

C066 

60 

EXIT 

RTS 

;  we're  finished 

C067     01     00     0A    TB2SUB         .WORD  1,10.100,1000.1 


convert  two-byte  integer  to  ASCII,  print  it. 
and  RTS 

CNUMOT  converts  two-byte  integer  in 

.X  (low)  and  .A  (high  byte)  to  ASCI!  and 

prints  it. 

save  low  and  high  byte  of  integer  to  zero 

P»g« 

initialize  ZEROFL 

index  to  TB2SUB  table,  initially  points  to 
low  byte  of  10000 

initialize  counter  for  each  digit's  place 
begin  subtraction  loop,  counter  starts  with 


save  the  low  byte  of  number 

subtract  low  byte  of  subtrahend  from  low 

byte  of  number 

store  result  in  zero  page 

now  do  the  same  with  high  byte 

save  the  high  byte  of  the  number 

subtract  high  byte  of  subtrahend  from 

high  byte  of  number 

and  store  the  result 

subtraction  gave  number  less  than  zero, 

so  we're  done 

restore  the  stack 

and  continue  subtraction 

Restore  high  and  low  bytes  to  values 

before  we  dropped  below  zero. 

pull  high  byte 

and  store  it 

pull  low  byte  of  number 

and  store  it  also 

put  digit's  place  counter  into  .A 

determine  whether  a  nonzero  digit  has 

occurred 

branch  if  a  nonzero  digit  has  been  printed 

check  for  zero 

don't  print  a  zero  if  no  nonzero  digits 

have  been  printed 

change  the  flag  to  a  nonzero  value 

convert  digit's  place  counter  to  ASCII 

and  print  it 

decrement  twice  for  each  word  in 

subtrahend  table 


C071     42     41     53     STRING 

C081     00 

C082     00  ZEROFL 


0000 
two-byte  (able  of  subtrahends 
.ASC     "BASIC  STARTS  AT  " 
.BYTE    0 
BYTE    0  :  flag  for  first  nonzero  digit 


See  also  BYTASC,  FACPRD,  FACPRT,  NUMOUT. 
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Name 

Convert  a  two-byte  value  to  a  floating-point  number,  using  a 
ROM  routine 

Description 

If  you  find  occasion  to  use  the  built-in  floating-point  routines 
for  trigonometric  and  other  functions,  this  ROM  routine  is 
helpful.  It  converts  a  two-byte  integer  to  its  floating-point 
equivalent. 

Prototype 

1.  JSR  to  GIVAYF  with  the  low  byte  in  .Y  and  the  high  byte 
in  .A. 

2.  The  result  is  returned  in  the  floating-point  accumulator. 

Explanation 

The  GIVAYF  routine  is  located  at  $8391  on  the  64;  $AF03  on 
the  128.  (Be  sure  your  program  is  operating  with  bank  15  in 
place  before  you  call  this  routine  on  the  128.)  The  floating- 
point accumulator  comprises  locations  $61-$66  on  the  64; 
$63-$68  on  the  128. 

Routine 


cooo 

GIVAYF 

SB391 

;  GIVAYF  -  $AF03  on  the  128— ROM 
;  routine  that  converts  into  FP 

cooo 

C002 
C005 

A9 
20 

60 

32 
06 

MAIN 
CO 

LDA 

JSR 

RTS 

#50 
CNVBFP 

;  the  number  50  will  be  converted 
;  convert  it 

C006 
C007 
C009 

A8 
A9 

20 

00 
91 

CNVBFP 

B3 

TAY 
LDA 
JSR 

#0 
GTVAYF 

;  the  low  byte  goes  into  .Y 

;  the  high  byte  into  .A 

;  the  result  is  stored  into  FP  accumulator  at 

;  $61-$66  ($63-$68  on  the  128) 

C00C    60 


RTS 


See  also  B2SNLN,  B2UNLN,  BCD2BY,  CB2BCD,  CFP2I,  CI2FP. 
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Name 

Character  conversion  using  a  lookup  table 

Description 

Most  of  the  routines  in  this  book  that  convert  one  character 
code  to  another  (for  instance,  from  Commodore  ASCII  to 
screen  codes)  rely  on  the  fact  that  ranges  of  characters  fre- 
quently possess  similar  bit  patterns.  In  these  routines,  you 
determine  what  range  the  character  is  in,  usually  by  compari- 
son with  the  low  and  high  limits  of  the  range.  Based  on  the 
result,  certain  bitwise  manipulations  are  carried  out  to  com- 
plete the  conversion. 

This  method  works  on  most  occasions.  However,  if  you're 
faced  with  a  situation  in  which  you  have  to  completely  re- 
arrange the  order  of  the  characters,  and  no  ostensible  bit  pat- 
terns exist,  you'll  have  to  take  another  approach. 

The  CNVERT  routine  routine  addresses  that  problem.  At 
the  same  time,  it  offers  a  method  of  character  conversion  that 
is  much  faster  than  the  others.  And  speed  may  be  a  require- 
ment of  your  conversion  routine,  especially  if  the  routine  is 
incorporated  into  a  terminal  program  where  timing  can  be 
critical. 

CNVERT  itself  is  a  very  simple  routine.  It  accepts  an  in- 
put character  from  the  accumulator  and,  based  on  its  number, 
returns  the  equivalent  code  from  a  lookup  table  at  the  end  of 
your  program.  A  one-to-one  correspondence  exists  between 
the  incoming  and  outgoing  values.  If  the  accumulator  contains 
a  78  coming  into  the  CNVERT  routine,  the  seventy-eighth 
character  value  in  the  table  is  returned  in  .A. 

The  lookup  table  must  be  created  beforehand.  It  can  be 
built  by  the  program  using  a  conversion  routine  (as  is  done 
below)  if  the  table  follows  a  discernible  pattern.  Otherwise,  it 
can  be  set  up  as  a  list  of  .BYTE  statements. 

Prototype 

1.  Transfer  the  incoming  character  value  in  .A  to  .Y. 

2.  Load  the  corresponding  character  value  from  the  table  as 
indexed  by  .Y  and  return. 

Explanation 

The  example  program  first  prepares  a  table  of  equivalent 
screen  codes  for  all  incoming  Commodore  ASCII  characters  in 
the  routine  TABPRE.  This  table  (simply  called  TABLE  here)  is 
prepared  by  putting  each  Commodore  ASCII  value  sequen- 
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tially  through  the  conversion  routine  CASSCR  and  storing  the 
value  returned  into  the  table.  Since  256  characters  are  to  be 
converted,  the  table  itself  is  256  bytes  long.  It's  conveniently 
placed  outside  the  working  code  at  the  end  of  the  program. 

After  the  lookup  table  has  been  created,  the  program  ac- 
cepts character  values  entered  from  the  keyboard.  Each  charac- 
ter you  type  in  is  printed  at  the  beginning  of  the  screen, 
converted  with  CNVERT  to  the  equivalent  screen  code,  and 
POKEd  to  the  screen,  working  back  from  the  end  of  screen 
line  3.  This  continues  until  you  type  RETURN. 

Routine 


cooo 

CHROUT 

_ 

65490 

cooo 

GETIN 

= 

65508 

cooo 

ZP 

= 

251 

cooo 

SCREEN 

= 

1024 

start  of  text  screen 

cooo 

COLRAM 

= 

55296 

start  of  color  RAM 

cooo 

BGCOLO 

— 

53281 

screen  background  color 

cooo 

COLOR 

= 

646 

COLOR  -  241  on  the  128 

cooo 

BLACK 

«= 

0 

cooo 

MDGRAY 

— 

12 

cooo 

PURPLE 

= 

4 

;  Input  Commodore  ASCII  characters. 
;  Convert  to  screen  codes  using  a  table 
,-  and  POKE  resulting  codes  to  the  screen. 
;  Quit  on  RETURN. 


COOO 

MAIN 

- 

• 

cooo 

A9 

93 

CLRCIIR 

LDA 

#147 

;  dear  the  screen 

C002 

20 

D2 

FF 

JSR 

CHROUT 

C005 

A9 

OC 

BCKCOL 

LDA 

#MDGRAY 

;  set  screen  background  color  to  medium  gray 

C007 

8D 

21 

DO 

STA 

BGCOLO 

COOA 

A9 

04 

TXTCOL 

LDA 

wPURPLE 

;  set  text  color  to  purple 

cooc 

8D 

86 

02 

STA 

COLOR 

C0OF 

20 

36 

CO 

JSR 

TABPRE 

;  prepare  conversion  table 

C012 

A2 

78 

LDX 

*120 

;  as  an  offset  for  POKEing  screen  codes 

COW 

CA 

PRTLOP 

DEX 

;  position  screen  pointer  for  next  character 

CO  15 

8E 

8B 

CO 

STX 

TEMPX 

;  save  .X  since  GETIN  corrupts  it 

C018 

20 

E4 

FF 

WAIT 

JSR 

GETIN 

;  get  a  character  to  convert 

C01B 

FO 

FB 

BEQ 

WAIT 

;  if  no  character,  wait 

C01D 

20 

D2 

FF 

JSR 

CHROUT 

;  print  Commodore  ASCII  character  at  start  of 
;  screen 

C020 

C9 

0D 

CMP 

#13 

;  is  it  RETURN? 

C022 

ro 

11 

BEQ 

FINISH 

;  yes,  so  leave 

C024 

20 

4D 

CO 

JSR 

CNVERT 

;  use  table  to  determine  corresponding  screen 

;  code 

;  restore  .X 

C027 

AE 

SB 

CO 

LDX 

TEMPX 

C02A 

9D 

00 

04 

STA 

SCREEN,X 

;  store  screen  code  at  end  of  screen  line  3  and 
;  work  back 

C02D 

A9 

00 

LDA 

BBLACK 

i  set  foreground  color  of  character  to  black 
;  (for  early  64s) 

C02F 

9D 

00 

D8 

STA 

COLRAM.X 

C032 

4C 

14 

CO 

JMP 

PRTLOP 

;  always  continue  printing 

C035 

60 

FIN1SH 

RTS 

;  TABPRE  converts  entire  character  set  from 
;  Commodore  ASCII  to  screen  codes 

C036 

A0 

00 

TABPRE 

LDY 

#0 

;  as  an  index 
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C038 

8C 

SC 

CO 

STY 

TEMPY 

C03B 

AD 

8C 

CO 

TABLOP 

LDA 

TEMPY 

C03E 

20 

52 

CO 

JSR 

CASSCR 

C041 

AC 

8C 

CO 

LDY 

TEMPY 

C044 

99 

3D 

CO 

STA 

TABLE,Y 

C047 

EE 

8C 

CO 

INC 

TEMPY 

C04A 

DO 

EF 

BNE 

TABLOP 

C04C 

60 

RTS 

C04D 

AS 

CNVERT 

TAY 

C04E 

B9 

8D 

CO 

LDA 

TABIE,Y 

C051 

60 

RTS 

C052  C9  FF  CASSCR 

C054  DO  04 

C056  A9  7E 

C0S8  18 

C059  60 

C05A  8D  8A   CO    NEQUTV 

C05D  29  60 

C05F  DO  05 

C061  AD  8A    CO    ERROR 

C064  38 

C065  60 

C066  AD  8A    CO    UPPLOW 

C069  30  06 

C06B  29  60 

C06D  C9  60 

C06F  FO  12 


CMP  #255 

BNE  NEQUTV 

LDA  *126 

CLC 

RTS 

STA  TEMPA 

AND  «%01100000 

BNE  UPPLOW 

LDA  TEMPA 

SEC 

RTS 

LDA  TEMPA 

BM1  REMAIN 

AND  #%01 100000 

CMP  *%01100000 

BEQ  TOPLOW 


C071     OE     8A    CO    REMAIN       ASL       TEMPA 


C074  2A 

C075  2E    8A   CO 

C078  6A 

C079  6E    8A    CO 

C07C  4E    8A    CO 


ROL 

ROL      TEMPA 

ROR 

ROR      TEMPA 

LSR       TEMPA 


in  case  the  conversion  routine  corrupts  .Y. 

counter  for  character  number 

convert  it  to  a  screen  code 

restore  .Y 

store  converted  character  to  a  screen  code 

table 

to  convert  next  Commodore  ASCII  character 

if  we  haven't  done  the  entire  set 

return  to  MAIN 

Convert  a  Commodore  ASCII  value  using 

the  created  lookup  table. 

character  initially  is  In  .A 

look  up  corresponding  screen  code 

return  to  MAIN 

Convert  Commodore  ASCII  in  .A  to  screen 

code  in  .A. 

Upon  returning,  carry  is  clear. 

If  no  corresponding  screen  code  exists,  carry 

is  set  to  indicate  error  and  -A  is  the  same. 

is  it  pi? 

if  not,  check  lor  nonequivalent  codes 

255  becomes  126 

and  we  exit 

preserve  Commodore  ASCII  value  for  later 

checks 

check  (or  nonequivalent  codes  (0-31  and 

128-159) 

if  no,  check  for  upper/lower  hall  of 

character  set 

otherwise,  no  equivalent  code 

Restore  .A 

and  indicate  error. 

restore  .A 

in  lower  half 

First  check  whether  in  range  96-127. 
bit  5  and  6  are  set  if  in  96-127 
if  so,  convert 

Otherwise,  handle  remainder  (32-63,  64-95, 

160-191,  192-223.  224-254). 

Shift  bit  7  to  6  of  TEMPA  (containing  the 

character)  and  set  bit  7  to  0. 

bit  7  of  TEMPA  into  carry 

carry  into  bit  0  of  .A 

bit  6  of  original  TEMPA  goes  into  carry 

bit  0  of  .A  back  into  carry 

carry  into  bit  7 

move  7  to  6  while  setting  7  to  0 
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C07F 
C082 
C083 
C086 
C088 
C089 
C08A 
C08B 
C08C 
C08D 
C18D 


AD  8A 

60 

AD   8A 

29     5F 

18 

60 

00 

00 

00 


CO 

CO    TOPLOW 


TEMPA 
TEMPX 
TEMPY 

TABLE 


LDA 

RT5 

LDA 

AMD 

CLC 

RTS 

,BYTE0 

.BYTEO 

-BVTEO 

•= 


TEMPA 
TEMPA 

«%oionin 


;  restore  .A 

.-  and  return  (the  LSR  cleared  the  carry  (lag) 

;  convert  range  96-127 

;  and  return  with  an  equivalent  code 

;  for  temporary  -A  storage 
;  for  temporary  .X  storage 
;  for  temporary  -Y  storage 
;  screen  code  table 


See  also  CASSCR,  CASTAS,  SCRCAS,  TASCAS,  MIXLOW,  MIXUPP, 
SWITCH. 


COLDST 


Name 

Cold  start 

Description 

When  you  cold  start  the  64  or  128,  the  power-on  reset  routine 
causes  the  computer  to  go  through  certain  initialization  pro- 
cesses, just  as  when  you  first  turn  it  on.  On  the  128,  the  MMU 
configuration  registers  are  restored  to  their  default  settings, 
placing  you  in  bank  15. 

On  both  machines,  the  system  ROMs  are  enabled  (thus, 
you're  returned  to  the  regular  character  set  if  redefined  charac- 
ters are  being  used).  If  an  autostart  cartridge  is  in  place  on  the 
64,  the  cartridge  cold-start  vector  at  32768  is  executed.  Other- 
wise, a  RAM  test  is  performed  on  both  computers,  and  the  16 
page-3  RAM  vectors  are  restored.  These  include  the  interrupt 
vectors  as  well  as  a  number  of  important  Kernal  I/O  vectors. 
The  computer  also  initializes  the  VIC-II  chip  (thereby  restoring 
the  default  screen)  and  exits  into  the  main  BASIC  loop,  clear- 
ing the  screen  and  printing  the  power-on  message  about 
BASIC  and  the  number  of  bytes  available. 

In  the  process,  the  pointers  to  the  BASIC  program  text  are 
set  to  their  default  values.  In  effect,  a  BASIC  NEW  has  been 
performed. 

As  you  can  see,  then,  performing  a  cold  start  has  a  dra- 
matic effect  on  the  computer.  But,  it's  also  ideal  if  you  want  to 
return  the  computer  to  its  default  condition  when  you  exit 
your  ML  program. 

Prototype 

Jump  to  the  power-on  reset  routine. 

Explanation 

The  example  program  causes  a  cold  start  when  the  left-arrow 
key  (in  the  upper  left  corner  of  the  keyboard)  is  pressed. 

COLDST  itself  is  simple.  It  jumps  to  the  cold-start  routine 
in  your  computer.  On  the  64,  this  routine  starts  at  64738;  on 
the  128,  it's  located  at  65341. 
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Routine 

cooo 
cooo 


GETIN 
RESET 


COOO  20  £4     FF     LOOP 

C003  F0  FB 

C0O5  C9  5F 

C007  DO  F7 

C009  4C  OC    CO 


65508 
64738 


JSR  GETIN 

BEQ  LOOP 

CMP  #95 

BNE  LOOP 

IMP  COLDST 


C0OC    4C    E2     FC    COLDST       JMP       RESET 

See  also  WARMST. 


I  RESET  =■  65341  on  the  128 

;  Perform  a  machine  cold  start  with 

;  left-arrow 

;key. 

;  get  a  character 

;  if  no  input 

;  is  it  left-arrow  character? 

;  if  not,  get  another  key 

;  execute  cold  start 

;  COLDST  resets  the  computer. 
;  cold  start  the  computer 
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Name 

Fill  text  screen  color  memory 

Description 

If  you  print  characters  to  the  screen,  they  will  appear  in  the 
current  cursor  color.  But  if  you  store  them  to  screen  memory, 
characters  will  appear  in  the  color  currently  in  the  correspond- 
ing color  RAM  position.  With  COLFIL,  you  can  unify  the 
overall  text  screen  color  by  filling  color  RAM  with  one  of  the 
16  colors. 

The  table  gives  the  color  values  available  on  the  64  and 
128  (40-column  screen)  and  the  colors  they  represent. 


Color  Values 

Color 

Color 

Number 

Color 

Number 

Color 

0 

Black 

8 

Orange 

1 

White 

9 

Brown 

2 

Red 

10 

Light  red 

3 

Cyan 

11 

Dark  gray 

4 

Purple 

12 

Medium  gray 

5 

Green 

13 

Light  green 

6 

Blue 

14 

Light  blue 

7 

Yellow 

15 

Light  gray 

Prototype 

1.  Enter  this  routine  with  the  designated  color  value  in  .A. 

2.  Within  a  loop,  fill  all  1000  bytes  of  color  RAM. 

Explanation 

The  example  program  fills  text  screen  color  memory  with  pur- 
ple, assigned  as  COLVAL. 

Note:  Another  method  of  filling  color  memory,  which  re- 
quires less  code,  may  be  useful  to  you,  depending  on  the  ver- 
sion of  ROM  in  your  64.  Clearing  the  screen  with  CHR$(147) 
(see  CLRCHR  and  CLRROM)  affects  screen  color  memory 
differently  on  different  64s.  The  earliest  version  of  ROM  (ver- 
sion 1)  always  fills  color  memory  with  white  when  the  screen 
is  cleared.  With  version  2,  color  memory  is  filled  with  the 
background  color  of  the  screen  prior  to  the  clear.  So,  to  fill 
color  memory  with  a  particular  color,  you  would  simply  store 
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your  color  value  in  the  background  color  register  at  53281  and 
clear  the  screen  by  printing  CHR$(147).  Then  you  would 
change  the  background  to  the  color  you  prefer. 

The  most  recent  version  of  64  ROM  (version  3),  and  also 
128  ROM,  causes  color  memory  to  fill  with  the  current  cursor 
color  when  the  screen  is  cleared.  In  this  case,  to  fill  color 
memory  with  a  particular  color,  you  would  store  the  appro- 
priate color  value  in  the  foreground  text  color  register  at  646 
(241  on  the  128)  and  clear  the  screen  as  before. 

Routine 


cooo 


COLRAM 


COOO     AD  18     CO 
C003     4C    06     CO 


55296 


LDA     COLVAL 
IMP       COLFIL 


C006 
C008 
C009 
COOC 
C0OF 

con 

COIS 
C017 


AO 
88 
99 
99 
99 
99 
DO 
60 


FA 


D8 
D8 
D9 
DA 


COLFIL 
LOOP 


LDY 
DEY 
STA 
STA 
STA 
STA 
BNE 
RTS 


#250 


text  screen  color  RAM  location 

Fill  color  RAM  with  purple. 

get  a  color 

fill  color  RAM  and  RTS 

Fill  text  screen  color  RAM  with  color  value 
in  A. 


COLRAM.  Y  ;  l*t  quarter 
COLRAM+250.Y ;  2nd  quarter 
COLRAM+S00,Y ;  3rd  quarter 
COLRAM +750,Y  ;  4th  quarter 
LOOP  ;  ill  250  bytei? 


C018     04  COLVAL        .BYTE    4  'color purple 

See  also  BCKCOL,  BORCOL,  TXTCCH,  TXTCOL. 
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Name 

Concatenate  two  files 

Description 

At  times  you  may  want  to  append  the  contents  of  one  file  to 
the  end  of  a  second  file.  That's  what  this  routine  does.  Both  of 
the  original  files  remain  unchanged;  the  new  (third)  file  will 
contain  a  combination  of  the  two  original  files. 

Prototype 

1.  Open  the  disk  command  channel  (Kemal  SETLFS, 
SETNAM,  OPEN). 

2.  Send  the  copy  command  as  part  of  the  SETNAM  routine. 

3.  Close  the  command  channel. 

Explanation 

This  routine  is  basically  the  same  as  the  COPYFL  routine; 
however,  instead  of  copying  one  file  to  another,  you  copy  two 
files  into  a  new  file. 

The  filenames  in  the  example  are  ABC  and  DEF,  which 
are  contained  in  the  string  that  starts  at  $C01E.  Note  that 
they're  separated  by  commas.  What  happens  is  that  ABC  is 
copied  to  a  new  file,  followed  by  DEF.  The  result  is  a  new, 
concatenated  file  called  NEWFILE  on  disk. 

Note:  CONCAT  will  combine  two  sequential  (SEQ)  files 
just  fine.  If  you  try  to  concatenate  two  program  (PEG)  files, 
and  then  load  the  resulting  program,  only  the  first  program 
will  list.  At  the  end  of  a  program  in  memory  are  three  zeros. 
When  the  LIST  command  finds  the  zeros,  it  stops.  The  second 
program  is  there,  but  it's  just  beyond  the  zeros  and  can't  be 
accessed  unless  you  go  in  and  remove  the  final  two  zeros  (and 
move  the  second  part  of  the  program  down  by  two  bytes). 

Routine 


cooo 

SETLFS 

— 

$FFBA 

cooo 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

■» 

$FFC0 

cooo 

CLOSE 

= 

SFFC3 

cooo 

CLRCHN 

™ 

$FFCC 

cooo 

A9 

Oi 

CONCAT 

LDA 

#1 

logical  file  (1) 

C002 

A2 

(18 

LDX 

#8 

disk  drive  is  device  8 

C004 

AO 

OF 

LDY 

#15 

command  channel  15 

C006 

20 

BA    FF 

JSR 

SETLFS 

prepare  to  open  it 

C009 

A9 

17 

LDA 

#BUFLEN 

length  of  buffer 

C00B 

A2 

IE 

LDX 

#<BUFFER 

X  and  Y  hold  the 

193 


CONCAT 


COQD 

AO 

CO 

LDY 

#>BUFFE 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

C012 

20 

CO 

FF 

JSR 

OPEN 

C015 

A9 

01 

LDA 

#1 

C017 

20 

o 

FF 

JSR 

CLOSE 

C01A 

20 

cc 

FF 

JSR 

CLRCHN 

C01D 

60 

RTS 

C01E     43     30     3A    BUFFER         .ASC 

C034    OD 
C035 


j  address  of  the  buffer 

;  set  name 

:  open  It 

;  and  Immediately 

;  close  the  command  channel 

;  dear  the  channels 

;  all  done 


i  Data  area 
"C0:NEWFII_E«0:ABC,0;DEF" 

;  substitute  your  own  filenames 
BYTE    13  ■  RETURN  character 

BUFLEN        =  •  -  BUFFER 


See  also  COPYFL,  FORMAT,  INITLZ,  RENAME,  SCRTCH,  VALIDT. 
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Name 

Copy  a  file  to  the  same  disk 

Description 

The  DOS  Copy  command  is  really  intended  for  making  back- 
ups with  a  dual  drive,  but  Commodore  hasn't  manufactured  a 
dual  drive  for  several  years.  Thus,  the  copy  command  is  useful 
only  for  copying  a  file  (under  a  different  name)  to  the  disk  it 
already  occupies. 

Prototype 

1.  Open  channel  15  (Kernal  routines  SETLFS,  SETNAM, 
OPEN). 

2.  As  part  of  the  name,  include  the  copy  command. 

3.  Close  the  command  channel. 

Explanation 

The  key  to  this  routine  is  the  string  at  the  end  of  the  program, 
"C0:NEWFILE=0:OLDFILE",  which  tells  the  disk  drive  to 
copy  the  program  OLDFILE  on  drive  0  to  the  file  named 
NEWFILE  on  the  same  drive. 

The  SETLFS  routine  sets  up  logical  file  1,  drive  8,  channel 
15.  Then  SETNAM  sets  the  length  and  address  of  the  com- 
mand and  we  OPEN.  Then,  the  job  finished,  we  close  the 
channel. 

In  actual  practice,  you  may  want  to  set  up  a  separate 
buffer  for  the  copy  command  and  write  different  parameters  to 
the  data  area.  After  all,  it's  fairly  rare  that  you'll  always  be 
copying  files  called  OLDFILE  to  a  new  name  called  NEWFILE. 

Note:  If  you  own  additional  disk  drives,  you  may  want  to 
change  the  drive  number  at  $C002-$C003  to  9,  10,  or  11. 
Also,  if  you  own  a  dual  drive,  you  may  change  one  or  both  of 
the  zeros  in  the  ASCII  string  to  ones. 

Routine 


cooo 

SETLFS 

— 

$FFBA 

cooo 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

= 

$FFC0 

cooo 

CLOSE 

= 

$FFC3 

cooo 

CLRCHN 

B 

$FFCC 

cooo 

A9 

01 

COPYFL 

LDA 

#1 

•  logical  file  ill 

C002 

,\2 

09 

LDX 

#8 

;  disk  drive  is  device  8 

C004 

A0 

OF 

LDY 

#15 

;  command  channel  15 

C006 

20 

BA    FF 

JSR 

SETLFS 

;  prepare  to  open  il 

C009 

A9 

15 

LDA 

#BUFLEN 

;  length  of  buffer 

C00B 

A2 

IE 

LDX 

#<BOFFER 

;  .X  and  .Y  hold  the 

C00D 

A0 

CO 

LDY 

#>BUFFEK 

;  address  of  the  buffer 
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COOF 

JO 

BD 

rF 

JSR 

SETNAM 

;  set  name 

C012 

20 

CO 

FF 

JSR 

OPEN 

;  open  it 

C015 

A9 

01 

LDA 

#1 

;  and  immediately 

C017 

20 

C3 

FF 

JSR 

CLOSE 

;  close  the  command  channel 

COLA 

20 

CC 

FF 

JSR 

CLRCHN 

;  clear  the  channels 

C01D 

60 

RTS 

;  all  done 

;  Data  area 

COIE 

43 

30 

3A 

BUFFER 

.ASC 

•'CO:NEWFILE- 

=0:OLDF1LE" 
:  substitute  your  own  filenames 

C032 

OD 

.BYTE 

13 

i  RETURN  character 

C033 

BUFLEN 

= 

'-  BUFFER 

See  also  CONCAT,  FORMAT,  LNITLZ,  RENAME,  SCRTCH,  VALIDT. 
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Name 

Custom  characters  for  the  80-column  screen 

Description 

Using  the  routine  that  writes  to  the  128's  80-column  chip, 
CUST80  redefines  one  character.  This  routine  can  easily  be  ex- 
panded to  create  an  entirely  new  character  set. 

Prototype 

1.  Set  up  registers  18  and  19  of  the  VDC  chip  to  point  to  the 
address  of  the  letter  A  (uppercase/graphics  mode). 

2.  Send  eight  bytes  to  register  31  to  create  the  new  character. 

Explanation 

The  key  to  accessing  the  80-column  VDC  chip  is  writing  to 
locations  $D600  and  $D601,  the  gateway  bytes  (see  RE80CO 
and  WR80CO  for  more  about  the  gateway  bytes).  The 
STRVDC  routine  at  $0C26  below  handles  this  task.  First,  the 
VDC  register  to  be  POKEd  is  stored  in  $D600.  Next,  we  need 
to  wait  for  bit  7  of  $D600  to  turn  on.  At  that  point,  $D601  can 
be  PEEKed  or  POKEd. 

The  VDC's  uppercase/graphics  character  set  starts  at  loca- 
tion $2000  within  the  VDC's  private  16K  of  memory.  The 
shape  for  the  letter  A  is  found  at  $2010.  So,  to  change  that 
shape,  the  routine  must  set  up  the  address  $2010  in  registers 
18  and  19.  Note  that,  unlike  most  other  addresses  in  the  128, 
in  this  case  the  high  byte  is  stored  ahead  of  the  low  byte. 
(This  could  be  called  a  quirk  of  the  VDC.)  STRVDC  is  called 
twice — once  to  store  a  $20  into  register  18,  and  once  to  store  a 
$10  into  19. 

When  the  POKE  address  has  been  established,  the  values 
to  be  sent  there  are  stored  in  VDC  register  31.  The  80-column 
chip  automatically  increments  the  address,  so  it's  not  nec- 
essary to  keep  writing  to  registers  18  and  19.  The  character 
shape  in  the  source  code  is  stored  in  binary  form,  so  the  actual 
appearance  can  be  seen.  The  letter  A  is  replaced  by  a  small  z 
inside  a  box. 

The  character  sets  are  stored  in  a  rather  unusual  fashion. 
The  first  eight  bytes  ($2000-$2007)  are  the  @  character.  The 
next  eight  bytes  are  unused.  The  next  eight  ($2010-$2017)  are 
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the  letter  A,  followed  by  eight  more  unused  bytes.  This  pattern 
continues.  If  you're  planning  to  store  several  consecutive  cus- 
tom characters,  remember  to  skip  eight  bytes  between  shapes. 

Note:  Both  character  sets  can  be  displayed  at  the  same 
time.  Attribute  memory  determines  which  set  is  used.  (See 
VDCCOL  for  more  information  about  attribute  memory.)  The 
second  half  of  each  character  set  contains  the  reversed  ver- 
sions of  the  first  128  characters.  These  characters  are  what  you 
see  when  you  turn  reverse  mode  on.  Now,  attribute  memory 
can  be  changed  to  display  a  normal  or  a  reverse  character 
(again,  see  VDCCOL),  which  means  that  the  reverse  character 
shapes  in  the  character  set  are  redundant.  It  is  actually  pos- 
sible to  have  four  character  sets  in  memory  at  the  same  time,  a 
total  of  512  characters.  To  reverse  any  of  them,  write  to  attri- 
bute memory  (which  gives  you  512  more,  reversed  characters). 


Routine 

ocoo 
ocoo 


VDCADR 

VDCDAT 

VRMLO 

VRMHI 

VRDAT 

MEM4A 

CUST80 


OCOO 

OCOO  A9  20 

0C02  A2  12 

OCM  20  26     OC 

0C07  A9  10 

0C09  A2  13 

OCOB  20  26     OC 


OCOE  AO  00 

000  B9  IE     OC    LOOP 

0C13  A2  IF 

0C15  20  26     0C 

0C18  C8 

0C19  CO  08 

0C1B  DO  F3 

0C1D  60 


0C1E 

0C1E  FF 

0C1F  81 

OC20  B5 

0C21  89 

0C22  91 

0C23  AD 

0C24  81 

0C25  FF 


CHAR 


LDA 

LDX 

JSR 

LDA 

LDX 

JSR 

LDY 

LDA 

LDX 

JSR 

INY 

CPY 

BNE 

RTS 


$D600 

$D601 

19 

18 

31 

$2010 

#>MEM4A 

#VRMHI 

STRVDC 

#<MEM4A 

#VRMLO 

STRVDC 

#0 

CHAR,Y 
#VRDAT 
STRVDC 

#8 
LOOP 


.BYTE 
BYTE 
.BYTE 
.BYTE 
BYTE 
.BYTE 
.BYTE 
.BYTE 


%nnnii 

%10000001 
%10110101 
%10001001 
%10010001 
%10I01101 
%1000000! 

%mimi 


note  the  high  byte  is  first,  not  second 

(internal  memory  for  the  VDC) 

high  byte  of  character  memory 

register  18 

set  up  the  register 

low  byte 

register  19 

and  store  the  value 


;  register  31 

■  store  it 

:  we  have  to  move  forward 


;  done 
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0C26 

STRVDC 

- 

• 

0C26 

8E 

00 

D6 

STX 

VDCADR 

;  store  .X  in  the  address  gate 

0C29 

AE 

00 

D6 

WAITAD 

LDX 

VDO\DK 

;  and  wait 

0C2C 

10 

FB 

BPL 

WAITAD 

;  for  bit  7  to  click 

0C2E 

8D 

01 

D6 

STA 

VDCDAT 

;  store  the  data 

0C31 

60 

RTS 

;  and  quit 

See  also  ANIMAT,  CHRDEF,  RE80CO,  VDCCOL,  WR80CO. 
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Name 

Create  DATA  statements  from  numbers  in  memory 

Description 

If  you  have  a  short  ML  program — or  sprites,  custom  charac- 
ters, or  other  chunk  of  memory — you  wish  to  add  to  a  BASIC 
program,  this  program  will  convert  the  values  in  memory  to  a 
series  of  DATA  statements  that  are  tacked  onto  the  end  of  the 
program  currently  in  memory. 

Prototype 

1.  Enter  with  the  starting  address  in  DFIRST  and  the  ending 
address  (plus  one)  in  DLAST. 

2.  Subtract  2  from  the  pointer  to  the  end  of  BASIC  text  and 
store  this  pointer  in  zero-page. 

3.  Begin  a  BASIC  line  by  storing  two  bogus  nonzero  line  links, 
which  will  be  fixed  later. 

4.  Next,  store  a  two-byte  line  number  (data  from  memory 
location  49152  will  be  put  in  line  49152,  for  example)  and 
the  BASIC  token  that  represents  the  keyword  DATA. 

5.  Loop  six  times,  reading  a  byte  from  memory  and  converting 
it  to  ASCII  characters. 

6.  If  the  loop  isn't  finished,  add  a  comma  between  numbers. 

7.  After  each  line,  store  a  zero-byte  and  go  back  to  step  3. 

8.  When  the  last  byte  is  converted,  call  the  ROM  routine 
LINKPRG  to  fix  the  line  links. 

Explanation 

Before  you  SYS  or  JSR  to  this  routine,  store  the  beginning  ad- 
dress in  DFIRST  and  the  ending  address  (plus  one)  in  DLAST. 
For  example,  to  create  DATA  statements  for  the  range  8192- 
16191,  you  would  put  an  8192  in  DFIRST,  but  a  16192  (one 
byte  past  16191)  in  DLAST. 

BASIC  program  lines  have  an  overhead  of  five  bytes,  four 
at  the  beginning  and  one  at  the  end.  The  first  two  are  the  line 
link,  which  points  to  the  line  link  of  the  next  BASIC  line  (the 
final  link  is  two  zeros,  which  mark  the  end  of  the  program). 
After  the  link  comes  the  line  number,  low-byte  first.  At  the 
end  of  each  line  you'll  find  a  zero  byte. 

To  manufacture  DATA  statements,  we  put  two  nonzero 
numbers  into  the  line-link  area,  and  then  a  line  number.  The 
example  program  numbers  the  lines  according  to  where  in 
memory  they're  stored.  So  line  16394  would  mark  the  begin- 
ning of  the  bytes  that  go  into  memory  at  16394.  After  the  line 
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link  and  the  line  number,  an  $83  is  stored.  This  is  the  BASIC 
token  for  DATA. 

The  values  from  memory  are  changed  to  ASCII  in  the 
subroutine  called  ASCII.  The  number  153  would  be  converted 
to  the  three  characters  1,  5,  and  3.  It's  similar  to  the  BYTASC 
routine  elsewhere  in  this  book.  Between  the  numbers,  commas 
are  stored. 


Routine 


cooo 

ZP 

m 

SFB 

cooo 

VARTAB 

i= 

45 

;  replace  with  TXTTOP  =  4624  for  the  128 

cooo 

L1NKPRG 

— 

SA533 

:  LINKPRC  =  S4F4F  on  128 

cooo 

AD  E7 

CO 

DATAMK 

IDA 

DFIRST 

;  tow  byte  of  beginning  of  memory  to 

;  convert 

C003 

SD 

27 

CO 

STA 

POINTR 

;  into  POINTR  below 

C006 

AD 

ES 

CO 

LDA 

DFIRST+1 

;  high  byte 

C009 

8D 

28 

CD 

STA 

POINTR+1 

;  also 

cooc 

AS 

2D 

LDA 

VARTAB 

;  get  the  end-of-BASIC  pointer  (substitute 
;  TXTTOP  for  the  128) 

CO0E 

38 

SEC 

COOF 

F9 

02 

SBC 

#2 

;  subtract  2 

con 

85 

FB 

STA 

ZP 

;  save  it  In  ZP 

con 

A5 

2E 

LDA 

VARTAB+I 

;  high  byte  (substitute  TXTTOP +1  for  the 
;  128) 

C015 

E9 

00 

SBC 

#0 

;  subtract  zero,  to  account  for  page 
;  boundaries 

C017 

85 

FC 

STA 

ZP+1 

C019 

20 

7B 

CO 

NEWLIN 

JSR 

BOGUS 

;  set  up  a  false  line  link 

C01C 

20 

86 

CO 

JSR 

LINNUM 

;  create  the  line  number  and  data  token 

COIF 

A9 

06 

LDA 

#6 

;  number  of  data  numbers  per  line 

C021 

8D 

EB 

CO 

STA 

NUMDAT 

;  save  it 

C024 

AO 

00 

MORELN 

LDY 

#0 

C026 

B9 

FF 

FF 

LOADR 

LDA 

JFFFF.Y 

;  this  will  be  fixed 

C029 

POINTR 

•> 

LOADR+1 

;  self-modifying  code 

C029 

20 

9C 

CO 

JSR 

ASCII 

;  make  into  ASCII  numbers  and  store  in 
;  memory 

C02C 

EE 

37 

CO 

INC 

POINTR 

1  add  one  to  POINTR 

C02F 

DO 

03 

BNE 

NOHI 

C031 

EE 

28 

CO 

INC 

POINTR+1 

COM 

AD 

28 

CO 

NOHI 

LDA 

POINTR+1 

;  see  if  we're  done 

C037 

CD 

EA 

CO 

CMP 

DLAST+1 

;  does  It  equal  the  last  byte? 

C03A 

F0 

11 

BEQ 

LOOKLO 

;  maybe,  look  at  the  low  byte 

C03C 

CE 

EB 

CO 

ANDER 

DEC 

NUMDAT 

;  count  down  (six  numbers  per  line) 

C03F 

FO 

2F 

BEQ 

ENDLIN 

;  fix  the  end  of  the  line 

C041 

A9 

2C 

LDA 

#44 

;  else  insert  a  comma 

C043 

AO 

00 

LDY 

#0 

C04S 

91 

FB 

STA 

(ZP),Y 

;  store  in  memory 

C047 

20 

E0 

CO 

JSR 

PLUSZP 

;  add  to  ZP 

C04A 

4C 

24 

CO 

JMP 

MORELN 

;  go  back  for  another  byte  from  memory 

C04D 

AD  27 

CO 

LOOKLO 

LDA 

POINTR 

;  check  the  low  byte 

C050 

CD 

E9 

CO 

CMP 

DLAST 

1  against  DLAST 

CO  53 

DO 

E7 

BNE 

ANDER 

;  not  equal,  do  more 

;  Clean  up  the  end  of  the  program. 

C055 

A9 

00 

LDA 

#0 

C057 

AO 

02 

LDY 

#2 

C059 

91 

FB 

CLNLP 

STA 

(ZP),Y 

;  put  three  zeros  at  the  end  of  the  prograc 

C05B 

88 

DEY 

C05C 

10 

FB 

BPL 

CLNLP 
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C05E     20     DD  CO 

JSR 

PL2ZP 

;  double  INC  ZP 

C061      20     EO 

CO 

JSR 

PLUSZP 

:  one  more  time 

C064      A5    FB 

LDA 

ZP 

;  set  end-of-prograxn  pointer 

C066     85     2D 

STA 

VARTAB 

;  (substitute  TXTTOP  for  the  128) 

C068      A5    FC 

LDA 

ZP+1 

C06A    85     2E 

STA 

VARTAB+1 

;  (substitute  TXTTOP  for  the  128) 

C06C    20     33 

As 

JSR 

LINKPRG 

;  relink  the  lines 

C06F     60 

RTS 

;  thafs  it 

C070     A9    00 

ENDL1N 

LDA 

#0 

;  put  a  zero 

C072      A8 

TAY 

:  at  the  end  of  the  line 

C073     91     FB 

STA 

(ZP),Y 

;  store  it 

C075     20     EO 

CO 

JSR 

PLUSZP 

;  move  ZP  up  one 

C078     4C    19 

CO 

JMP 

NEWLIN 

C07B     A9    01 

BOGUS 

LDA 

#1 

,-  put  ones  in  the  line  links,  to  be  fixed 
; later 

C07D    A8 

TAY 

C07E     91      FB 

BOGLP 

STA 

<ZP),Y 

C080     88 

DEY 

C081     10     FB 

BPL 

BOGLP 

C083     4C    DD  CO 

JMP 

PL2ZP 

;  double  INC  the  ZP  pointer 

C086     AO    01 

UNNUM 

LDY 

#] 

;  copy  the  memory  address  to  the  line 
;  number 

C088     B9    27 

CO 

L1NLP 

LDA 

POINTR,Y 

C08B     91      FB 

STA 

(ZPI.Y 

C08D    88 

DEY 

COSE    10     F8 

BPL 

UNLP 

C090     20     DD  CO 

JSR 

PL2ZP 

C093     AO   00 

LDY 

#0 

C095     A9    83 

LDA 

#$83 

;  token  for  the  data  command 

C097     91      FB 

STA 

<ZP),Y 

C099     4C    EO 

CO 

JMP 

PLUSZP 

C09C    AA 

ASCII 

TAX 

;  save  in  .X 

C09D    C9    64 

CMP 

#100 

;  is  it  smaller  than  1007 

C09F     BO    06 

BCS 

HAGHUN 

;  no,  do  a  hundreds  place 

C0A1    C9    OA 

CMP 

#10 

;  less  than  100;  is  it  less  than  10? 

C0A3    BO    14 

BCS 

TENS 

;  no,  so  It  has  a  tens  place 

C0A5    90     23 

BCC 

ONES 

,-  It  is  less  than  10;  go  to  ONES 

C0A7    AO    31 

HAGHUN 

LDY 

#49 

;  put  an  ASCD  1  in  -Y 

C0A9    20     Dl 

CO 

JSR 

M1N10O 

;  subtract  100 

COAC   C9    64 

CMP 

#100 

;  is  it  still  higher  than  100? 

COAE   90     04 

BCC 

STORHN 

;  no,  continue 

COBO     C8 

INY 

;  yes 

C0B1     20     Dl 

CO 

JSR 

MDX100 

;  so  subtract  again 

C0B4     AA 

STORHN 

TAX 

;  save  in  .X 

COBS    98 

TYA 

1 

;  put  an  ASCII  1  or  2  into  .A 

C0B6     20     D5 

CO 

JSR 

FUTMEM 

C0B9     8A 

TENS 

TXA 

;  get  the  number  back 

COBA    AO    30 

LDY 

#48 

COBC    C9    OA 

COM10 

CMP 

#10 

;  compare  -A  to  10 

COBE    90     05 

BCC 

HAGTEN 

;  get  ready  to  leave 

COCO    E9    OA 

SBC 

#10 

;  subtract  10 

C0C2    C8 

INY 

;  .Y  increases 

C0C3     DO    F7 

BNE 

COM10 

;  branch  always 

C0C5    AA 

HAGTEN 

TAX 

C0C6    98 

TYA 

C0C7    20     D5 

CO 

JSR 

PUTMEM 

COCA  8A 

ONES 

TXA 

t 

COCB    09     30 

ORA 

#48 
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coco 

CODO 

20 
60 

D5 

CO 

'rts 

PUTMEM 

C0D1 
C0D2 
C0D4 

38 

E9 

60 

64 

MIN100 

SEC 
SBC 
RTS 

#100 

i 

C0D5 
C0D7 
COD9 
CODC 

AO 

91 
20 
60 

oo 

FB 
EO 

CO 

PUTMEM 

LDY 
STA 
JSR 
RTS 

#0 

(ZP),Y 

PLUSZP 

i 

;  and  store  it 

CODD 

COEO 

C0E2 

C0E4 

C0E6 

20 
E6 

DO 
E6 

60 

EO 
FB 

02 
FC 

CO 

PL2ZP 
PLUSZP 

FINZP 

|SR 

INC 

BNE 

INC 

RTS 

PLUSZP 
ZP 

FINZP 
ZP+1 

; 

;  INC  ZP  by  one 

;  if  not  equaL  end 

;  else,  add  one  to  high  byte 

COE7 
C0E9 
COEB 

00 

OA 

on 

CO 
CO 

DFIRST 

DLAST 
NUMDAT 

.WORDSCOOO 
.WORDSCOOA 
.BYTE    0 

: 

See  also  RENUM1. 
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Name 

Check  the  disk  status  and  print  a  message 
Description 

DERRCK  reads  the  disk  drive's  error  channel  and  looks  for 
certain  common  problems.  For  example,  if  you  try  to  write  to 
a  disk  that  has  a  write-protect  tab,  an  error  26  will  result. 
When  an  error  26  is  discovered,  DERRCK  prints  a  message 
that  says  Please  remove  write-protect  tab. 

Prototype 

1.  In  preparation  for  DERRCK,  open  the  command  channel 
(15,8,15). 

2.  Within  DERRCK,  first  print  the  message  DISK  STATUS:. 

3.  Read  the  error  channel  (using  the  Kernal  routines  CHKIN 
and  CHRTN)  and  print  the  characters  received. 

4.  Convert  the  error  number  to  a  binary  coded  decimal  (BCD) 
number  as  it's  received. 

5.  Search  through  a  table  of  specific  errors. 

6.  If  the  error  number  matches  a  number  in  the  table,  print  a 
message  that  provides  more  information. 

Explanation 

The  example  routine  attempts  to  open  a  file  that  doesn't  exist 
on  the  disk.  The  DERRCK  routine  then  reads  the  error  chan- 
nel and  prints  the  message  Filename  doesn't  exist  on  disk,  try 
again. 

The  Kernal  routines  SETLFS,  SETNAM,  and  OPEN 
should  be  called  early  in  the  program.  DERRCK  performs  a 
Kernal  CHKIN  to  cause  input  to  come  from  channel  15  instead 
of  the  keyboard.  The  PRINTS  subroutine  is  a  general  string- 
printing  routine.  The  first  thing  it  prints  is  the  DISK  STATUS: 
line.  Next,  the  error  channel  is  read  and  printed.  The  error 
number  comes  in  as  two  ASCII  numbers;  error  73  would  ap- 
pear as  two  characters  ($37  and  $33).  The  ASCII  numbers  are 
combined  into  one  byte  ($73,  in  this  case)  to  make  looking  up 
the  error  a  little  easier. 

Several  error  numbers  can  be  ignored  (0-20,  50,  and  73). 
Others  are  fairly  common  (26,  33,  74,  and  62).  When  one  of 
the  four  common  errors  is  encountered,  a  longer  message  is 
printed,  again  via  PRINTS. 
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DERRCK 


cooo 

ZP 

= 

SFB 

SETLFS 
SETNAM 
OPEN 
CHKIN 

- 

SFFBA 
SFFBD 
SFFCO 
SFFC6 

cooo 

CLOSE 

= 

SFFC3 

cooo 

CHRIN 

= 

$FFCF 

cooo 

CHROUT 

= 

$FFD2 

cooo 

READST 

= 

$FFB7 

cooo 

CLRCHN 

■■ 

SFFCC 

cooo 

A9    OF 

IDA 

#15 

;  logical  file 

C002 

A8 

TAY 

;  secondary  address  (command  channel) 

coos 

A2   08 

LDX 

#8 

;  device  number 

C005 

20     BA 

FF 

JSR 

SETLFS 

;  get  the  channel  ready 

C008 

A9    00 

LDA 

•0 

;  no  filename 

COOA 

20     BD 

FF 

|SR 

SETNAM 

;  set  the  name 

COOD 

20     CO 

FF 

J5R 

OPEN 

;  and  open  it 

C01O 

A9    02 

LDA 

*2 

;  logical  file 

C012 

A8 

TAY 

;  the  secondary  address 

CO  13 

A2    08 

LDX 

#8 

;  a  disk  file 

C015 

20     BA 

FF 

JSR 

SETLFS 

C018 

A9    OE 

LDA 

#LEN 

:  the  length  of  the  fake  filename 

COIA 

A2    AB 

LDX 

#<FAKE 

COIC 

AO    CO 

LDY 

»>FAKE 

:  address  of  fake 

COIE 

20     BD 

FF 

JSR 

SETNAM 

;  this  is  not  a  file 

C021 

20     CO 

EF 

JSR 

OPEN 

:  open  it  (error  now) 

C024 

20     32 

CO 

JSR 

DERRCK 

;  check  the  status 

C027 

A9    02 

LDA 

#2 

C029 

20     C3 

FF 

JSR 

CLOSE 

;  dose  channel  2 

C02C 

A9    OF 

LDA 

«15 

C02E 

20     C3 

FF 

JSR 

CLOSE 

;  close  channel  15 

C031 

60 

RTS 

;  and  finish 

C032 

A2    OF 

DERRCK 

LDX 

#15 

■  logical  file  15 

COM 

20     C6 

FF 

JSR 

CHKIN 

;  ready  for  input 

C037 

A2    B9 

LDX 

#<DSTAT 

C039 

AO    CO 

LDY 

#>DSTAT 

C03B 

20     97 

CO 

JSR 

PRINTS 

;  print  the  DSTAT  message 

C03E 

20     CF 

FF 

JSR 

CHRIN 

;  get  the  first  number 

C041 

20     D2 

FF 

JSR 

CHROUT 

C044 

OA 

ASL 

C045 

OA 

ASL 

C046 

OA 

ASL 

C047 

OA 

ASL 

;  shift  It  left  four  times 

C048 

8D   AA  CO 

STA 

ERROR 

;  high  nybble 

C048 

20     CF 

FF 

JSR 

CHRIN 

;  get  the  next  one 

C04E 

20     D2 

FF 

JSR 

CHROUT 

C051 

29     OF 

AND 

#%00001111 

;  mask  out  the  high  nybble 

C053 

OD    AA 

CO 

ORA 

ERROR 

;  add  to  ERROR 

C056 

8D    AA 

CO 

STA 

ERROR 

;  and  store  it 

C059 

20     CF 

FF 

MORE 

JSR 

CHRIN 

;  get  a  character  from  disk 

C05C 

C9    OD 

CMP 

#13 

;  Is  11  a  carriage  return? 

C05E 

FO    06 

BEQ 

EXAMIT 

;  if  so,  we're  done 

COM 

20     D2 

FF 

JSR 

CHROUT 

;  else  print  it 

C063 

4C    59 

CO 

JMP 

MORE 

C06A 

20     D2 

FF 

EXAMTT 

JSR 

CHROUT 

;  print  the  carriage  return 

C069 

AD  AA 

CO 

LDA 

ERROR 

;  get  the  error  number 

C06C 

C9    21 

CMP 

#$21 

;  is  it  0-207 

C06E 

90     23 

BCC 

ALLDONE 

;  If  so,  exit 

C070 

AO    01 

LDY 

#<OKNUM 

;  check  for  OK  errors 

C072 

D9    C7 

CO 

OKLOOP 

CMP 

OK,Y 

;  if  it  matches 

C075 

FO     1C 

BEQ 

ALLDONE 

;  skip  ahead 
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C077  88  DEY 

C078  10  F8  BPL  OKtOOP 

C07A  A0  03  LDY  #<NOKNUM 

C07C  D9  C9    CO    NOKLOOP      CMP  NOK.V 

C07F  F0  03  BEQ  MESSAGE 

C081  88  DEY 

C082  10  F8  BPL  NOKLOOP 


C084  98 

C085  0A 

C086  AB 

CD87  B9    CD  CO 

C08A  AA 

C08B  C8 

C08C  B9    CD  CO 

C08F  AS 

COW  20     97     CO 


MESSAGE 


TYA 

ASL 

TAY 

LDA      NTABLE.Y 

TAX 

INY 

LDA      NTABLE,Y 

TAY 

JSR        PRINTS 


C093     20     CC   FF    ALLDONE      JSR        CLRCHN 


COW  60 

C097  86     F8 

C099  84     FC 

C09B  A0    00 

C09D  Bl     FB 

C09F  48 

COAO  20     D2    FF 

C0A3  C8 

C0A4  68 

COA5  C9    OD 

C0A7  DO    F4 

C0A9  60 


PRINTS 


PSLOOP 


RTS 

STX 

STY 

LDY 

LDA 

PHA 

JSR 

INY 

PLA 

CMP      #13 


ZP 

ZP+1 
#0 
(ZP),Y 

CHROUT 


BNE 
RTS 


PSLOOP 


;  loop  back 

;  the  error  is  nol  OK 

;  check  NOK  table 

;  found  it,  00  print  a  message 

;  loop  back  for  more 

;  Index  to  .A 

;  times  2 

;  back  in  Y 

;  find  the  low  byte 

;  into  .X 

;  go  up  1 

;  high  byte 

:  into  -Y 

;  print  the  message 

;  clear  the  channels 

;  and  the  subroutine  is  done 

;  low  byte  In  ZP 
;  high  byte,  too 
;  get  ready  bo  print  it 
;  get  a  character 
;  push  it 
;  print  it 

:  pull  it 

;  is  it  a  RETURN? 

;  if  not,  get  another  character 


C0AA   00  ERROR 

C0AB    30     3A    4E  FAKE 

C0B9  LEN 

C0B9     44     49    53  DSTAT 
C0C6    0D 


.BYTE  00 

.ASC  "0:NOTAFILENAME" 

=  *-FAKE 

.ASC  "DISK  STATUS:  " 

.BYTE  13 


C0C7  50     73 

C0C9 

C0C9  26     33     74 

COCD 

COCD  DS    CO    F6 

C0D5  50     4C    45 

C0F5  0D 

C0F6  4E    4F     20 

C118  0D 

C119  50     4C    45 

C141  0D 

C142  46     49     4C 

C16C  0D 


OK 

OKNUM 

NOK 

NOKNUM 

NTABLE 

WRPROT 

WILDCD 

NREADY 

NFOUND 


.BYTE 

.BYTE 

WORD 

ASC 

.BYTE 

.ASC 

.BYTE 

.ASC 

.BYTE 

.ASC 

.BYTE 


$50,$73 

*-OK— 1  ;  number  of  OK  errors 

$26.$33.$74,$62 

•-NOK— 1  ;  number  of  not  OK  errors 

WRPROT.WILDCD.NREADY.NFOUND 

"PLEASE  REMOVE  WRiTE-PROTECT  TAB." 

13 

"NO  "S  OR  ?'S  ALLOWED  IN  FILENAME." 

13 

"PLEASE  INSERT  DISK  OR  TURN  ON  THE  DRIVE." 

13 

"FILENAME  DOESN'T  EXIST  ON  DISK,  TRY  AGAIN.' 

13 


See  also  CHK144,  RDSTAT. 
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Name 

Read  the  directory  as  a  stream  of  bytes 

Description 

DIRBYT  prints  the  directory  on  the  screen  without  actually 
loading  the  directory  file  into  memory  (which  is  what 
DIRPRG  does).  Thus,  any  programs  in  the  BASIC  workspace 
are  preserved. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  OPEN  1,8,0  with  the  name  "$0"  (SETLFS,  SETNAM,  and 
OPEN). 

3.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  bank 
where  the  directory  is  to  be  OPENed  and  .X  with  the  bank 
containing  the  directory  filename,  then  SETBNK. 

4.  Discard  the  two  track  and  sector  bytes. 

5.  Check  the  two  link  bytes  for  the  last  entry. 

6.  If  they're  both  zeros,  exit  the  routine. 

7.  Otherwise,  get  and  print  (with  NUMOUT)  the  number  of 
blocks  in  the  current  entry  on  a  new  screen  line. 

8.  Get  characters  from  the  current  entry  and  print  them  until 
a  zero  byte  is  reached. 

9.  If  a  zero  byte  is  reached,  loop  back  to  step  5. 

10.  If  the  next  set  of  link  bytes  are  both  zeros,  close  file  1  and 
restore  default  devices. 

Explanation 

DIRBYT  reads  the  directory  byte  by  byte  and  displays  it  in  a 
formatted  fashion  on  the  text  screen. 

The  directory  file  is  structured  just  like  a  BASIC  program 
file,  which  is  why  you  can  type  LOAD  "$0",8  and  LIST  it  as  if 
it  were  a  program.  At  the  beginning  of  the  directory  are  two 
bytes  that  would  indicate  the  load  address  if  it  really  were  a 
program.  We  have  no  use  for  these,  and  they  are  discarded. 

The  next  two  bytes  are  link  bytes  that  point  to  the  address 
in  memory  of  the  next  entry  in  the  file.  These  are  equivalent 
to  the  link  bytes  in  a  BASIC  program  file  that  point  to  the  next 
program  line.  If  the  two  link  bytes  are  both  zeros  (determined 
in  CHLINK),  we  know  we've  reached  the  end  of  the  file  (like- 
wise with  a  BASIC  program).  When  this  occurs,  we  branch  to 
EXIT,  closing  file  1  and  restoring  default  devices. 

If  one  or  both  of  the  link  bytes  are  nonzero  bytes,  we  get 
and  print  characters  from  the  current  entry  until  a  zero  byte  is 
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reached.  A  zero  marks  the  end  of  a  line,  again  just  as  in  a 
BASIC  program  line. 

Each  entry  can  be  one  of  three  types:  the  disk  name,  a 
program  name,  or  the  BLOCKS  FREE  message.  The  first  two 
bytes  after  the  link  bytes  in  each  program  entry  represent  the 
number  of  blocks  occupied  by  the  corresponding  program  on 
the  disk.  If  the  entry  is  the  BLOCKS  FREE  message  at  the  bot- 
tom of  the  directory,  the  first  two  bytes  refer  to  the  number  of 
blocks  remaining  on  the  disk.  If  the  entry  is  the  disk  name, 
the  first  two  bytes  are  zeros. 

Regardless  of  the  entry  type,  these  first  two  bytes  are 
printed  as  a  two-byte  integer  with  NUMOUT,  a  space  is  in- 
serted, and  the  rest  of  the  entry  printed  (in  LOOP). 

As  is  suggested  with  DIRPRG,  you  can  display  a  portion 
of  the  directory  by  using  the  built-in  wildcard  notations.  For 
instance,  to  show  all  two-character  filenames  that  begin  with 
D,  change  the  directory  filename  in  FILENM  to  "$0:D?".  Or  to 
show  any  filename  beginning  with  D,  regardless  of  its  length, 
change  FILENM  to  "$0:D*". 

Note:  DIRBYT  lacks  disk  eiror  checking.  You  can  easily 
add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  you  have  opened  file  1  to  the  disk.  Also,  as  noted  in  the 
source  listing,  be  sure  to  open  the  error  channel  (15)  at  the 
beginning  of  the  program. 

On  the  128,  incLude  BNKNUM  and  BNKFNM  at  the  end 
of  the  program. 


Routine 


cooo 

SETLFS 

= 

65466 

cooo 

SETBNK 

= 

65384 

cooo 

MMUREG 

s 

65280 

cooo 

SETNAM 

= 

65469 

cooo 

OPEN 

= 

65472 

cooo 

CHKIN 

— 

65478 

cooo 

CHRTN 

= 

65487 

cooo 

CHROUT 

— 

65490 

cooo 

CLOSE 

= 

65475 

cooo 

CLRCHN 

= 

65484 

cooo 

ZP 

= 

251 

cooo 

LINPRT 

= 

48589 

Kemal  bank  number  for  OPEN  and 

filename  (128  only) 

MMU  configuration  register  (128  only) 


LINPRT  =  36402  on  the  128 

Read  the  directory  as  a  stream  of  bytes. 
Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 
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cooo 


DIRBYT 


COOO  A9  01 

C002  A2  08 

C004  AO  00 

C006  20  BA    FF 


LDA  #1 

LDX  #8 

LDY  #0 

)SR  SETLFS 


GD09 

A  9 

02 

LDA 

#FNL£NG 

COOB 

A2 

5D 

LDX 

*<F1LENM 

COOD 

AO 

CO 

LDY 

*>FILENM 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

C012 

20 

CO 

EF 

JSR 

OPEN 

C01S  A2  01  LDX 

C017  20  C6  FF  JSR 

C01A  20  57  CO  JSR 

C01D  20  49  CO    NEWENT     JSR 

C020  FO  IE  BEQ 

C022  A9  OD  LDA 


C024     20     D2    FF 


JSR 


C027      20     CF    FE  JSR 

C02A    AA  TAX 


#1 

CHKIN 

GET2 

CHUNK 

EXIT 

#13 

CHROUT 


CHKIN 


C02B 

20 

CF 

FF 

JSR 

CHRIN 

C02E 

20 

CD 

BD 

NUMOUT 

JSR 

LtNPRT 

C031 

A9 

20 

LDA 

#32 

C033 

20 

D2 

FF 

JSR 

CHROUT 

C036 

20 

CF 

FF 

LOOP 

JSR 

CHRIN 

C039 

FU 

E2 

BEQ 

NEWENT 

C03B 

20 

D2 

FF 

JSR 

CHROUT 

C03E 

DO 

F6 

BNE 

LOOP 

C040 

A9 

01 

EXIT 

LDA 

#1 

C042 

20 

C3 

FF 

JSR 

CLOSE 

C045 

20 

cc 

FF 

JSR 

CLRCHN 

C048 

60 

RTS 

C049 

20 

CF 

FF 

CHUNK 

JSR 

CHRIN 

C04C 

85 

FB 

STA 

ZP 

C04E 

20 

CF 

EE 

JSR 

CHRIN 

C051 

05 

FB 

ORA 

ZP 

C053 

60 

RTS 

C054 

20 

57 

GO 

GET4 

JSR 

GET2 

C057 

20 

CF 

FF 

GET2 

JSR 

CHRIN 

LDA  #0;  set  the  128  to  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  1 

disk  drive  (sometimes  device  9) 

1.8,0  is  set  for  read 

set  parameters  for  read 

Include  the  fallowing  three  instructions  on 

the  128. 

LDA  BNKNUM:  open  into  bank  number 

LDX  BNKFNM;  bank  containing  the  ASCII 

filename 

JSRSETBNK 

length  of  filename 
the  filename  is  "$0" 

set  up  filename 

open  the  directory  file  for  reading 

Insert  |SR  DERRCK  here  for  disk  error 
checking. 


input  from  file  1 

discard  the  track  and  sector  bytes 

U  it  the  last  entry? 

if  90.  exit  the  routine 

print  each  entry  on  a  new  physical  line 

Get  the  number  of  blocks  in  the  next 

entry  and  print  with  NUMOUT. 

get  the  low  byte 

and  put  in  .X 

get  (he  high  byte  in  .A 

print  the  number 

Insert  a  SPACE 


Read  Information  on  each  program  entry 

(filename,  type,  etc.). 

Input  a  character  from  entry 

If  zero  byte,  next  byte  is  from  a  new  entry 

print  It 

and  continue  with  current  entry 

you're  finished 

close  logical  file  1 

clear  all  channels  and  restore  default 

devices 


check  two  link  bytes  for  00 

store  first  byte 

get  another  byte 

and  OR  it  with  the  first  byte 

return  a  zero  if  both  are  zero,  otherwise 

nonzero  value  returned 

get  next  four  bytes  from  file  1 
get  rwo  bytes 
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C05A    4C   CF   FF 


JMP       CHR1N 


C05D    24     30  F1LENM  ASC      "$0" 

C05F  FNLENG      =  •-FILENM 


See  also  DIRPRG,  FRESEC. 


gel  a  byte  and  RTS 

Insert  DERRCK  here  If  you're  including 
error  checking. 

filename  for  directory 

length  of  filename 

Include  the  next  two  variables  on  the  128. 

BNKNTJM  .BYTE  0;  bank  number  lo  OPEN 

into  (128  onlv) 

BNKFNM  .BYTE  0;  bank  number  where 

ASCn  filename  is  (128  only) 


DIRPRG 


Name 

Load  the  directory  as  a  program  file 

Description 

This  routine  loads  the  directory  file  on  disk  into  the  BASIC 
workspace.  If  you've  worked  in  BASIC,  you've  probably  done 
this  many  times  with  LOAD"$",8.  If  so,  you've  certainly 
found,  perhaps  the  hard  way,  that  loading  the  directory  in  this 
manner  overwrites  any  BASIC  program  currently  in  memory. 
But  if  the  program  you're  executing  is  outside  the  BASIC 
workspace,  which  is  often  the  case  with  ML,  this  method  of 
reading  the  directory  is  completely  suitable. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  for  a  relative  load  of  the  directory  file 
(SETLFS,  SETNAM). 

3.  On  the  128,  prior  to  SETNAM,  load  A  with  the  bank 
where  the  directory  is  to  be  loaded  and  .X  with  the  bank 
containing  the  directory  filename.  Then  JSR  to  SETBNK. 

4.  Store  zero  in  A  to  indicate  a  load  operation. 

5.  Load  .X  and  .Y  with  the  starting  address  of  BASIC  from 
TXTTAB. 

6.  JSR  to  LOAD. 

7.  Store  .X  and  .Y  in  the  end-of-BASIC  text  pointer. 

8.  JMP  to  LINKPG. 

Explanation 

DIRPRG  loads  the  directory  as  a  BASIC  program  into  the  cur- 
rent BASIC  workspace.  (A  secondary  address  of  zero  causes  a 
relative  load.)  This  allows  you  to  position  the  BASIC 
workspace  anywhere  you  want  before  entering  the  routine. 
DIRPRG  simply  loads  the  directory  file  based  on  the  current 
starting  address  of  BASIC. 

DIRPRG  is  very  much  like  a  relative  load  of  any  BASIC 
program  (see  LOADBS).  As  with  LOADBS,  we  place  a  zero  in 
the  accumulator  before  executing  the  Kernal  LOAD  to  cause  a 
load  rather  than  to  verify.  And  again,  before  JSRing  to  LOAD, 
we  store  the  starting  address  of  BASIC  (TXTTAB)  in  .X  and  .Y. 
(On  the  128,  TXTTAB  is  at  location  45.) 

After  LOAD  has  finished,  store  .X  and  .Y  containing  the 
ending  address  of  the  directory  file  in  VARTAB  (or  TEXTTP  at 
4624  on  the  128).  Finish  up  by  JMPing  to  LINKPG  to  relink 
the  lines  of  the  directory  file  as  a  BASIC  program. 
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Note:  You  can  look  at  different  portions  of  the  directory 
selectively  by  using  the  operating  system's  built-in  wildcard 
notations.  For  instance,  if  you  want  to  display  a  list  of  all  files 
whose  names  begin  with  PROG,  change  FILENM  in  DIRPRG 
to  "$0:PROG*".  On  the  other  hand,  if  you  want  a  list  of  all 
program  names  ending  in  .OBJ  that  are  ten  characters  long, 
change  FILENM  to  "$0:??????.OBJ=P". 

DIRPRG  currently  lacks  disk  error  checking.  You  can  add 
this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (also  noted  in 
the  source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 


Routine 


cooo 
cooo 
cooo 
cooo 

SETL5S 
SETNAM 
LOAD 
TXTTAB 

- 

65466 
65469 
65493 
43 

cooo 

VARTAB 

- 

45 

cooo 
cooo 

UNKPG 
SETBNK 

- 

42291 
65384 

cooo 

MMUREG 

= 

65280 

COOO 


COOO  A9  01 
C002  A2  08 
C004      A0    00 


C006     20     BA  FF 


DIRPRG        - 


IDA  #1 

LDX  #8 

LDY  #0 

JSR  SETLFS 


C009  A9  02 

COOB  A2  22 

C00D  AO  CO 

C00F  20  BD  FF 


LDA  #FNLENG 

LDX  #<FTLENM 

LDY  #>FILENM 

JSR  SETNAM 


TXTTAB  =  45  on  the  128— start-of-BASIC 

pointer 

TEXTTP  =  4624  on  the  128— end-of-BASIC 

pointer 

LINKPG  =  20303  on  the  128 

Kemal  bank  number  for  load  and  filename 

(128  only) 

MMU  configuration  register  (128  only) 

Load  the  directory  into  normal  BASIC 
memory. 

Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 


LDA  -U;  set  for  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  number  (value  doesn't  matter) 

device  number  for  disk  drive 

secondary  address  of  zero  causes  relative 

load 

set  parameters  for  relative  load 

Include  the  following  three  Instructions 

for  the  128  only. 

LDA  BNKNUM;  bank  containing  the 

program 

LDX  BNKFNM;  bank  containing  the 

ASCII  filename 

JSR  SETBNK 

length  of  filename 

the  filename  is  "$0" 

set  up  filename 
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0)12  A9  00 

C014  A6  2B 

C016  A4  2C 

C018  20  D5   FF 


LDA  #0 

LDX  TXTTAB 

LDY  TXTTAB +1 

JSR  LOAD 


C01B 

86     2D 

STX 

VARTAB 

C01D 

84     2E 

STY 

VARTAB+1 

COIF 

4C    33     A5 

JMP 

LINKKG 

C022     24     30 
C024 


FILENM         ASC      "SO" 
FNLENG      =  *  -  FILENM 


DIRPRG 


flag  for  load 

low  byte  of  start-of-BASIC  program 

address 

high  byte  of  start-of-BASIC  program 

address 

load  the  directory  at  the  start  of  BASIC 

JSR  DERRCK;  Insert  here  for  disk  error 
checking. 

Change  VARTAB  in  the  next  two 
instructions  to  TEXTTF  on  the  128. 
store  end  of  directory  address  into  end-of- 
BASIC  program  pointer 

relink  lines  of  tokenized  program  text  and 
RTS 

Insert  DERRCK  here  if  you're  including 
disk  error  checking. 

directory  name 

length  of  filename 

Include  the  next  two  variables  for  the  128 

only. 

BNKNUM  -BYTE  0;  bank  number  where 

program  is  to  be  loaded 

BNKFNM  BYTE  0;  bank  number  where 

ASCII  filename  is  located 


See  also  DIRBYT,  FRESEC. 
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Name 

Disable  RUN/STOP-RESTORE 

Description 

DISRSR  disables  the  reset  function  of  the  RUN/STOP- 
RESTORE  key  combination  by  redirecting  the  NMI  interrupt 
vector  to  the  end  of  the  normal  NMI  interrupt  handler. 

Prototype 

Change  the  NMI  interrupt  vector  to  point  to  a  harmless  rou- 
tine that  skips  the  normal  interrupt  handling. 

Explanation 

There  are  two  normal  sources  for  an  NMI  interrupt  in  the  64 
and  128.  One  is  the  CIA  (Complex  Interface  Adapter)  #2  chip, 
which  generates  the  interrupts  to  handle  RS-232  communica- 
tions. The  other  is  the  RESTORE  key. 

DISRSR  changes  the  NMI  interrupt  vector  so  that  it  skips 
both  sources  of  NMI  interrupts.  Note  that,  in  addition  to  dis- 
abling RUN/STOP-RESTORE,  this  technique  will  also  disable 
RS-232  communications  through  the  user  port. 

On  the  64,  this  is  accomplished  by  pointing  the  NMI  vec- 
tor directly  to  the  RTI  instruction  at  the  end  of  the  normal 
NMI  service  routine.  The  128  pushes  the  A,  X,  and  Y  reg- 
isters, as  well  as  the  configuration  register,  onto  the  stack  just 
before  jumping  through  the  NMI  vector.  As  a  result,  before 
leaving  the  routine,  you  have  to  restore  these  registers.  This  is 
done  by  jumping  to  the  common  IRQ  exit  routine  at  65331. 

On  the  64,  the  A,  X,  and  Y  registers  are  also  stored  on 
the  stack,  but  as  part  of  the  NMI  interrupt  handler  routine  it- 
self. Since  we  skip  these  instructions  altogether  on  this  ma- 
chine, you  don't  need  to  restore  the  registers  before  exiting  the 
routine. 


Routine 

cooo 
cooo 


cooo 

C002 
C005 
C007 
COOA 


A9 

8D 
A9 
8D 
60 


CI 

18 

re 

19 


NMIVEC 
RTINMI 


DISRSR 


03 


03 


LDA 
STA 
LDA 
STA 
RTS 


792 
65217 


#<RTINM1 
NMTVEC 
#>RTINM1 
NMIVEC+1 


;  vector  to  nonmaskable  interrupt  routine 
;  RTINM!  =  65331  on  the  128 — return  from 
;  NMI  routine  address 

;  Disable  RUN/STOP-RESTORE  key 
;  sequence  by  skipping  NMI  handler. 
;  redirect  NMI  vector,  low  byte  first 

;  then  high  byte 

:  we're  done 


See  also  DISTOP,  ERRRDT,  RSTVEC. 
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Name 

Disable  the  STOP  key  by  changing  the  STOP  vector 

Description 

DISTOP  disables  the  STOP  key  by  redirecting  the  STOP  vec- 
tor past  the  STOP  key  check  in  the  normal  STOP  handler. 

Prototype 

Store  the  address  of  that  portion  of  the  STOP  routine  that  is 
just  beyond  the  STOP  key  check  into  the  STOP  vector  and  RTS. 

Explanation 

The  STOP  vector  at  location  808  is  one  of  Kemal  indirect  vec- 
tors in  page  3.  This  vector  ordinarily  points  to  a  short  ROM 
routine  that  checks  whether  the  STOP  key  is  pressed. 

Press  the  STOP  key,  and  a  $7F  is  stored  into  the  STOP 
key  flag  at  location  $91.  The  Kernal  STOP  routine,  when 
called,  determines  whether  the  STOP  key  flag  contains  this 
value.  This  routine  begins  with  the  same  series  of  instructions 
on  the  128  as  on  the  64.  The  only  difference  in  the  two  is  the 
address  of  the  routine— on  the  128,  it's  at  63086. 

On  the  64,  the  code  for  this  routine  goes  like  this: 


F6ED  A5  91 
F6EF  C9  7F 
F6F1     DO  07 


LDA  $91 

CMP  #$7F 
BNE  SF6FA 


F6FA   60 


RTS 


In  DISTOP,  we  disable  the  STOP  key  by  pointing  the 
STOP  vector  to  the  CMP  at  $F6EF.  Consequently,  since  the 
accumulator  never  gets  the  $7F  from  location  $91,  the  routine 
always  branches  to  the  RTS  at  $F6FA. 


Routine 


coco 

STOPVC 

= 

808 

;  vector  to  Kemal  STOP  key  routine 

STOP 

63213 

•;  STOP  =  63086  on  the  128— STOP  routine 
;  address 

;  Disable  STOP  key  by  skipping  STKEY  flag 
;  check. 

cooo 

A9 

EF 

DISTOP 

LDA 

#<STOP+2 

;  redirect  STOP  vector  ahead  by  two  bytes 

C002 

8D 

28 

03 

STA 

STOPVC 

;  change  low  byte  first 

coos 

A9 

F6 

LDA 

#>STOP+2 

;  and  then  high  byte 

C007 

8D 

29 

03 

STA 

STOPVC+1 

COOA 

60 

RTS 

;  we're  done 

See  also  DISRSR,  ERRRDT,  RSTVEC. 
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Name 


Divide  one  byte  value  by  another  and  store  the  result  (and 
remainder)  in  memory 

Description 

This  version  of  the  division  routine  repeatedly  subtracts  the 
second  number  from  the  first.  The  leftover  number  is  kept  in 
REMAIN.  The  result  is  in  TOTAL, 

Prototype 

1.  Store  the  first  number  in  FIRST  and  the  second  in 
SECOND. 

2.  Zero  out  the  total  and  remainder. 

3.  Load  the  accumulator  from  FIRST. 

4.  Compare  to  SECOND. 

5.  If  the  carry  flag  is  clear,  store  the  remainder  in  REMAIN 
and  exit. 

6.  INC  the  total  and  subtract  SECOND  from  FIRST. 

7.  Branch  back  to  step  4. 

Explanation 

When  you're  dealing  with  byte-sized  quantities  (0-255),  divid- 
ing by  repeated  subtraction  of  one  number  from  another  will 
suffice.  To  divide  99  by  10,  just  subtract  10  until  you  have  a 
number  smaller  than  10.  Whatever  is  left  is  the  remainder. 
For  division  of  larger  numbers,  see  DIVINT. 

Routine 


cooo 

LINI'RT 

■ 

$BDCD 

;  UNPRT  =  $8E32  on  the  121 

COOL) 

CHROUT 

■" 

$FFD2 

cooo 

20 

19 

CO 

ISR 

DIVBYT 

;  divide  them 

C003 

A9 

00 

LDA 

#0 

C005 

AE 

39 

CO 

LDX 

TOTAL 

;  print  the  result 

coos 

20 

CD 

BD 

JSR 

UNPRT 

C00B 
COOD 

A9 

20 

QU 

D? 

FF 

LDA 
ISR 

»13 
CHROUT 

:  print  RETURN 

coio 

A9 

00 

LDA 

#0 

C012 
C015 

AE 
20 

3A 
CD 

CO 
BD 

LDX 
JSR 

REMAIN 
LINPRT 

;  print  the  remainder 

C0I8 

60 

RTS 

C019 

A9 

oo 

DIVBYT 

LDA 

#0 

;  zero  out  the  total 

C01H 

8D 

39 

CO 

STA 

TOTAL 

;  store  it  in  TOTAL 

C01E 

8D 

3A 

CO 

STA 

REMAIN 

;  and  remainder 

C021 

AD  37 

CO 

LDA 

FIRST 

;  get  the  number 

C024 

CD 

38 

CO 

VLOOP 

CMP 

SECOND 

;  compare  it  with  the  second 

C027 

90 

CIA 

BCC 

DONE 

;  SECOND  Is  bigger 

C029 

EE 

39 

CO 

INC 

TOTAL 

;  else,  increment  the  result 

C02C 

FO 

08 

BEQ 

NOREM 

;  no  remainder 

C02E 

ED 

38 

CO 

SBC 

SECOND 

;  carry  is  set,  so  subtract 
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C031     BO    Fl 


C037  64 

C038  03 

C039  00 

C03A  00 


BCS 


C033     8D    3A    CO    DONE  STA 

C036     60  NOREM       RTS 


DIVBYT 


VLOOP 
REMAIN 


branch  always  (carry  is  set) 

.A  holds  the  remainder 
end  the  subroutine 


FIRST  .BYTE    100 

SECOND  .BYTE   3 

TOTAL  .BYTE    0 

REMAIN  .BYTE    0 


See  also  DIVFP,  DIVINT. 
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Name 

Divide  one  floating-point  number  by  another 

Description 

Like  most  of  the  other  floating-point  routines  in  this  book, 
DIVFP  depends  on  built-in  BASIC  routines.  The  example  pro- 
gram divides  30,000  by  302  and  prints  out  the  result,  complete 
with  decimal  fractions. 

Prototype 

1.  Set  up  the  dividend  (or  numerator)  in  floating-point  accu- 
mulator 2  (FAC2). 

2.  Put  the  divisor  (or  denominator)  in  FAC1. 

3.  Call  the  FDIVT  routine  in  ROM.  The  answer  can  be  found 
in  FAC1. 

Explanation 

The  framing  program  converts  the  integer  value  30,000  to  a 
floating-point  number  with  GIVAYF.  The  MOVEF  routine 
moves  it  from  FAC1  to  FAC2.  Next,  the  number  302  is  stored 
into  FAC1,  and  the  DIVFP  routine  is  called  (a  simple  ROM 
call).  Finally,  FOUT  converts  the  contents  of  FAC1  to  ASCII 
numbers,  which  are  then  printed  to  the  screen. 

Routine 


cooo 

ZP 

— 

$FB 

cooo 

CHROUT 

= 

SFFD2 

cooo 

FDIVT 

= 

SBB12 

;  FDIVT  -  $8B4C  on  the  128— divide  FAC2 
;  by  FAC1;  result  in  FAC1 

cooo 

MOVEF 

*™ 

SBC0F 

;  MOVEF  =  $8C3B  on  the  128— moves  FAC1 
;toFAC2 

cooo 

GIVAYF 

™ 

SB39I 

I  GIVAYF  =  $AF03  on  the  128— converts 
;  integer  to  floating  point 

cooo 

FOUT 

$BDDD 

;  FOUT  =  $8E42  cm  the  128— converts  FAC1 
1  to  ASCII  string 

;  Convert  the  numbers  30000  and  302  to 
;  floating  point  and  divide. 

cooo 

A9 

75 

LDA 

#>30000 

;  high  byte  o(  30000 

C002 

A0 

30 

LDY 

#<3Q000 

;  low  byte 

C004 

20 

91 

B3 

JSR 

GIVAYF 

;  convert  it;  now  it's  in  FAC1 

C007 

20 

OF 

BC 

JSR 

MOVEF 

:  move  FAC1  to  FAC2 

C00A 

A9 

01 

LDA 

#>302 

;  high  byte  of  302 

cooc 

A0 

2E 

LDY 

#<302 

:  low  byte 

C00E 

20 

91 

B3 

)SR 

GIVAYF 

;  convert  it 

:  FAC1  now  holds  302;  FAC2  holds  30000. 

con 

20 

29 

CO 

JSR 

DIVFP 

;  divide  30000  by  302;  the  result  is  in  FAC1 

COM 

20 

DD 

BD 

|SR 

FOUT 

;  convert  to  ASCII 

C017 

85 

FB 

STA 

ZP 

;  pointer 

C019 

Si 

FC 

STY 

zr*+i 

;  to  the  string 
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C01B 

All 

00 

LDY 

#0 

C01D 

Bl 

FB 

PRTLOP 

LDA 

(ZP).V 

COIF 

DO 

01 

BNE 

PRNIT 

C021 

60 

RTS 

C022 

20 

D2 

FF 

PRNIT 

JSR 

CHROUT 

C025 

C8 

INY 

C026 

DO 

F5 

BNE 

PRTLOP 

C028 

60 

RTS 

C029 

20 

12 

BB 

DIVFP 

}SR 

FD1VT                ; 

C02C 

60 

RTS 

divide  FAC2  by  FAC1 
the  result  is  in  FAC1 


See  also  DIVBYT,  DIVINT. 
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Name 

Divide  one  integer  value  into  another 

Description 

For  values  that  take  up  two  bytes  or  more,  this  division  rou- 
tine is  preferable  to  the  subtraction  method  used  in  DIVBYT. 
It's  much  faster  than  subtracting. 

Prototype 

1.  Since  there  are  16  bits  in  a  two-byte  integer,  store  a  16  into 
a  counter  (change  this  if  you're  using  larger  numbers). 

2.  Store  zeros  into  ANSWER  and  WORK,  which  will  even- 
tually contain  the  answer  and  the  remainder. 

3.  Copy  the  numerator,  also  called  the  dividend,  from 
DiVNUM  to  a  work  area  COPYN. 

4.  Begin  division:  Rotate  COPYN  to  the  left.  The  additional  bit 
rotates  into  WORK. 

5.  Compare  the  contents  of  WORK  to  DIVDEN  (the  denomi- 
nator or  divisor). 

6.  If  WORK  is  equal  or  larger,  the  carry  flag  will  be  set.  Rotate 
the  set  carry  (a  1)  left  into  ANSWER  and  execute  step  7. 

7.  Subtract  DIVDEN  from  WORK  and  store  the  result  in 
WORK.  Skip  step  8. 

8.  If,  after  step  5,  WORK  was  smaller,  carry  would  be  clear. 
Rotate  this  zero  bit  left  into  ANSWER. 

9.  Decrement  the  counter  setup  in  step  1.  If  it's  not  yet  zero, 
loop  back  to  step  4. 

Explanation 

The  following  partial  example  of  a  binary  division  may  be 
helpful  in  understanding  how  division  works  in  ML: 

0001 

110    110110010 
110 
110 

The  110  is  the  denominator  (or  divisor)  being  divided  into 
10110010,  the  numerator  (or  dividend).  There's  a  third  work 
area,  called  WORK  in  the  program  below,  which  starts  out 
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holding  a  zero.  The  main  loop  rotates  DIVDEN  (10110010  in 
the  example  above)  to  the  left,  and  the  high  bit  goes  into 
WORK: 

WORK  DIVDEN 

1  00000001  0110010a: 

2  00000010  HOOlOxx 

3  00000101  lOOlOrtx 

4  00001011  OOlOrax 

As  you  can  see,  the  number  in  WORK  gradually  grows 
larger  as  more  bits  are  shifted  left  (the  x's  represent  unknown 
bits  that  don't  matter).  Since  the  example  is  dividing  by  the 
number  110,  at  each  step,  we  have  to  compare  WORK  to  the 
denominator.  The  binary  numbers  %1,  %10,  and  %101  are 
smaller,  so  the  carry  flag  is  clear,  and  a  zero  gets  rotated  into 
ANSWER.  Note  the  first  three  zeros  in  the  example. 

When  WORK  is  equal  to  or  larger  than  DIVDEN,  carry  is 
set  (which  means  a  1  gets  rotated  into  the  answer),  and  we 
have  to  subtract  DIVDEN  from  WORK.  Then  the  rotate 
instructions  and  compares  continue. 

After  division  is  complete,  the  answer  is  held  in  AN- 
SWER. The  remainder  can  be  found  in  WORK.  The  example 
program  divides  two  numbers  (3112/550)  and  prints  the  an- 
swer. The  remainder,  preceded  by  the  letter  R  is  also  printed. 

To  use  this  routine  in  your  own  programs,  store  the  inte- 
ger values  in  DIVNUM  and  DIVNUM.  Using  the  bit-shifting 
method  is  faster  than  subtracting.  Dividing  60,000  by  3,  for  ex- 
ample, would  require  30,000  loops  in  DIVBYT,  but  only  16  in 
DIVINT. 

Note:  If  you're  dividing  by  a  power  of  2  (2,  4,  8,  16,  32, 
and  so  forth),  you  can  skip  this  routine  and  simply  shift  the 
dividend  to  the  right,  with  LSR  for  the  high  byte  and  ROR  for 
any  intermediate  or  lower  bytes. 

Warning:  Division  by  zero  is  mathematically  illegal,  and 
this  program  doesn't  contain  a  trap  for  zero.  If  you  think  a 
user  might  try  dividing  by  zero,  you'll  need  to  check  for  zeros 
at  the  beginning  of  DIVINT. 

Routine 

C000  UNPRT         =  $BDCD  ;  UNPRT  =  $8E32  for  the  128 

COM)  CHROUT      —  $FFD2 

C000  A9    93  LDA  #147  ;  clear  screen 

C002  20    D2  FF  JSR  CHROUT  .print it 

COOS  AE    41  CO  LDX  DIVNUM  ;  low  byte  of  the  numerator  or  dividend 

C008  AD  42  CO  LDA  DTVNUM+l  ;  high  byte 
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COOB 

20 

CD 

8D 

CODE 

A9 

2F 

C010 

20 

D2 

FF 

C013 

AE 

43 

CO 

C016 

AD 

44 

CO 

CO!  9 

20 

CD 

BD 

C01C 

A9 

OD 

CO  IE 

20 

D2 

FF 

C021 

20 

4C 

CO 

C024 

AE 

47 

CO 

C027 

AD 

48 

CO 

C02A 

20 

CD 

BD 

C02D 

A9 

OD 

C02F 

20 

D2 

FF 

C032 

A9 

52 

C034 

20 

D2 

FF 

C037 

AE 

45 

CO 

C03A 

AD 

46 

CO 

C03D 

20 

CD 

BD 

C040 

60 

C041  28  OC  D[VNUM 

C043  26  02  DIVDEN 

C045  00  00  WORK 

C047  REMAIN 


C047  00  00 
C049  00  00 
C04B    00 


ANSWER 

COPYN 

COUNTR 


C04C  20  61  CO    DIVINT 

C04F  20  67  CO 

C052  20  72  CO 

COS5  20  7F  CO    DIVLP 

C058  20  8C  CO 

C05B  CE  4B  CO 

COSE  DO  F5 

COM  60 


JSR 

LDA 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 

LDA 

JSR 

LDX 

LDA 

JSR 

RTS 


LINPRT 

»47 

CHROUT 

DIVDEN 

DIVDEN +  1 

UNPRT 

#13 

CHROUT 

DIVINT 

ANSWER 

ANSWER +1 

LINPRT 

#13 

CHROUT 

#82 

CHROUT 

REMAIN 

REMAIN+1 

LINPRT 


WORD3112 
.WORD  550 
.BYTE   0,0 
-         WORK 

.BYTE  0.0 
.BYTE  0.0 
.BYTE   0 


JSR 
JSR 
JSR 
JSR 
JSR 


SETUP 

ZEROS 
COPYNM 
MVOVER 
DIVIDE 
DEC      COUNTR 
BNE      DIVLP 
RTS 


C061 

A9 

10 

SETUP 

LDA 

#16 

C063 

8D 

4B 

CO 

STA 

COUNTR 

C066 

60 

RTS 

C067 

A9 

00 

ZEROS 

LDA 

#0 

C069 

AO 

03 

LDY 

#3 

C06B 

99 

45 

CO 

ZLOOP 

STA 

WORK.Y 

C06E 

68 

DEY 

C06F 

10 

Hi 

BPL 

ZLOOP 

C071 

60 

RTS 

C072 

AD  41 

CO 

COPYNM 

LDA 

DIVNUM 

C075 

8D 

49 

CO 

STA 

COPYN 

C078 

AD  42 

CO 

LDA 

DIVNUM+1 

C07B 

8D 

4A 

CO 

STA 

COPYN +1 

C07E 

60 

RTS 

;  print  it 

;  the  slash  (/),  to  indicate  division 

;  print  it 

:  low  byte  of  the  denominator  or  divisor 

;  high  byte 

:  print  it 

;  print  RETURN 

:  new  line 

;  divide  the  numbers 

;  and  print  the  answer 


print  RETURN  again 

letter  R  for  remainder 

print  it,  then 

low  byte  o(  remainder 

high  byte 

print  it 

and  quit 

3112  will  be  divided  by 
550 

the  remainder  will  end  up  in  WORK  (also 
known  as  REMAIN) 


,-  set  the  counter  to  16 

;  zero  out  WORK  and  ANSWER 

;  copy  DIVNUM  to  COPYN 

;  route  COPYN  and  WORK  to  the  left 

;  the  main  division  routine 

;  count  down 

;  if  if  a  not  zero  yet,  keep  going 

;  quit  the  DIVINT  routine 

l 

i  Setup  just  puts  a  16  Into  COUNTR. 

;  16  represents  the  number  of  bits  in 

;  DIVNUML 


;  Next,  copy  zeros  Into  WORK  and 
;  ANSWER. 


;  as  long  as  .Y  Is  zero  or  higher,  loop  back 


;  Copy  DIVNUM  to  COPYN. 


;  Move  a  bit  to  the  left  from  COPYN  to 
.WORK. 
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C07F  OE  49  CO  MVOVER      ASL  COPYN 

C082  2E  4A  CO  ROL  COPYN +1 

C085  2E  45  CO  ROL  WORK 

C088  2E  46  CO  ROL  VVORK+1 

C08B  60  RTS 


C08C  AD  46     CO    DIVIDE 

C08F  CD  44     CO 

C092  F0     09 

C094  BO    OF 


C096     2E    47     CO    FLXANS 
C099     2E    48     CO 
C09C    60 


LDA  WORK+1 

CMP  DIVDEN  +  1 

BEQ  LOOKMR 

BCS  SUBTR 


ROL      ANSWER 
ROL      ANSWER  + 1 
RTS 


LOOKMR      - 


C09D 

C09D    AD  45     CO 
C0A0    CD  43     CO 

C0A3    90     Fl 

C0A5  SUBTR 

C0A5    20     96     CO 


LDA      WORK 

CMP     DIVDEN 


BCC      FIXANS 


JSR       FIXANS 


C0A8 

38 

SEC 

C0A9 

AD  45 

CO 

LDA 

WORK 

C0AC 

ED  43 

CO 

SBC 

DIVDEN 

COAF 

8D    45 

CO 

STA 

WORK 

C0B2 

AD  46 

CO 

LDA 

WORK+1 

COBS 

ED  44 

CO 

SBC 

DIVDEN+1 

COBS 

8D    46 

CO 

STA 

WORK+1 

COBB 

60 

RTS 

low-byte  shifts  left 

into  high  byte 

into  WORK 

and  high  byte  of  WORK 


high  byte  of  WORK 

compare  to  the  divisor 

look  more  (check  the  low  byte)  if  equal 

WORK  is  higher,  so  subtract 

If  we  fall  through  from  above,  carry  is 

clear. 

move  the  carry  flag  into  ANSWER 

high  byte,  too 

end  of  FLXANS  and/or  subroutine 

check  the  low  byte  if  the  high  byte  was 

equal 

get  value  in  WORK 

compare  to  denominator  (divisor)  low 

byte 

if  carry  is  clear,  DIVDEN  is  bigger,  so  exit 

else  subtract  DIVDEN  from  WORK 
carry  is  always  set  (note  the  RTS  of 
FIXANS  returns  to  here) 
carry  was  changed  by  FLXANS,  so  set  it 


:  subtract  DIVDEN  from  WORK 
;  high  byte,  too 


See  also  DIVBYT,  DIVFP. 
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Name 

Change  the  ERROR  vector 

Description 

ERRRDT  redirects  BASIC'S  ERROR  vector  to  your  own 
routine. 

Prototype 

Store  the  address  of  the  custom  error  routine  into  the  ERROR 
vector;  then  RTS. 

Explanation 

When  an  error  occurs  during  a  BASIC  program,  an  indirect 
jump  is  taken  through  the  ERROR  vector  at  location  768.  This 
vector  normally  points  to  the  ROM  routine  which  displays  the 
appropriate  one  of  the  familiar  BASIC  error  messages,  such  as 
SYNTAX  ERROR,  ILLEGAL  QUANTITY  ERROR,  and  so 
forth.  In  some  cases,  however,  you  may  want  to  substitute  a 
custom  error  message  in  place  of  the  standard  one.  In  this 
case,  you  can  change  the  address  in  the  ERROR  vector  to 
point  to  an  error  message  routine  of  your  own. 

For  example,  when  you  type  in  BASIC  programs  that  con- 
tain many  numeric  DATA  statements  being  POKEd  into  mem- 
ory, you'll  frequently  get  an  error  that's  difficult  to  pin  down. 
If  you  accidentally  include  a  number  higher  than  255  and  run 
the  program,  you'll  get  the  error  message  ?ILLEGAL  QUAN- 
TITY IN  LINE  xxx.  But  the  line  given  as  xxx  is  the  one 
containing  the  READ  statement  rather  than  the  one  with  the 
errant  data.  The  READ  works  just  fine  (it's  legal  to  READ 
numbers  greater  than  255),  but  the  POKE  causes  the  problem. 

The  example  program  relies  on  ERRRDT  to  solve  this 
problem.  Ordinarily,  the  ERROR  vector  points  to  a  routine 
that  prints  either  a  BASIC  error  message  or  the  READY 
prompt.  Using  the  .X  register,  this  routine  locates  the  error 
message  in  a  table  and  then  prints  it.  If  you're  in  program 
mode,  the  number  of  the  line  that's  currently  being  executed  is 
taken  from  CURLIN  (location  57  on  the  64;  59  on  the  128) 
and  is  printed  as  well. 

ERRRDT  changes  the  ERROR  vector  to  point  to  our  own 
custom  error  handler  at  EWEDGE.  If  an  error  other  than  an  il- 
legal quantity  error  occurs  (.X  <>  14),  normal  error  handling 
wul  result.  But  if  .X  contains  a  14  upon  entry  into  EWEDGE — 
meaning  an  illegal  quantity  has  occurred — the  current  DATA 
line  number  (CURLIN)  will  be  stored  into  the  current  BASIC 
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line  (DATLIN)  before  the  normal  error  handler  will  execute. 
And  so,  in  our  example  above,  instead  of  telling  us  that  the  er- 
ror occurred  in  the  line  with  the  READ  statement,  with  this 
routine  in  place,  BASIC  reports  the  actual  DATA  line  contain- 
ing the  typo. 

Of  course,  this  routine  fails  to  distinguish  among  the 
many  possible  sources  of  illegal  quantity  errors.  If  your  pro- 
gram contains  a  POKE  251,257,  for  instance,  the  error  message 
that  results  will  erroneously  point  you  to  the  last  DATA  line 
that  was  read.  Because  of  this,  you  should  limit  the  use  of  this 
wedge  to  BASIC  programs  that  contain  many  numeric  DATA 
statements — primarily  BASIC  loaders  of  ML  object  code. 


Routine 


cooo 
cooo 

ERRVEC 
ERRNOR 

= 

768 
58251 

cooo 

CURLIN 

- 

57 

cooo 

DATLIN 

- 

63 

;  error  vector 

;  ERRNOR  -  19775  on  the  128— normal 

;  error-service  routine 

;  CURLIN  -  59  on  the  128— current  BASIC 

;  line  being  executed 

;  DATLIN  =  65  on  the  128— current  data 

,-Iine 


COOO  A9    OB 

C002  8D    00     03 

C005  A9    CO 

C007  8D    01      03 

C00A  60 


C00B     EO    0E 
COOD    DO    08 


ERRRDT      LDA  #<EWEDGE 

STA  ERRVEC 

LDA  #>EWEDGE 

STA  ERRVEC +1 
RTS 


EWEDGE       CPX       #14 
BNE       EXIT 


COOF  A5  3F 

C011  85  39 

C0I3  A5  40 

C015  85  3A 

C017  4C  8B     E3     EXIT 


LDA  DATLIN 

STA  CURLIN 

LDA  DATUN+1 

STA  CURLIN +1 

JMP  ERRNOR 


:  Insert  a  custom  error  routine  that  looks  (or 
;  an  illegal  quantity  error. 
;  Assume  it  occurs  while  reading  data  and 
;  report  the  data  line  number, 

;  ERRRDT  points  the  ERRVEC  vector  to  our 

;  routine. 

;  low  byte  first 

;  then  high  byte 

;  and  exit  the  setup  routine 

:  Upon  entry,  .X  contains  the  error  number. 

;  We  let  the  system  handle 

;  all  errors  except  the  illegal  quantity  error 

1  (error  14). 

;  is  it  an  illegal  quantity  error? 

;  if  not,  exit  through  the  normal  error  handier 

;  Otherwise,  substitute  the  current  data  line 

;  for  the  current  BASIC  line. 

:  low  byte  first 

;  then  high  byte 

;  and  execute  the  normal  error  handler 
;  routine 


See  also  DISRSR,  DISTOP,  RSTVEC. 
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Name 

Produce  an  explosion  sound 

Description 

EXPLOD  provides  the  sound  of  an  explosion  and  could  be 
used  in  any  number  of  game  programs,  with  or  without 
modification. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  the  necessary  SID  chip  parameters  (volume, 
attack/decay,  sustain/release,  and  frequency). 

3.  Select  the  noise  waveform  and  gate  the  sound. 

4.  Cause  a  delay  (here,  120  jiffies),  and  then  start  the  release 
cycle  (ungate  the  sound). 

5.  Then  RTS. 

Explanation 

This  routine  relies  on  the  noise  waveform  to  achieve  its  effect. 
You  can  alter  the  sound  that's  produced  by  varying  a  number 
of  parameters  in  the  routine.  These  include  the  attack/decay 
and  sustain/release  rates,  the  base  frequency  for  the  noise 
waveform,  and  the  number  of  jiffies  between  gating  and 
ungating  the  chip. 

EXPLOD  is  no  different  in  one  respect  from  other  sound- 
effect  routines  in  this  book.  After  the  release  cycle  is  complete, 
the  SID  chip  hums  on  in  the  background.  Again,  to  prevent 
this,  after  the  explosion  has  sounded,  store  zeros  in  the  fre- 
quency registers  (FREHI1,  FREHI3)  or  turn  the  chip  off  al- 
together by  JSRing  to  SIDCLR. 

Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 

cooo 

C003 
C005 
C008 


20  2F 

A9  OF 

8D  18 

A9  0C 

COOA    8D  05 

C00D    A9  18 


SIGVOL 

ATDCY1 

SUREL1 

FRELOl 

FREHI1 

VCREG1 

J1FFLO 

CO    EXPLOD 

D4 

D4 


CO0F 
C012 
C014 
C017 


8D  06 

A9  00 

8D  00 

A9  18 


in 


Dl 


JSR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 


54296 
54277 
54278 
54272 
54273 
54276 
162 

SIDCLR 

#15 

SIGVOL 

#$0C 

ATDCY1 

#$18 

SUREL1 

#0 

FRELOl 

#24 


;  SID  chip  volume  register 

;  voice  I  attack/decay  register 

:  voice  I  sustain/release  register 

;  voice  1  frequency  control  (low  byte) 

;  voice  1  frequency  control  (high  byte) 

:  voice  1  control  register 

;  low  byte  of  jiffy  clock 

;  clear  the  SID  chip 
;  set  volume 

;  set  attack/decay 

;  se(  sustain/ release 

;  set  voice  1  low  frequency 

;  net  voice  1  high  frequency 
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C019 

8D 

01 

D4 

STA 

FREHH 

C01C 

A9 

81 

LDA 

#%10000001 

select  noise  waveform  and  ga 

C01E 

8D 

04 

D4 

STA 

VCREG1 

C021 

A9 

78 

LDA 

#120 

cause  a  delay  of  120  jiffies 

C023 

65 

A2 

ADC 

JIFFLQ 

add  current  jiffy  reacting 

C025 

C5 

A2 

DELAY 

CMP 

JIFFLO 

and  wail  for  120  jiffies  lo  ela 

C027 

DO 

FC 

BNE 

DELAY 

C029 

A9 

80 

LDA 

#%10000000 

ungate  sound 

C02B 

8D 

04 

D4 

STA 

VCREG1 

C02E 

60 

RTS 

Clear  the  SID  chip. 

C02F 

A9 

00 

SIDCLR 

LDA 

#0 

fill  with  zeros 

C031 

AO 

18 

LDY 

#24 

index  to  FRELOl 

C033 

99 

DO 

D4 

SIDLOP 

STA 

FRELOl.Y 

store  zero  in  SID  chip  address 

C036 

88 

DEY 

for  next  lower  byte 

C037 

10 

FA 

BPL 

SIDLOP 

fill  25  bytes 

C039 

61) 

RTS 

See  also  BEEPER,  BELLRG,  INTMUS,  MELODY,  NOTETB,  SIDCLR, 
SIDVOL,  SIRENS. 
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Name 

Print  floating-point  accumulator  1  to  a  specified  number  of 
decimal  places 

Description 

If  you  print  a  floating-point  variable,  anywhere  from  zero  to 
nine  decimal  places  may  be  displayed.  In  many  situations, 
you'll  want  to  format  your  numeric  output.  With  FACPRD, 
you  can  do  just  that.  This  routine  lets  you  specify  the  number 
of  decimal  places  to  print  when  you're  outputting  floating- 
point numbers  to  the  screen.  In  the  process,  no  rounding 
occurs. 

Prototype 

1.  Enter  this  routine  with  the  number  of  decimal  places  to 
print  in  DECIML. 

2.  Keep  a  counter  of  digits  past  the  decimal  in  zero  page. 

3.  Load  each  character  from  the  number  string. 

4.  If  the  end  of  the  string  is  reached  (a  zero  byte  occurs),  print 
a  decimal  point  and/or  the  proper  number  of  trailing  zeros 
(in  OUTCHK). 

5.  Increase  the  decimal  counter  if  the  decimal  point  has  been 
printed. 

6.  Otherwise,  check  the  current  character  for  a  decimal  point. 
If  one  occurs,  increase  the  decimal  counter. 

7.  Check  to  see  whether  zero  decimal  places  have  been  re- 
quested. If  so,  exit  the  routine. 

8.  Determine  whether  the  last  decimal  place  has  been  printed. 
If  so,  place  a  terminator  byte  of  zero  at  the  end  of  the  num- 
ber string. 

9.  Print  the  current  character  and  branch  back  to  step  3. 

Explanation 

This  program  is  much  like  the  example  program  shown  under 
FACPRT,  where  a  floating-point  number — 365.25 — is  con- 
verted to  an  ASCII  string  and  printed  to  the  screen.  Again,  in 
this  routine,  the  number  365.25  is  printed.  Here,  however,  you 
have  the  option  of  specifying  the  number  of  decimal  places 
(0-9)  that  are  displayed.  Notice  that  CHRGTR  allows  only  nu- 
meric input,  with  the  exception  of  the  RETURN  key.  Pressing 
RETURN  exits  the  program. 

FACPRD  takes  the  ASCII  string  in  the  workspace  area  at 
the  top  of  the  stack  (beginning  at  $100)  and  displays  it  to  the 
number  of  decimal  places  in  DECIML.  The  routine  begins  by 
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initializing  a  decimal  -place  counter  in  zero  page  to  $FF.  Each 
character  from  the  string  is  then  examined  to  see  whether  it's 
a  terminator  byte  (zero)  or  a  decimal  point. 

If  a  terminator  byte  occurs,  we  branch  to  the  routine 
OUTCHK.  OUTCHK  prints  a  decimal  point  (if  needed)  and  the 
proper  number  of  trailing  zeros. 

If  a  decimal  point  occurs,  increment  the  decimal  counter 
and  print  the  decimal  point  if  one  or  more  decimal  places 
have  been  requested.  As  a  result,  the  counter  will  contain  a 
positive  value  once  the  decimal  point  has  been  printed.  On 
the  other  hand,  if  DECIML  is  zero  (no  decimal  places  have 
been  specified),  we  simply  exit  the  routine. 

Assuming  the  decimal  point  has  been  printed,  before  we 
print  each  character  from  the  string,  the  decimal  counter  is 
compared  to  DECIML  (the  number  of  decimal  places  requested). 
If  they  agree  in  value,  a  terminator  byte  is  placed  at  the  next 
character  position  within  the  string.  So,  after  the  current  charac- 
ter is  printed,  the  next  character  (the  zero  byte)  will  send  us  to 
OUTCHK  where  trailing  zeros  can  be  added  if  necessary. 

Routine 


cooc 


ZP 

CHROUT 
CETIN 
FAC1 

FOUT 

STWORK 


251 
6S490 
65508 
97 

48605 

256 


cooo 

A9 

93 

CIRCHR 

LDA 

#147 

C002 

20 

D2 

FF 

JSR 

CHROUT 

C005 

A0 

00 

OUTLOP 

LDY 

#0 

C007 

B9 

8C 

CO 

PRTIOP 

LDA 

STR1NG.V 

COOA 

F0 

06 

BEQ 

CHRGTR 

COOC 

20 

D2 

FF 

JSR 

CHROUT 

C0OF 

C8 

INY 

C010 

DO 

F5 

BNE 

PRTLOP 

C012 

20 

E4 

FF 

CHRGTR 

ISR 

GETIN 

C015 

F0 

FB 

BEQ 

CHRGTR 

C017 

C9 

0D 

CMP 

#13 

C019 

F0 

27 

BEQ 

EXIT 

C01B 

CD 

AD 

CO 

CMP 

RANGE  1 

CO  IE 

90 

F2 

BCC 

CHRGTR 

C020 

CD 

AE 

CO 

CMP 

RANGE2 

C023 

B0 

ED 

BCS 

CHRGTR 

C025 

29 

OF 

AND 

#15 

C027 

8D 

155 

CO 

STA 

DECIML 

;  FAC1  =  99  on  the  128 — (loating-poinl 

;  accumulator  1 

:  FOUT  =  36418  on  the  128— converts  FAC1 

;  to  ASCII 

:  workspace  at  the  top  of  the  stack 

• 

;  Print  the  number  in  floating-point 

;  accumulator  1  to  the  number 

;  of  decimal  places  requested.  Quit  on 

.RETURN. 

;  clear  the  screen 

as  an  index  for  PRTLOP 

print  the  prompt  "NUMBER  OF  DECIMAL 

PLACES  (0-9)?" 

if  zero  byte,  skip  ahead 

print  each  character  In  the  prompt 

next  character 

branch  always 

get  a  keypress  in  the  range  0-9.  or  a 

RETURN 

if  no  keypress 

is  it  RETURN? 

if  so,  then  quit 

is  it  zero? 

if  it's  less,  get  another  key 

is  it  9  plus  1? 

if  it's  more,  get  another  key 

put  ASCII  number  in  a  range  0-9 

store  .A  for  FACPRD 
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C02A 

AD 

05 

LDY 

#5 

C02C 

B9 

AF 

CO 

LOOP 

IDA 

FPNUM.Y 

C02F 

99 

61 

00 

STA 

FAC1.Y 

C032 

8S 

DEY 

C033 

10 

F7 

BPL 

LOOP 

C035 

20 

DD  BD 

JSR 

FOUT 

C038 

20 

43 

CO 

[SR 

FACPRD 

C03B 

A9 

OD 

LDA 

#13 

C03D 

20 

D2   TF 

JSR 

CHROUT 

C040 

DO 

C3 

BNE 

OUTLOP 

C042 

60 

EXIT 

RTS 

C043 

AO 

00 

FACPRD 

LDY 

#0 

C045 

A2 

FF 

LDX 

#255 

C047 

86 

FB 

STX 

ZP 

C049 

B9 

00 

01 

MORE 

LDA 

STWORK.Y 

C04C 

FO 

20 

BEQ 

OUTCHK 

C04E 

A6 

FB 

LDX 

ZP 

CX!50 

10 

04 

BPL 

INCRZP 

C052 

cs 

2E 

CMP 

#46 

C054 

DO 

12 

BNE 

PRINT 

C056 

E6 

FB 

INCRZP 

INC 

ZP 

C058 

AE 

B5 

CO 

LDX 

DECIML 

COSB 

FO 

2F 

BEQ 

OUT 

C05D 

E4 

FB 

CPX 

ZP 

C05F 

DO 

07 

BNE 

PRINT 

C061 

48 

PHA 

C062 

A9 

00 

LDA 

#0 

COM 

99 

01 

01 

STA 

STWORK+l,Y 

C067 

68 

PLA 

C068 

20 

D2 

FF 

PRINT 

JSR 

CHROUT 

C06B 

C8 

INY 

C06C 

DO 

DB 

BNE 

MORE 

C06E 

AE 

B5 

CO 

OUTCHK 

LDX 

DECIML 

C071 

E4 

FB 

CPX 

ZP 

C073 

FO 

16 

BEQ 

OUT 

C07S 

BO 

05 

BCS 

DECIZR 

C077 

A9 

2E 

LDA 

#46 

C079 

20 

D2 

FF 

JSR 

CHROUT 

C07C 

AD 

B5 

CO 

DECEZR 

LDA 

DECIML 

C07F 

38 

SEC 

C080 

E5 

FB 

SBC 

ZP 

C082 

AA 

TAX 

C083 

A9 

30 

LDA 

#48 

C085 

20 

D2 

FF 

ZRLOOP 

JSR 

CHROUT 

C088     CA  DEX 

C089     DO    FA  BNE 

C08B     60  RTS 


ZRLOOP 


index  to  floating-point  number 
store  each  byte  of  FPNUM  in  FAC1 

(or  next  byte 

if  ,Y  is  0-5,  continue 

convert  contents  of  FACl  to  ASCII  string 

string  is  in  stack  area 

print  the  FACl  to  DECIML  decimal  places 

print  RETURN 

handle  another  request 


FACPRD  displays  the  number  in  FACl  to  a 

number  (DECIML)  of  decimal  places. 

as  an  Index 

as  a  decimal  counter 

store  decimal  counter  in  zero  page 

load  each  ASCII  byte  of  string 

if  zero  byte,  print  decimal  and/or  trailing 

zeros 

check  decimal  counter 

increase  decimal  counter  if  decimal  has 

already  been  reached 

is  it  currently  a  decimal  point? 

no,  so  print  .A 

increment  decimal  counter 

load  with  number  of  decimal  places 

requested 

if  zero  decimal  points  requested 

compare  with  decimal-place  counter 

we  haven't  reached  the  last  one,  so  print 

.A 

save  .A 

put  terminator  character  in  the  position 

which  follows 

restore  .A 

print  a  character 

next  character 

branch  always 

see  whether  decimal  and/or  extra  zeros 

need  printing 

have  all  decimal  places  been  printed? 

yes,  so  get  out 

if  carry  set,  we  need  to  print  one  or  more 

trailing  zeros 

otherwise,  print  a  decimal  point 

subtract  decimal  counter  from  requested 
number  of  places 


well  fill  remainder  with  zeros 

print  a  zero 

if  more  to  print,  continue 


C08C    4E    55     4D    STRING         .ASC      "NUMBER  OF  DECIMAL  PLACES  (0-9)?" 
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COAB    OD    00 

COAD  30  RANGE  1 

COAE    3A  RANGE2 

COAF   89    B6  AO   FPNUM 


.BYTE    13,0 


;  carriage  return  and  terminator  byte 


.BYTE   48  ;ASO10 

.BYTE    58  ;  ASCII  9  plus  1 

.BYTE    137,182,160,0,0,0 

;  the  value  for  365.25  in  FP  accumulator 
.BYTE    0  ;  storage  for  number  of  decimal  places 


COBS    00  DECIML 

See  also  BYTASC,  CNUMOT,  FACPRT,  NUMOUT. 
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Name 

Print  the  value  in  floating-point  accumulator  1 

Description 

All  BASIC  mathematical  operations  use  a  series  of  six  loca- 
tions— known  collectively  as  a  floating-point  accumulator — to 
store  real  numbers.  Actually,  the  64  and  128  have  two  sepa- 
rate floating-point  accumulators.  The  primary  one,  located  at 
97-102  on  the  64  and  99-104  on  the  128,  is  labeled  FAC1. 
The  secondary  one,  often  used  to  hold  an  interim  value  in  a 
calculation,  is  FAC2  (located  at  105-110  on  the  64  and 
107-112  on  the  128). 

At  any  rate,  whether  you  use  BASIC'S  built-in  routines  as 
they  are,  modify  them,  or  write  your  own,  you'll  certainly 
need  to  display  the  contents  of  these  floating-point  accu- 
mulators at  some  point.  The  routine  that  follows  prints  the 
contents  of  floating-point  accumulator  1  to  the  screen. 

Prototype 

1.  Prior  to  the  routine,  JSR  to  FOUT  to  convert  the  contents  of 
floating-point  accumulator  1  to  an  ASCII  string  at  $100. 

2.  Beginning  at  $100,  print  each  byte  of  the  string  until  a  zero 
byte  is  found. 

Explanation 

In  the  example  program,  the  number  365.25 — the  number  of 
days  in  a  year — is  represented  by  FPNUM,  just  as  it  would  ap- 
pear in  one  of  the  floating-point  accumulators.  The  first  byte 
of  FPNUM  is  the  binary  exponent  of  the  number  (plus  129  to 
account  for  negative  exponents) — that  is  137  —  129,  which  is 
8,  so  the  exponent  is  2  to  the  eighth  power.  The  next  four 
bytes  are  the  mantissa  of  the  number,  with  the  first  bit  in  the 
series  containing  the  sign  of  the  number.  The  last  byte  is  the 
sign  byte — 0  indicates  a  positive  number;  255,  a  negative 
number. 

In  the  program,  the  floating-point  representation  of 
365.25  is  stored  in  floating-point  accumulator  1.  The  BASIC 
routine  FOUT  (located  at  48605  on  the  64  and  36418  on  the 
128)  converts  it  into  an  ASCII  string  and  stores  it  in  a 
workspace  area  at  the  top  of  the  stack  (beginning  at  $100). 
After  the  number  has  been  converted,  FACPRT  prints  it  to  the 
screen. 

In  converting  the  floating-point  number  to  an  ASCII 
string,  FOUT  positions  a  terminator  byte  of  zero  at  the  end  of 
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the  string.  As  a  result,  this  routine  is  much  like  other  string- 
printing  routines  in  this  book.  Using  CHROUT,  you  simply 
output  each  byte  of  the  string  to  the  screen  until  a  zero  byte  is 
reached. 


Routine 


cooo 

CHROUT       = 

65490 

cooo 

FACl 

97 

;  FACl  —-  99  on  the  128 — floating-point 
:  accumulator  1 

cooo 

FOUT 

48605 

;  FOUT  =  36418  on  the  128 — converts  FACl 
;  to  ASCII 

cooo 

STWORK       = 

256 

;  workspace  at  the  top  of  the  stack 

COOO  MAIN 

COOO  A9  93  CLRCHR 

C002  20  t>2    FF 

C005  AO  05 

C007  B9  24     CO    LOOP 

COO A  99  61     00 

CO0D  88 

C00E  10  F7 

C010  20  DD  BD 

C013  4C  16     CO 


IDA 

JSR 

LDY 


•147 

CHROUT 

#5 

LDA      FPNUM.Y 
STA       FAC1.Y 
DEY 
BPL 
|SR 


LOOP 
FOUT 


IMP      FACPRT 


C016 

A0 

00 

FACPRT 

LDY 

#0 

C018 

B9 

00 

01 

MORE 

LDA 

STWORK,Y 

C01B 

F0 

06 

BEQ 

OUT 

C01D 

20 

D2 

FF 

JSR 

CHROUT 

COZO 

ca 

INY 

C021 

DO 

F5 

BNE 

MORE 

C023 

hO 

OUT 

RTS 

Print  the  number  in  floating-point 
accumulator  1. 

clear  the  screen 

index  to  floating-point  number 
store  each  byte  of  FPNUM  iit  FACl 


;  if  .Y  Is  0-5,  continue 

;  convert  contents  of  FACl  to  ASCH  string 

;  string  is  in  stack  area 

;  print  the  FACl  value  and  return 

;  FACPRT  prints  the  number  in  floating- 

;  point  accumulator  1. 

;  as  an  Index 

I  load  each  ASCII  byte  of  string 

;  if  xeio  byfe,  we're  finished 

;  otherwise,  print  it 

:  next  byte 

;  branch  always 

:  return  to  MAIN 


C024     89     B6    A0    FPNUM         -BYTE    137.182,160,0,0.0 

;  the  value  for  365.25  in  FP  accumulator  1 

See  also  BYTASC,  CNUMOT,  FACPRD,  NUMOUT. 
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Name 

Retrieve  from  expansion  RAM  memory 

Description 

FETCH  is  just  the  opposite  of  STASH;  it  tranfers  bytes  from 
expansion  RAM  in  the  model  1700  and  1750  RAM  Expansion 
Modules  into  system  memory. 

Prototype 

1.  Enter  this  routine  with  the  REC  registers  set  with  the  appro- 
priate system  memory  base  address,  expansion  RAM  base 
address,  and  number  of  bytes  to  transfer.  The  .X  register 
should  contain  the  system  bank  number. 

2.  Load  .Y  with  the  value  required  in  the  command  register 
(location  57089)  to  perform  a  fetch  operation. 

3.  JMP  to  the  Kernal  routine  DMACALL. 

Explanation 

Memory  locations  57088-57098,  on  the  128,  are  used  to  ad- 
dress the  REC  (RAM  Expansion  Controller  chip)  registers  in 
the  model  1700  or  1750  RAM  Expansion  Modules.  The  REC 
chip  performs  four  different  memory-management  operations: 
stashing,  fetching,  swapping,  and  verifying. 

The  program  below  is  designed  to  be  used  with  the  pro- 
gram provided  with  STASH.  That  particular  program  stores 
BASIC  programs  into  one  of  four  32K  memory  partitions  in 
the  RAM  expansion  unit.  This  program,  on  the  other  hand,  re- 
trieves BASIC  programs  which  have  been  stored  to  the  expan- 
sion module. 

So,  after  you've  run  the  program  associated  with  STASH 
and  saved  a  few  BASIC  programs  to  expansion  RAM,  run  this 
one.  Notice  that  since  it's  assembled  at  a  different  location 
than  its  companion  program,  both  can  reside  in  memory 
simultaneously. 

Next,  SYS  to  the  starting  location  (4864)  of  the  program, 
following  the  SYS  address  with  the  number  of  a  partition  that 
contains  a  previously  stored  BASIC  program.  For  example,  sup- 
pose you  wanted  to  fetch  a  previously  saved  BASIC  program 
from  partition  2,  you'd  enter  SYS4864,2.  The  BASIC  program 
in  partition  2  would  then  be  restored  to  the  BASIC  text  area. 

The  program  associated  with  STASH,  when  called,  saves 
the  BASIC  pointers— the  start-  and  end-of-BASIC  addresses — 
followed  by  the  BASIC  program  itself.  Two  separate  transfer 
operations  are  required  to  restore  it.  The  BASIC  pointers  are 
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'loo 

CHROUT 
DMACALL 

- 

65490 
65360 

1300 
1300 

DMASYA 
DMAEXA 

— 

57090 
57092 

1300 
1300 
13O0 
1300 
1300 

DMABNK 

DMADAT 

TXTTAB 

TEXTTP 

ZP 

= 

57094 
57095 
45 
4624 

251 

the  first  thing  brought  back  from  the  designated  partition. 
Once  they're  installed,  the  BASIC  program  which  follows  is 
retrieved.  As  with  the  companion  program,  the  expansion- 
RAM  base  address  updates  automatically  with  each  byte  trans- 
ferred (bits  6  and  7  in  57098  are  00  by  default). 

Routine 


,  Kerna!  routine  which  passes  command  in  .X 

;  to  DMA  controller 

:  DMA  system  memory  base  address  register 

;  DMA  expansion  memory  base  address 

;  register 

;  DMA  expansion  memory  bank  register 

;  DMA  number  of  bytes  to  transfer 

;  start-of-BASIC  pointer 

;  end-of-BASIC  program  pointer 


;  Get  BASIC  program  from  RAM  expansion 

:  bank  0  or  1  on  32K  boundaries. 

;  Use  this  program  in  tandem  with  the 

;  program  under  STASH. 

,•  make  sure  .A  is  in  range  1-4 

:  .A  is  less  than  1,  so  print  an  error  message 

;  and  leave 

;  .A  is  5  or  greater,  so  print  error  message 

;  and  leave 

;  now  subtract  1  to  put  it  in  range  0-3 

;  determine  RAM  expansion  bank 

;  store  it  into  register 

;  determine  32K  offset  In  each  bank  (high 

;  byte) 

;  also  store  zero  into  base  address  tor 

;  expansion  memory  (low  byte) 

;  if  partition  number  is  1  or  3.  carry  is  clear. 

;  so  OK  offset 

;  offset  by  32K  if  partition  number  is  2  or  4 

;  store  in  base  address  tor  expansion  memory 

;  (high  byte) 

;  store  starting  address  of  two  pointers  in 

;  system-memory  address  register 

;  low  byte 

;  store  number  of  bytes  to  transfer  in  DMA 

;  register  (low  byte) 

:  store  zero  to  high  byte 

;  also  store  zero  to  high  byte  of  system- 

;  memory  address 

;  put  system-memory  bank  number  in  -X 

;  retrieve  BASIC  pointers 

;  install  start-of-BASIC  pointer 


;  install  end-of-BASIC  pointer 


1300 

C9 

01 

CMP 

el 

1302 

90 

5D 

BCC 

PRTMSG 

1304 

C9 

05 

CMP 

»5 

1306 

BO 

59 

BCS 

PRTMSG 

1308 

38 

SEC 

1309 

E9 

01 

SBC 

#1 

130B 

4A 

LSR 

130C 

8D 

06 

DF 

STA 

DMABNK 

130F 

A9 

00 

LDA 

#0 

1311 

«D 

04 

DF 

STA 

DMAEXA 

1314 

90 

02 

BCC 

EXPOFF 

1316 

A9 

20 

LDA 

#32 

1318 

8D 

05 

DF   EXPOFF 

STA 

DMAEXA +1 

131B 

A9 

EB 

LDA 

#ZP 

131D 

8D 

02 

DF 

STA 

DMASYA 

1320 

A9 

04 

LDA 

#4 

1322 

8D 

07 

DF 

STA 

DMADAT 

1325 

A9 

00 

LDA 

#0 

1327 

8D 

OS 

DF 

STA 

DMADAT-t-1 

132A 

8D 

03 

DF 

STA 

DMASYA +1 

132D 

AA 

TAX 

132E 

20 

6F 

13 

JSR 

FETCH 

1331 

AS 

FB 

LDA 

ZP 

1333 

85 

2D 

STA 

TXTTAB 

1335 

A5 

FC 

LDA 

ZP+1 

1337 

85 

2E 

STA 

TXTTAB+1 

1339 

A5 

FD 

LDA 

ZP+2 

133B 

8D 

10 

12 

STA 

TEXTTP 

133E 

A5 

FE 

LDA 

ZP+3 

235 


FETCH  (128  only) 


1340     8D    11     12 


1343  38 

1344  AD  10     12 
1347  E5     2D 
1349  8D    07     DF 

134C  AD   11     12 

134F  E5     2E 

1351  8D    08     DF 

1354  A5    2D 

1356  8D    02     DF 

1359  A5    2E 

135B  8D    03     DF 


135E     4C    6F     13 


STA      TEXTTP+1 


SEC 

LDA 
SBC 
STA 

LDA 
SBC 
STA 
LDA 

STA 
LDA 
STA 


TEXTTP 
TXTTAB 
DMADAT 

TEXTTP  +  1 
TXTTAB +1 
DMADAT +1 
TXTTAB 

DMA5YA 

TXTTAB+1 

DMASYA+1 


JMP       FETCH 


1361 

A0 

00 

PRTMSG 

LDY 

#0 

1363 

B9 

74 

13 

PRTLOP 

LDA 

ERRMSG.Y 

1366 

FO 

06 

BEQ 

PRTEND 

1368 

20 

D2 

FF 

JSR 

CHROUT 

136B 

C8 

INY 

136C 

DO 

FS 

BNE 

PRTLOP 

136E 

60 

PRTEND 

RTS 

136F 

AO 

SI 

FETCH 

LDY 

#%10000001 

1371 

4C 

50 

FF 

JMP 

DMACALL 

,  Now  retrieve  BASIC  program  which  was 

;  saved  after  the  pointers. 

;  determine  number  of  bytes  in  BASIC 

;  program 

;  get  end-of-BASIC  low  byte 

(  subtract  start-of-BASIC  low  byte 

I  store  result  into  DMA  register  for  number  of 

;  bytes  to  transfer 

;  gel  end-of-BASIC  high  byte 

I  subtract  start-of-BASIC  high  byte 

;  store  to  high  byte  of  register 

;  store  starting  address  of  BASIC  as  system 

;  base  address 


:  System  bank  number  is  in  .X,  and  DMAEXA 
;  updates  automatically  (see  57098). 
;  retrieve  BASIC  program  and  RTS 

;  index  for  PRTLOP 

;  get  a  character  for  the  error  message 

;  end  on  a  zero  byte 

;  print  the  character  if  not  zero 

;  next  character 

;  branch  always 

;  leave  the  program 

;  Enter  this  routine  with  DMA  registers  set 
i  up.  and  system  bank  number  in  .X 
I  command  register  (57089)  value  for  fetch 
;  call  DMA  Keraal  routine  and  RTS 


1374      4E    4F    54     ERRMSG       .ASC 
1390     00  BYTE   0 

See  also  STASH. 


"NOT  A  VALID  PARTITION  NUMBER" 
;  error  message 
;  terminator  byte 
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Name 

General  memory  fill 

Description 

This  routine  fills  a  portion  of  memory  with  a  particular  byte. 
Just  specify  in  the  equates  the  starting  address  for  the  portion 
of  memory  you  want  to  fill  (BLOCK),  the  number  of  bytes  you 
want  to  fill  (NUMBER),  and  the  particular  byte  you  want  to 
store  (FILBYT). 

Prototype 

1.  Store  the  number  of  bytes  to  be  filled  into  the  variable 
COUNTR  at  the  end  of  the  program. 

2.  Store  the  accumulator  containing  the  fill  byte  into  a  tem- 
porary storage  location  (TEMPA). 

3.  In  FILLOP,  store  the  contents  of  TEMPA  in  BLOCK,  using 
zero-page  addressing  until  COUNTR  decrements  to  zero. 
Then  return  to  the  calling  program. 

Explanation 

To  demonstrate  FILMEM,  the  example  program  stores  a  90 
(screen  code  for  Z)  into  400  bytes  of  screen  memory. 

Within  the  routine  itself,  a  two-byte  counter  (COUNTR) 
decrements  each  time  a  byte  is  copied.  When  this  counter 
reaches  0  (the  high  byte  must  decrement  to  255  on  the  last 
pass),  the  routine  is  complete. 

On  the  128,  to  fill  memory  in  another  bank,  use  the 
Kernal  routine  INDSTA  at  65399.  Define  the  target  bank  num- 
ber at  the  end  of  the  program  as  BNKFIL.  Then  substitute  the 
four  commented  instruction  lines  in  the  middle  of  FILMEM 
for  the  STA  (ZP),Y  at  $C024. 

Routine 


cooo 

ZP 

= 

251 

cooo 

CHROUT 

= 

65490 

cooo 

BLOCK 

= 

1384 

memory  block  to  nil 

cooo 

FILBYT 

= 

90 

byte  to  fill  with 

cooo 

NUMBER 

= 

400 

number  of  bytes  to  fill 

cooo 

INDSTA 

65399 

Kerr.al  routine  to  store  indirectly  to  anv 
bank  (128  only) 

Fill  NUMBER  of  bytes  of  memory  with  the 
value  in  .A. 

cooo 

A9 

93 

CLRCHR 

LDA 

0147 

clear  the  screen 

C002 

20 

D2    FF 

)SR 

CHROUT 

C005 

A9 

68 

LDA 

»<BLOCK 

store  memory  block  to  fill  in  zero  page,  lov 
byte  first 

C007 

85 

FB 

STA 

ZP 

C009 

A2 

OS 

LDX 

*>  BLOCK 

then  high  byte 

C00B 

86 

FC 

STX 

ZP  +  1 
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COOD  A2  90 

COOF  AO  01 

C011  A9  5A 

C013  4C  16     CO 


LDX  *<NUMBER 

LDY  #>NUMBER 

LDA  #FILBYT 

(MP  FILMEM 


COM 

9E     3C 

CO 

FILMEM 

STX 

COUNTR 

C019 

8C    3D 

CO 

STY 

COUNTR+1 

C01C 

8D    3E 

CO 

STA 

TEMPA 

COIF 

AO    00 

LDY 

#0 

C021 

AD  3E 

CO 

F1LLOP 

LDA 

TEMPA 

C024 

91     FB 

STA 

<ZP),Y 

C026  E6  FB 

C028  DO  02 

C02A  E6  FC 

C02C  CE  3C    CO    DECCTR 

C02F  DO  FO 

C031  CE  3D    CO 

C034  AD  3D    CO 


INC  ZP 

BNE  DECCTR 

INC  ZP+1 

DEC  COUNTR 

BNE  FILLOP 

DEC  COUNTR+1 

LDA  COUNTR+1 


C037 

C9 

FF 

CMP     #255 

C039 
C03B 

DO 
60 

E6 

BNE      FILLOP 
RTS 

C03C 

00 

00 

COUNTR 

.WORDO 

C03E 

00 

TEMPA 

BYTE   0 

then  put  low  bvte  of  number  of  bytes  to  fill 

in  .X 

and  high  byte  in  Y 

byte  to  fill  with  in  -A  (screen  code  for  a 

diamond) 

fill  memory  and  RTS 

Fill  memory.  Enter  with  the  number  of 

bytes  to  move  in  .X  (low) 

and   Y  (high).  Memory  block  is  in  two  bytes 

at  ZP. 

slore  number  «o  COUNTR,  low  byte  flrat 

then  high  byte 

store  FILBYT  temporarily 

index  for  FILLOP 

restore  FILBYT  In  .A 

store  a  byte  into  memory  block 

For  the  128,  substitute  the  next  four  lines 

for  the  previous  line 

to  fill  memory  in  another  bank. 

LDX  #ZP;  put  zero-page  pointer  to 

memory  block  in  location  697 

STX  697 

LDX  BNKFIL;  bank  number  for  memory 

mi 

JSR  INDSTA;  store  into  bank  .X 
beginning  at  block 

Increase  ZP  pointer  by  one,  low  byte  first 

if  low  byte  hasn't  turned  over,  decrement 

the  counter 

increase  ZP  high  byte 

decrement  counter  low  byte 

if  low  byte  hasn't  turned  over,  continue 

filling 

otherwise,  decrement  the  high  byte 

determine  whether  we've  filled  the  last 

page 

on  the  last  page,  high  byte  of  counter  goes 

from  0  through  255 

If  not  on  the  last  page,  continue 


two-byte  counter  for  remaining  number  of 
bytes  to  fill 
temporary  .A  storage 
BNKFIL  .byte  15;  the  bank  number  for 
;  memory  fill  (128  only) 
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Name 

Find  the  cursor  location 

Description 

FINDCR  uses  the  Kernal  routine  PLOT  to  return  the  current 
cursor  position  by  row  (in  .X)  and  column  (in  .Y).  This  routine 
is  handy  in  game  writing,  especially  when  you're  tracking  a 
player's  screen  position. 

Prototype 

1.  Set  the  carry  flag — required  by  PLOT. 

2.  JSR  to  the  Kernal  routine  PLOT  and  return  (or  simply  JMP 
to  PLOT). 

Explanation 

The  example  routine  allows  you  to  move  about  the  screen  by 
using  the  cursor  keys  or  simply  by  typing  in  characters.  When- 
ever you  press  X,  its  position  is  returned  to  the  main  program 
by  FINDCR.  The  row  and  column  number,  separated  by  a 
space,  are  then  printed  with  NUMOUT. 

Note:  Setting  the  carry  flag  and  calling  PLOT  causes  the 
cursor  position  to  be  placed  in  .X  and  .Y.  Upon  returning  from 
PLOT,  .X  contains  one  fewer  than  the  actual  row  number, 
while  .Y  contains  one  fewer  than  the  column  number — that  is, 
if  you're  used  to  numbering  the  columns  1-40  and  the  rows 
1-25.  Programmers  who  start  counting  at  zero  will  find  the 
columns  and  rows  to  be  just  right  (0-39  and  0-24,  or  0-79 
and  0-24  on  the  80-column  screen  of  the  128).  If  you're  work- 
ing within  a  window  on  the  128,  the  values  returned  in  .X  and 
.Y  are  relative  to  the  top  of  the  window  rather  than  to  the  top 
of  the  screen. 

Warning:  If  you  use  this  routine  within  a  loop  indexed  by 
.Y  or  .X,  be  sure  to  save  the  current  index  value  to  a  safe  loca- 
tion before  calling  it  since  PLOT  affects  both  the  .X  and  .Y 
registers. 

Routine 


cooo 

PLOT 

= 

65520 

;  Kemal  cursor-position  routine 

cooo 

GETTN 

•= 

65508 

cooo 

CHROUT 

= 

65490 

cooo 

LINPRT 

48589 

;  LINPRT  =  36402  on  the  128 

;  Print  the  current  cursor  row  (0-24)  and 
;  column  (0-39)  when  X  key  is  pressed. 

cooo 

A9 

93 

CLRCHR 

LDA 

#147 

;  dear  the  screen 

C002 

20 

D2 

FF 

ISR 

CHROUT 

C005 

20 

E4 

FF 

LOOP 

JSR 

GETIN 

;  get  a  character 

C008 

C9 

58 

CMP 

*88 

;isilX? 
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COOA     FO 

GOOC    20 

COOF 

C012 

C0I5 

C018 

C01A 

C01D    A9 

COIF 

C022 

C025 

C027 


06 

D2    FF 
4C    05    CO 
20    35    CO    LOCATE 
8C    3A    CO 
A9    58 
20 


D2    FF 
OD 


D2    FF 
30    CO 


20 

20 

A9  20 

20  D2    FF 

C02A    AE  3A    CO 

C02D    4C  30     CO 


BEQ 

)SR 

JMP 

J5R 

STY 

LDA 

JSR 

LDA 

JSR 

JSR 

LDA 

JSR 

LDX 

IMP 


C035    38  FINDCR       SEC 

C036     20     FO     FF  JSR 

C039     60  RTS 


LOCATE 

CHROUT 

LOOP 

FINDCR 

TEMPY 

#"X 

CHROUT 

#13 

CHROUT 

NUMOUT 

#32 

CHROUT 

TEMPY 

NUMOUT 


C030     A9    00  NUMOUT     LDA      #0 

C032     4C    CD   BD  JMP       1JNPRT 


PLOT 


;  it's  X.  so  determine  position 

;  otherwise,  print  character 

;  and  continue 

;  determine  the  cursor  position 

;  save  -Y 

;  print  X 

;  prim  RETURN 

;  print  Ihe  row 
;  print  space 

;  get  the  column 

;  print  the  column  and  RTS 

;  Print  the  two-byte  integer  in  .X  (low  byte) 

;  and  .A  (high  byte). 

i  high  byte  of  row  or  column  is  always  zero 

;  here 

;  pnnt  number  and  RTS 

;  Locate  the  cursor.  Return  position  in  .X 
;  (row)  and  Y  (column). 
;  set  carry  to  locate  cursor 
:  locate  the  cursor 


C03A    00  TEMPY  .BYTE    0 

See  also  PLOTCR. 


.  temporary  ,Y  storage 
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Name 

Find  the  program  counter  address  (from  a  subroutine) 

Description 

The  program  counter  (PC)  is  an  internal  register  in  the  6510 
and  8502  microprocessors  that  keeps  track  of  which  ML 
instruction  is  currently  being  executed.  There  are  times  when 
it's  necessary  to  find  out  where  in  memory  a  program  is  lo- 
cated. And,  on  occasion,  a  subroutine  may  need  to  figure  out 
which  part  of  the  program  did  the  original  JSR.  This  sub- 
routine figures  out  the  program  counter  address  and  stores  it 
in  memory. 

Prototype 

1.  JSR  to  FINDME  (the  subroutine  that  finds  the  PC). 

2.  Within  the  subroutine,  use  PLA  twice  to  pull  the  two-byte 
address  off  the  stack. 

3.  After  storing  the  address  somewhere,  push  the  address 
back. 

4.  RTS. 

Explanation 

When  you  JSR  (Jump  to  a  SubRoutine),  the  computer  has  to  be 
able  to  figure  out  the  return  address  when  an  RTS  (ReTurn 
from  Subroutine)  instruction  ends  the  subroutine.  So,  just 
before  jumping  to  the  subroutine,  the  computer  puts  the  re- 
turn address  on  the  stack,  high  byte  first,  followed  by  the  low 
byte. 

Knowing  this  makes  it  a  simple  matter  to  pull  the  address 
from  the  stack  and  store  it  in  memory  (location  829  was  cho- 
sen for  storage,  for  no  particular  reason  except  that  it's  avail- 
able on  the  64).  Before  the  subroutine  executes  the  RTS  to  get 
back,  you  must  put  the  return  address  back  on  the  stack  so 
that  the  RTS  will  work  properly. 

Note:  The  main  program  that  calls  FINDME  does  the  JSR 
at  location  $C000.  The  return  address  should  bring  you  back 
to  $C003,  the  next  instruction  after  JSR  FINDME.  Actually, 
the  address  that's  pushed  onto  the  stack  is  $C002  (the  return 
address  minus  one).  What  happens  during  an  RTS  is  that  the 
address  is  taken  from  the  stack  and  then  the  PC  is  in- 
cremented. After  each  instruction,  the  program  counter  counts 
forward,  and  RTS  is  no  exception.  Thus,  when  the  address  is 
printed,  you'll  see  a  49154  (decimal)  instead  of  a  49155. 
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Warning:  This  might  seem  to  be  a  convenient  way  to  fig- 
ure out  the  program  counter  value,  in  case  you  want  to  relocate 
the  routine  to  another  place  in  memory.  The  problem  is  that 
J5R  uses  an  absolute  address,  so  the  FINDME  subroutine  must 
be  at  a  known  location.  If  you  relocate  the  object  code  to  $8000, 
for  example,  the  first  three  bytes  of  the  program  (20  0D  CO) 
will  still  JSR  to  $C00D.  You  should  either  load  the  FINDME 
routine  as  a  separate  program  or  limit  its  use  to  finding  the 
address  of  the  calling  routine.  Another  routine  (FINDPC)  may 
be  preferable  if  you're  moving  ML  routines  around  and  don't 
know  where  they'll  be  placed. 

Location  829  is  not  available  on  the  128.  Programmers 
should  substitute  two  other  consecutive  free  memory  locations 
on  the  128. 

Routine 


cooo 

IMHERE 

= 

829 

choose  a  different  address  for  the  128 

cooo 

UNPRT 

$BDCD 

general  routine  to  print  a  two-byte  unsigned 

integer 

LINPRT  -  S8E32  ;  (substitute  this  for 

the  128) 

cooo 

20 

OD 

CO 

JSR 

FINDME 

Now  print  address  value. 

C003 

AE 

3D 

03 

LDX 

IMHERE 

low  byte 

C006 

AD 

3E 

03 

LDA 

IMHERE+1 

high  byte 

C009 

20 

CD 

BD 

JSR 

LINFRT 

print  as  a  decimal  number 

cooc 

60 

RTS 

all  done 

subroutine  to  find  address  (minus  1)  of 
calling  routine 

C0OD 

65 

FINDME 

PLA 

pull  low  byte  from  stack 

C00E 

8D 

3D 

03 

STA 

IMHERE 

store  in  IMHERE 

con 

68 

PLA 

now  get  the  high  byte 

C012 

8D 

3E 

03 

STA 

IMHERE+1 

and  store  in  IMHERE+1 

C015 

48 

PHA 

put  it  back 

C016 

AD  3D 

03 

LDA 

IMHERE 

low  byte 

C019 

48 

PHA 

goes  back  alBo 

C01A 

60 

RTS 

otherwise,  this  RTS  won't  work 

See  also  FINDPC. 
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Name 

Find  the  program  counter  address  (in-line  code) 

Description 

Most  ML  instructions  are  location-independent.  LDA  #$08 
loads  an  8  into  the  accumulator  regardless  of  where  the 
instruction  happens  to  reside  in  memory.  But  JMPs  and  JSRs 
are  absolute  instructions.  If  a  program  is  relocated  to  a  new 
section  of  memory,  the  internal  JMPs  and  JSRs  should  be 
modified.  This  routine  lets  you  find  out  where  you  are  in 
memory,  so  you  may  make  the  necessary  modifications. 

Prototype 

1.  Put  an  RTS  instruction  somewhere  safe  in  memory. 

2.  JSR  to  it,  which  means  coming  back  immediately. 

3.  Transfer  the  stack  pointer  to  .X. 

4.  Decrement  .X  twice  and  put  the  result  back  in  the  stack 
pointer  with  TXS. 

5.  Pull  the  address  from  the  stack. 

Explanation 

The  JSR  instruction  pushes  the  return  address  (minus  1)  onto 
the  stack,  which  for  the  6510  and  8502  microprocessors  is  al- 
ways located  in  page  1.  The  stack  builds  down  in  memory 
from  $1FF. 

The  opcode  for  the  RTS  instruction  is  96  (decimal),  so  if  a 
96  is  stored  in  memory  and  you  JSR  there,  the  program 
bounces  right  back  to  where  it  started.  But  in  the  meantime, 
the  stack  has  very  briefly  held  the  return  address  from  the 
JSR.  All  you  have  to  do  to  reset  the  stack  pointer  to  the  ad- 
dress is  transfer  the  stack  pointer  to  .X  (TSX),  decrement  .X 
twice,  and  transfer  .X  back  to  the  stack  pointer  (TXS).  PLA 
pulls  the  low  byte  off  the  stack  and  another  PLA  pulls  the 
high  byte. 

Note:  The  resulting  address  is  stored  in  the  IMHERE  loca- 
tion (location  829  is  used  in  the  example  routine,  but  it's  avail- 
able only  on  the  64).  The  JSR  at  $C005  originally  put  the 
address  on  the  stack.  The  return  address  is  $C008,  but  the 
value  on  the  stack  is  actually  one  less  than  that.  When  the 
transfers,  decrements,  and  pulls  are  finished,  the  result  will  be 
a  $07  in  IMHERE  and  a  $C0  in  IMHERE+1. 
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Warning:  Do  not  use  this  as  a  subroutine.  If  you  do,  you'll 
find  the  address  of  the  subroutine  instead  of  the  routine  that 
called  it. 

Locations  828-830  are  not  free  on  the  128.  Substitute 
three  other  free  locations  for  the  labels  FREE  and  IMHERE  on 
the  128. 


Routine 


cooo 

FREE 

= 

828 

cooo 

IMHERE 

'— 

829 

cooo 

S3 

60 

FINDPC 

LDA 

#96 

C002 

so 

3C 

03 

STA 

FREE 

C005 

20 

3C 

03 

JSR 

FREE 

C008 

BA 

MINUS 

TSX 

C009 

CA 

DEX 

CO0A 

CA 

DEX 

COOB 

9A 

TXS 

C00C 

68 

PLA 

COOD 

BD 

3D 

03 

STA 

IMHERE 

C010 

6R 

PLA 

am 

8D 

3E 

1)3 

STA 

IMHERE+1 

COM 

60 

RTS 

;  could  be  any  free  location 

;  two  bytes  to  store  eventual  program  counter 

;  (choose  other  addresses  for  the  128) 

;  the  object  code  for  RTS 

;  set  up  the  shortest  subroutine,  there  and 

;back 

;  bouncing  back  (note  the  address) 

;  stack  pointer  in  X 

;  decrement  once 

:  and  twice 

;  put  it  back  in  the  stack  pointer 

;  pull  one  byte 

;  low  byte  of  PC  into  IMHERE 

;  pull  the  next  byte 

;  high  byte  of  PC 

;  end  of  this  routine,  normally  we'd  process 

.-  address  value 

;  The  value  in  829  will  point  to 

;  one  byte  before  the  label  MINUS  above. 


See  also  FIND  ME. 
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Name 

Read  a  joystick  fire  button 

Description 

This  simple  routine  checks  the  fire  button  of  the  specified 
joystick. 

Prototype 

1.  Enter  this  routine  with  the  accumulator  containing  the  num- 
ber of  the  joystick  whose  fire  button  you  wish  to  check. 

2.  Load  the  contents  of  the  appropriate  joystick  register  into 
the  accumulator. 

3.  Test  bit  4  of  the  accumulator  by  ANDing  with  %00010000 
and  RTSing  to  the  main  program.  (If  the  zero  flag  is  set  as  a 
result  of  the  AND,  the  fire  button  is  pressed.) 

Explanation 

Pressing  the  fire  button  on  either  joystick  clears  bit  4  of  the 
corresponding  joystick  register.  Joystick  port  1  is  wired  to  the 
register  at  56321  (CIAPRB),  while  port  2  is  connected  to  56320 
(CIAPRA).  You  might  expect  the  sequence  of  the  registers 
(56320-56321)  to  be  the  same  as  the  sequence  of  the  joystick 
labels  (1-2),  but  for  some  reason  they're  switched. 

Before  you  call  FIREBT,  provide  the  joystick  number  in 
the  accumulator.  The  routine  then  reads  the  appropriate  reg- 
ister and  returns  with  the  zero  flag  set  if  the  fire  button  for 
that  joystick  is  being  pressed. 

In  the  example  program,  pressing  the  fire  button  on  joy- 
stick 1  causes  the  border  color  of  the  screen  to  increment. 

Routine 


cooo 

CIAPRA 

— 

56320 

data  port  register  A 

cooa 

BGCOL0 

53281 

screen  background  color  register 

Read  joystick  1  fire  button.  Change  screen 
color  when  pressed. 

cooo 

A9 

01 

JOYLOP 

LDA 

#1 

put  joystick  number  in  .A 

C002 

20 

0B 

CO 

JSR 

FIREBT 

read  fire  button 

coos 

DO 

F9 

B.NE 

IOYLOP 

if  Bre  button  not  pressed,  check  it  again 

C007 

EE 

21 

DO 

INC 

BGCOL0 

increment  screen  color 

COOA 

60 

RTS 

and  you're  done 

Enter  the  routine  with  joystick  number 

in  .A. 

determine  joystick  offset 

COOB 

29 

01 

FIREBT 

AND 

#1 

C00D 

AA 

TAX 

pul  offset  lit  .X 

CODE 

BD 

00 

DC 

LDA 

CIAPRA^C 

read  joystick  1  (X  -  1)  or  2  (.X  =  0) 

C011 

29 

10 

AND 

#%00010000 

test  fire  button  bit — result  is  zero  if  fired 

C013 

60 

RTS 

zero  flag  set  if  fired 

See  also  JOY2TO,  JOY2SE,  JOYSTK. 
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Name 

Format  a  disk 

Description 

A  disk  must  be  formatted  before  it  can  be  used.  This  process 
lays  down  the  tracks  and  sectors  that  will  later  hold  the  pro- 
grams and  files  you  save  to  the  disk.  This  routine  formats  a 
disk,  preparing  it  for  reading  and  writing. 

Prototype 

1.  Open  the  command  channel  (with  the  Kernal  SETLFS, 
SETNAM,  and  OPEN  routines). 

2.  Send  the  command  "NQ-.diskname,  ID". 

3.  Close  the  file. 

Explanation 

This  routine  is  the  equivalent  of  the  BASIC  command  OPEN 
1,  8,  15,  "NO:diskname,lD" -.CLOSE  1.  The  first  number  (the 
logical  file  number)  is  unimportant.  The  second  is  the  disk 
drive  number,  which  is  almost  always  8  unless  you  own  more 
than  one  drive,  in  which  case  the  device  number  may  be  8-11. 
The  final  number  is  the  secondary  address.  When  you  open  a 
disk  file,  the  secondary  address  is  the  channel  number,  and 
channel  15  is  reserved  for  direct  commands  to  the  drive.  The 
NO:  command  is  short  for  NEW  the  disk.  It's  followed  by  your 
choice  of  disk  name,  plus  the  ID. 

Note:  If  the  disk  has  previously  been  formatted,  you  can 
omit  the  ID  number.  The  disk  will  not  be  reformatted.  Instead, 
the  directory  will  be  cleared  and  the  disk  will  be  renamed 
with  the  new  disk  name.  As  far  as  the  disk  drive  is  concerned, 
this  is  equivalent  to  reformatting  the  disk.  Leaving  off  the  ID 
speeds  up  the  formatting  process. 

Warning:  This  program  will  erase  everything  on  your 
disk.  Experiment  with  it  at  your  own  risk. 

Routine 


cooo 

SETLFS 

— 

$FFBA 

cooo 

SETNAM 

= 

SFFBD 

cooo 

OPEN 

- 

$FFC0 

cooo 

CLOSE 

= 

SFFC3 

cooo 

CLRCHN 

- 

$FFCC 

cooo 

A9 

01 

FORMAT 

LDA 

#1 

logical  file  (1) 

C002 

A2 

OB 

LDX 

#6 

disk  drive  is  device  S 

C004 

AD 

OP 

LDY 

#15 

command  channel  15 

C006 

20 

8  A    FF 

JSR 

SETLFS 

prepare  to  open  it 

C009 

A9 

0D 

LDA 

#BUFLEN 

length  of  buffer 

COOP. 

A2 

IE 

LDX 

#<BUFFER 

X  and  ¥  hold  the 
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coon  ao  co 


COOF 
C012 
C01S 
C017 
COIA    20 

com  60 


20  BD  FF 
20  CO  FF 
A9    01 

20    a   FF 

CC  FF 


1.DY      #>BUFFER       j  address  of  ihe  buffer 


JSR 

SETNAM 

;  set  name 

JSR 

OPEN 

;  open  If 

LDA 

#1 

;  and  immediately 

JSR 

CLOSE 

;  close  the  command  channel 

JSR 

CLRCHN 

;  clear  the  channels 

RTS 

;  all  done 

;  Data  area 

C01E    4E    30    3A    BUFFER        .ASC     "NO:MYDISK.MD" 

;  Substitute  your  own  name  for  MYD1SK,  and 
;  your  own  ID  for  MD 

C02A    0D  BYTE    13  :  RETURN  character 

C02B  BUFLEN         =  '-BUFFER 

See  also  CONCAT,  COPYFL,  LNITLZ,  RENAME,  SCRTCH,  VALIDT. 
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Name 

Print  the  number  of  free  sectors  remaining  on  the  disk 

Description 

FRESEC  prints  the  number  of  free  sectors  remaining  on  the 
disk  without  printing  the  entire  directory.  Such  a  routine  is 
useful  in  reporting  to  the  user  the  amount  of  space  remaining 
on  the  disk  before  a  save  is  attempted. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  OPEN  1,8,0  with  a  directory  specifier,  $0:,  and  a  non- 
existent filename  (SETLFS,  SETNAM,  and  OPEN)  for 
reading. 

3.  On  the  128,  prior  to  SETNAM,  load  .X  with  the  bank 
containing  the  directory  filename.  Then  JSR  to  SETBNK. 

4.  Read  in  and  discard  the  first  six  bytes  (two  track  and  sector 
bytes,  two  link  bytes,  and  two  for  the  number  of  blocks 
occupied). 

5.  Read  bytes  from  the  disk  header  until  a  zero  byte  occurs. 

6.  Discard  the  two  link  bytes  from  the  BLOCKS  FREE  entry. 

7.  Print  the  two-byte  number  representing  the  blocks  free  with 
NUMOUT. 

8.  Print  the  BLOCKS  FREE  message  and  close  the  file. 

Explanation 

In  FRESEC,  we  use  the  directory  name  $0:Z-£  =  U.  This  tells 
the  computer  to  search  the  directory  for  any  USR  programs 
that  begin  with  the  characters  Z-£.  Of  course,  it's  very  unlikely 
that  such  a  file  exists.  Not  finding  this  filename,  the  computer 
loads  the  directory  header  and  reports  the  number  of  free 
blocks  on  the  disk. 

To  see  what  we  mean,  try  this  from  BASIC:  Just  LOAD 
"$0:Z-£=U",8  and  list  what  loads. 

The  directory  file  is  structured  much  like  a  BASIC  pro- 
gram file.  Within  the  directory,  each  entry  (including  the  disk 
header  and  the  BLOCKS  FREE  message)  is  comparable  to  a 
program  line. 

At  the  beginning  of  the  directory  are  two  bytes  that  act  as 
a  load  address  for  a  program.  (If  you  LOAD  "$",8,1,  the  direc- 
tory finds  its  way  into  1024,  which  is  where  screen  memory  is 
located.)  We  have  no  use  for  these  bytes,  and  they  are  dis- 
carded. The  next  two  bytes  are  link  bytes  that  point  to  the  ad- 
dress of  the  first  entry  in  the  directory.  These  are  equivalent  to 
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the  link  bytes  in  a  BASIC  program  file  that  point  to  the  next 
program  line.  Again,  these  bytes,  here  associated  with  the  disk 
name,  are  discarded. 

The  next  two  bytes  represent  the  number  of  blocks  occu- 
pied by  that  particular  program  entry  (or  filename).  If  the  en- 
try is  die  disk  header,  these  two  bytes  are  always  zero,  and  we 
discard  them. 

After  this,  we  move  to  the  end  of  the  disk  header  descrip- 
tion by  finding  the  next  zero  byte.  Just  as  with  a  BASIC  pro- 
gram, this  zero  byte  marks  the  end  of  each  line  (or  entry).  So 
now,  we're  positioned  at  the  beginning  of  the  BLOCKS  FREE 
entry.  Again,  the  first  two  bytes  in  the  entry  are  link  bytes, 
and  we  ignore  them. 

Finally,  we've  reached  our  destination  within  the  direc- 
tory. The  next  two  bytes  represent  the  number  of  free  sectors 
remaining  on  the  disk  in  low-byte/high-byte  form.  This  two- 
byte  integer  is  printed  out  with  NUMOUT,  a  space  is  inserted, 
and  BLOCKS  FREE  is  printed. 

Our  purpose  accomplished,  file  1  is  closed  and  default  de- 
vices are  restored  with  CLRCHN. 

Note:  FRESEC  currently  lacks  disk  error  checking.  You 
can  easily  add  this  feature,  if  you  like,  by  incorporating  the 
subroutine  DERRCK  into  the  code.  Place  DERRCK  just  before 
FILENM,  as  noted  in  the  source  listing.  Jump  to  DERRCK  im- 
mediately after  you  have  opened  file  1  to  the  disk.  Also,  be 
sure  to  open  the  error  channel  (15)  at  the  beginning  of  the 
program.  (Again,  this  is  noted  in  the  source  listing.) 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 


Routine 

cooo 


cooo 


SETLFS 

— 

65466 

SETNAM 

= 

65469 

OPEN 

- 

65472 

CHKIN 

= 

65478 

CHRIN 

= 

65487 

CHROUT 

— 

65490 

CLOSE 

= 

65475 

CLRCHN 

— 

65484 

LINPRT 

= 

48589 

5ETBNK 

™ 

65384 

MMUREG 

= 

65280 

;  (128  only) 


LINPRT  =  36402  on  the  128 
Kemal  bank  number  for  OPEN  and 
filename  (128  only) 
MMU  configuration  register  (128 

Read  and  print  the  number  of  free  sectors 
remaining  on  the  disk. 

Open  channel  15  here  if  you  include  disk 
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cooo 


FRESEC 


COOO  A9  01 

C002  A2  08 

C004  AO  00 

C006  20  BA   FF 


IDA  #1 

LDX  #8 

LDY  #0 

7SR  SETLFS 


C009 

A9 

OS 

LDA 

#FNLENG 

COOB 

A2 

SI 

LDX 

#<FH.ENM 

COOD 

AO 

CO 

LDY 

#>PILENM 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

C012 

20 

CO 

FF 

JSR 

OPEN 

C035  A2    01 

C017  20     C6    FF 

COIA  A2    05 

coic  20   cf  ff  Tossrr 

COIF  CA 

C020  10     FA 


LDX  #1 

JSR  CHKIN 

LDX  #5 

JSR  CHRIN 

DEX 

BPL  TOSSIT 


C022 
C02S 

20 
DO 

CF   FF 
FB 

INLOOP 

JSR 

BNE 

CHRIN 
INLOOP 

C027 
COM 

20 
20 

CF    FF 
CF    FF 

JSR 
JSR 

CHRIN 
CHRIN 

C02D  20     CF    FF  JSR  CHRIN 

C03O  AA  TAX 

C031  20     CF    FF  JSR  CHRIN 

COM  20     CD  BD  NUMOUT    JSR  LINPRT 


C037  A9    20  LDA  #32 

C039  20     D2  FF  JSR  CHROUT 

C03C  20     CF  FF    PRTLOP       JSR  CHRIN 

C03F  20     D2  FF  JSR  CHROUT 

C042  DO    F8  BNE  PRTLOP 

COM  A9    OD  LDA  #13 

C046  20     D2  FF  JSR  CHROUT 

C049  A9    01  LDA  #1 

C04B  20     C3  FF  JSR  CLOSE 


error  checking  (DERRCK). 


LDA  #0;  set  the  128  to  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  1 

device  number  (or  disk  drive 

secondary  address  to  read 

set  file  parameters 

Include  the  following  three  instructions 

for  the  128  only. 

LDA  BNKNUM;  bank  number  for  data 

LDX  BNKFNM;  bank  containing  the 

ASCn  filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

open  the  directory  file  for  reading 

JSR  DERRCK;  Insert  here  for  disk  error 
checking 


lake  input  from  file  1 

discard  six  bytes  (track  and  sector,  link, 

and  blocks  occupied— two  each) 


Read  information  on  disk  header  until 

zero  byte  is  reached.  What  follows 

Is  the  number  of  blocks  occupied  (two 

bytes)  and  BLOCKS  FREE  message. 

get  a  byte  from  open  file 

is  It  a  zero  byte  yet? 

We've  reached  the  end  of  the  header.  The 

next  two  bytes  are  link  bytes. 

discard  them 


Print  the  two-byte  number  representing 
number  of  blocks  remaining  with 
NUMOUT. 

low  byte  of  number 
high  byte  of  number 
print  the  number 

Print  BLOCKS  FREE  message, 
print  a  SPACE 

get  a  character 

and  print  it 

if  not  zero  byte,  get  another  character 

last  character,  so  print  a  RETURN 


!  close  file  1 
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CME    4C    CC  FF 


JMP      CLRCHN 


C05!     24    30    3A    FILENM        .ASC     "$0:Z-E=U" 
FNLENG       =  •  -  FILENM 


FRESEC 


clear  all  channels,  restore  default  devices, 
and  return 

Insert  DERRCK  routine  here  if  you're 
Including  error  checking. 

filename  for  USR  program  Z-£  in  the 

directory 

length  of  filename 

Include  the  next  two  variables  on  the  128. 

BNKNUM  .BYTE  0;  bank  number  for  data 

BNKFNM  BYTE  0;  bank  number  where 

ASCII  filename  is  located 


See  also  DIRBYT,  D1RPRG. 
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Name 

Exit  machine  language  and  GOTO  a  BASIC  line  number 

Description 

There  are  several  ways  to  combine  machine  language  routines 
with  BASIC.  The  most  common  way  to  call  an  ML  program  is 
with  the  SYS  statement.  When  you're  finished,  RTS  returns 
control  to  the  BASIC  program. 

With  the  following  GOTOBL  routine,  a  machine  language 
program  can  return  to  any  given  line  number  within  a  BASIC 
program.  This  means  that  if  you  SYS  to  an  ML  routine,  you 
can  return  to  the  BASIC  program  at  some  point  other  than 
where  you  SYSed  from.  If  you  want,  you  can  even  have  a  se- 
ries of  conditional  GOTOs  to  different  BASIC  line  numbers 
within  your  ML  program.  Or  you  can  pass  a  variable  value  to 
the  ML  routine  using  PASFMV,  convert  it  to  an  integer,  and 
GOTO  the  chosen  line  number. 

Prototype 

1.  Store  the  BASIC  line  number  you  intend  to  go  to  at  the  end 
of  the  routine  (BSLINE). 

2.  Within  the  routine  itself,  store  the  low  and  high  bytes  of  the 
target  BASIC  line  number  in  .A  and  .Y  and  store  them  in 
LINNUM. 

3.  Then  jump  into  BASIC'S  GOTO  routine. 

Explanation 

In  the  example  program,  GOTOBS  performs  a  GOTO  to  line 
2000  within  the  BASIC  program.  When  you  try  the  program, 
be  sure  that  you  have  a  line  2000  in  memory;  otherwise,  you'll 
get  an  undefined  line  error. 

GOTOBL  itself  is  very  straightforward.  Within  it,  the  tar- 
get line  number  (BSLINE)  is  placed  in  the  two-byte  LINNUM 
(location  20  on  the  64  and  22  on  the  128).  After  this,  the  pro- 
gram jumps  directly  into  the  middle  of  BASIC'S  GOTO  routine 
(43196  on  the  64  and  23035  on  the  128).  We  skip  the  part  of 
the  GOTO  routine  that  gets  the  target  line  number  since  it's  al- 
ready provided. 
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Routine 

cooo 

LINNUM 

- 

20 

cooo 

GOTOBS 

= 

43196 

COOO     AD  OD 
C003    85     14 
C0O5     AC  OE 
C008     84     15 
COOA    4C     BC 

CO 

CO 
A8 

GOTOBL 

LDA 
STA 
LDY 
STY 
JMP 

BSLINE 

LINNUM 

BSLINE+1 

LINNUM+1 

GOTOBS 

COOD   DO   07 

BSUNE 

WORD  2000 

UNNUM  =  22  on  the  128— integer  line 

number 

GOTOBS  =  23035  on  the  128— GOTO  the 

line  number  in  UNNUM 

Exit  ML  and  GOTO  a  BASIC  line. 

Ktore  low  byte  of  line  number  to  return  to 

now,  store  high  byte 

exit  ML.  GOTO  BASIC  line 

BASIC  line  to  GOTO 


See  also  PASFMV,  PASMEM,  PASREG,  PASUSR. 
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Name 

GOTO  from  a  character  input  using  sequential  compares  and 
branches 

Description 

This  is  probably  the  fastest  way  to  execute  a  routine  based  on 
a  limited  number  of  keyboard  responses.  Here,  you  simply  get 
a  character  from  the  keyboard  and  check  the  response  sequen- 
tially against  a  series  of  allowed  ASCII  responses.  If  a  suitable 
response  is  found,  branch  to  the  appropriate  routine. 

Prototype 

1.  Get  a  keypress. 

2.  Compare  its  ASCII  value  with  each  acceptable  response  and 
branch  to  the  appropriate  routine. 

3.  If  the  response  is  not  among  those  compared  with,  branch 
to  step  1. 

Explanation 

The  example  program  illustrates  a  common  programming 
situation — checking  for  a  Y  (yes)  or  N  (no)  response.  If  you 
press  Y,  the  screen  border  color  changes  to  white.  An  N 
changes  it  to  black. 

As  it's  currently  written,  the  routine  checks  for  two 
characters.  But  additional  CMP  #ASCU  value.BEQ  routine  ad- 
dress instructions  can  be  added  if  you  need  to  check  for  more 
keys. 

If  many  characters  are  checked  for,  place  the  CMP  and 
BEQ  steps  for  the  most  commonly  pressed  keys  early  in  the 
code.  This  will  speed  execution  of  the  routine  slightly. 

If  the  routines  you  wish  to  execute  lie  outside  the  range  of 
the  branch  instruction  (128  bytes  backward  or  127  bytes  for- 
ward), you  can  use  GOTOST.  Or,  you  can  use  a  CMP  #ASCI7 
value:  BNE  next  compare:  JMP  routine  address  arrangement 
instead. 

Routine 


cooo 

CETTN 

= 

65508 

cooo 

EXTCOL 

53280 

border  color  register 

Limit  input  to  Y  or  N.  Then,  go  to 
appropriate  routine. 

cooo 

20 

E4 

FF     GOTOCP 

JSR 

GETIN 

get  a  character  from  keyboard 

C003 

C9 

4E 

CMP 

#78 

is  it  N? 

C005 

FO 

09 

BEQ 

ROUTEN 

N  was  pressed,  so  go  to  NO  routine 

C0O7 

C9 

59 

CMP 

#89 

is  it  Y7 
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C009     DO   F5  BNE      GOTOCP  ;  neither  N  nor  Y.  so  get  another  key 

;  If  Y,  fall  through  to  ROUTEY. 


COOB 
COOD 
C010 
C012 

A9    01 
4C    15 
A9    00 
4C    15 

ROUTEY 
CO 

ROUTEN 
CO 

LDA 
IMP 
LDA 
IMP 

*1 
BORCOL 
#0 
BORCOL 

;  Y  routine 

;  change  border  color  to  white 

;  N  routine 

;  change  border  color  to  black 

:  Set  border  color.  Enter  with  color  value 

;  in  .A. 

:  set  register 

C015 
COl'B 

8D    20 
60 

DO   BORCOL 

STA 
RTS 

EXTCOL 

See  also  GOTOST. 
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Name 

GOTO  from  a  character  input  and  execute  using  the  stack 
Description 

GOTOST,  like  GOTOCP,  checks  for  limited  keypresses, 
executing  a  certain  routine  based  on  the  response.  The  ap- 
proach taken  here  is  preferred,  however,  when  the  number  of 
keypresses  and  corresponding  routines  is  lengthy. 

As  with  GOTOCP,  we  begin  by  getting  a  character  from 
the  keyboard.  At  this  point  (in  CHKLOP),  we  check  the  re- 
sponse against  a  number  of  suitable  characters  in  a  table 
(KEYS).  If  the  incoming  key  is  in  the  table,  we  go  to  the 
appropriate  routine  by  placing  its  address,  less  one,  on  the 
stack  and  executing  an  RTS.  The  RTS  causes  the  program  to 
jump  to  the  chosen  routine. 

The  location  of  each  acceptable  routine  is  listed  in  a  table 
of  two-byte  addresses  (labeled  ROUTES)  at  $C02C.  These  ad- 
dresses are  automatically  calculated  by  the  assembler. 

Prototype 

1.  Get  a  keypress. 

2.  Check  the  key  entered  against  a  table  of  allowed  character 
input. 

3.  If  the  input  key  is  the  same  as  a  character  in  the  table,  use 
its  relative  position  in  the  table  to  determine  the  address  of 
the  corresponding  routine. 

4.  Push  the  high  and  low  address  bytes  of  the  selected  routine 
onto  the  stack. 

5.  Execute  an  RTS,  thereby  jumping  to  the  chosen  routine. 

Explanation 

The  following  program  demonstrates  this  routine  by  checking 
for  an  A  or  a  B  keypress.  If  A  is  pressed,  the  background  color 
of  the  screen  is  cycled  through  the  available  colors;  if  B  is 
pressed,  the  border  color  rotates.  If  neither  key  is  pressed,  the 
program  gets  another  keypress. 

Note:  The  table  of  acceptable  characters  can  contain  the 
entire  ASCII  set  (as  many  as  255  characters),  if  you  like.  To 
speed  execution  of  the  routine,  place  the  characters  represent- 
ing the  more  likely  responses  at  the  beginning  of  the  table. 

Routine 

C000  GETIN  -  65508 

coo°  BGCOLO       =  53281  ;  text-screen  background  color  register  0 

C(W0  EXTCOL        =  53280  ;  text-screen  border  color  register 
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cooo 

4C 

03 

CO 

LOOP 

IMP 

COTOST 

C003 

20 

E4 

FF 

GOTOST 

JSR 

GET1N 

C006 

A2 

00 

LDX 

#0 

COOS 

OD  30 

CO 

CHKIOP 

CMP 

KEYS,X 

COOB 

FO 

07 

BEQ 

FOUND 

COOD 

E8 

1NX 

COOE 

EO 

02 

CPX 

#NUMKEY 

COlO 

DO 

F6 

BNE 

CHKLOP 

C012 

FO 

EF 

BEQ 

GOTOST 

C014 

SA 

FOUND 

TXA 

C015 

OA 

ASL 

C016 

AA 

TAX 

C017 

BD 

2D 

CO 

LDA 

ROUTES+1.X 

COIA 

48 

PHA 

CO  IB 

BD 

2C 

CO 

LDA 

ROUTES.X 

COIE 

48 

PHA 

COIF 

60 

RTS 

C020 

EE 

21 

DO 

BCKCOL 

INC 

BCCOLO 

C023 

4C 

00 

CO 

IMF 

LOOP 

C026 

EE 

20 

DO 

BORCOL 

INC 

EXTCOL 

C029 

4C 

00 

CO 

IMP 

LOOP 

C02C 

IF 

CO 

25 

ROUTES 

WORD  BCKCOL-  1,B 

C030 

41 

42 

KEYS 

ASC 

"AB" 

C032 

NUMKEY 

= 

•-KEYS 

GOTOST 


;  Check  for  keys  in  table  and  execute 

;  appropriate  routine  using  stack. 

;  Change  (A)  background  or  (B)  border  color. 

;  check  for  keys,  and  execute  appropriate 

;  routine 

;  get  ASCII  key  value 

;  check  each  character  In  table 
;  if  round 

;  check  key  number 

;  If  more  in  table,  check  next  character 

;  if  no  match,  get  another  keypress 

;  character  key  has  been  pressed 

;  double  its  value  since  routines  are  at  two- 

;  byte  addresses 

;  get  high  byte  of  routine  address 
;  push  it  on  stack 
;  push  low  byte 

;  RTS  causes  program  to  return  to  last 
;  address  on  stack  plus  one 

;  Routines  for  A  and  B  follow. 
;  cycle  background  color 
;  and  get  another  keypress 

,-  cycle  border  color 

;  and  get  another  keypress 


;  two-byte  addresses  of  each  routine  minus  1 
;  list  of  acceptable  keystrokes 
;  number  of  acceptable  key9 


See  also  GOTOCP. 
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Name 

Hide  a  two-byte  instruction  with  the  BIT  instruction 

Description 

The  BIT  instruction  tests  one  value  against  another,  but  apart 
from  setting  a  few  status  register  flags,  it  changes  the  contents 
of  neither  the  registers  nor  memory.  Because  it  is  almost  a  do- 
nothing  command,  BIT  can  be  used  to  hide  a  two-byte  instruction. 

Prototype 

1.  Precede  each  instruction  in  a  series  with  a  .BYTE  $2C. 

2.  Jump  or  branch  into  the  list  at  various  entry  points. 

Explanation 

Suppose  you  saw  the  following  fragment  in  a  machine  lan- 
guage routine.  What  would  it  do? 

033C  LDA  #$41 
033E  BIT  $42A9 
0341  JSR  $FFD2 

If  you  enter  it  at  $033C,  the  routine  will  put  the  ASCII 
value  of  A  into  the  accumulator,  perform  a  BIT,  and  then  print 
the  accumulator  value.  But  what  is  the  significance  of  the 
comparison  with  location  $42A9?  There  is  none.  It  doesn't 
matter  what  value  is  found  at  $42A9,  and  it  doesn't  matter 
that  the  N,  Z,  and  V  flags  are  affected  by  the  BIT  instruction. 

Instead,  the  BIT  instruction  hides  the  two  bytes  $A9  and 
$42  (stored  low  byte  first,  of  course).  Those  two  bytes  combine 
to  form  the  instruction  LDA  #$42.  So  if  you  enter  the  routine 
just  past  the  BIT  instruction  (at  location  $033F),  the  routine 
prints  the  letter  B.  As  a  single  routine,  it  prints  either  an  A  or  a 
B.  There's  no  shorter  way  to  write  a  two-in-one  (or  more) 
routine. 

One  valuable  application  for  this  little  trick  is  in  extending 
the  range  of  branch  instructions.  A  BEQ  or  BNE  can  branch 
forward  127  bytes  or  backward  128.  But  if  you  hide  an  addi- 
tional BEQ  or  BNE  inside  a  BIT,  you  can  increase  the  range  of 
a  branch. 

Routine 


gel  a  key 

go  back  If  no  key  pressed 


cooo 
cooo 
cooo 

ZP 

GETIN 

CHROUT 

w 

SFB 

$FFE4 

$FFD2 

cooo 
coos 

20 
FO 

E4     FF     ENTRY 
FB 

JSR 
BEQ 

GETIN 
ENTRY 
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C005 

C9 

31 

HIDBIT 

CMP 

#49 

C0O7 

FO 

OD 

BEQ 

KEY1 

C009 

c» 

32 

CMP 

#50 

COOB 

FO 

OC 

BEQ 

KEY2 

COOD 

C9 

33 

CMP 

#51 

COOF 

FO 

OB 

BEQ 

KEY3 

COll 

C9 

34 

CMP 

#52 

C013 

FO 

OA 

BEQ 

KEY4 

C015 

2C 

.BYTE 

$2C 

C016 

A9 

93 

KEY1 

LDA 

#147 

C018 

2C 

.BYTE 

$2C 

G019 

A9 

12 

KEY2 

LDA 

#18 

C01B 

2C 

.BYTE 

$2C 

CMC 

E6 

FB 

KEY3 

INC 

ZP 

COIE 

2C 

.BYTE 

$2C 

COIF 

FO 

Ob 

KEY4 

BEQ 

QUIT 

C021 

20 

D2   FF 

JSR 

CHROUT 

C024 

<C 

00     CO 

JMP 

ENTRY 

C027 

60 

QUIT 

RTS 

;  the  1  key? 

;  branch  ahead 

;  is  il  a  27 

;  branch  ahead 

;  check  for  3 

;  yes,  it  is 

;  now  a  4 

;  another  branch 

;  the  BIT  instruction 

;  clear  screen  for  1 

;  reverse  on  for  2 

;  another  two-byte  instruction  for  3 

;  two  bytes  hiding  another  BEQ  (always 
;  equal  if  we  get  here) 
;  print  a  key 
;  and  jump  back 
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Name 

Fill  high -resolution  color  memory 

Description 

In  machine  language,  setting  up  a  high-resolution  graphics 
screen  on  the  64  or  128  is  a  multistep  process.  The  16K  video 
bank  where  the  screen  is  to  be  located  is  selected  (VIDBNK), 
bitmap  mode  is  enabled  (BITMAP),  and  the  newly  created 
screen  is  cleared  (CLRHRS  or  CLRHRF). 

In  addition,  before  you  draw  anything  on  this  screen,  the 
foreground  color — the  color  of  the  individual  pixels  or  dots  on 
the  screen — and  the  background  color  must  be  assigned.  Just 
as  COLFIL  fills  color  memory  for  a  text  screen,  HRCOLF  fills 
the  1000-byte  area  of  memory  associated  with  the  standard 
high-resolution  screen  (as  opposed  to  a  multicolor-mode 
screen). 

Prototype 

1.  Enter  this  routine  with  the  foreground  color  value  in  the 
accumulator  and  the  background  color  value  in  .X. 

2.  Store  the  .X  register  contents  into  a  temporary  location. 

3.  Shift  the  low  nybble  of  the  accumulator  into  its  high 
nybble. 

4.  OR  in  the  temporary  location  so  that  the  accumulator  con- 
tains the  foreground  color  in  its  high  nybble  and  the  back- 
ground color  in  its  low  nybble. 

5.  Within  a  loop,  store  .A  in  all  1000  bytes  representing  high- 
resolution  color  memory  and  return  to  the  main  program. 

Explanation 

The  example  program  sets  up  a  high-resolution  graphics 
screen  (or  bitmap)  at  the  start  of  video  bank  1 — location  16384 
to  be  exact.  Color  memory  for  this  screen  directly  follows. 

Placing  the  bitmap  screen  in  a  video  bank  other  than 
bank  0  makes  the  code  a  little  more  involved,  especially  on 
the  128.  Above  16383,  memory  in  bank  15  on  the  128  consists 
only  of  ROM,  although  POKEing  values  into  locations  16384 
or  higher  of  bank  15  causes  whatever  is  being  stored  to  go 
into  bank  0  RAM.  And  this,  among  other  reasons,  requires  us 
to  treat  the  128  version  differently,  as  you'll  soon  see.  (For 
comparison  purposes,  you  might  look  at  the  program  under 
CLRHRF,  which  creates  a  high-resolution  graphics  screen  at 
location  8192.) 

Initially,  on  the  64,  the  contents  of  the  VIC-II  chip  mem- 
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ory  control  register,  or  VMCSB  at  53272,  are  saved  to  a  tem- 
porary location.  This  register  contains  the  offset  address  within 
the  current  video  bank  for  the  character  set  (in  its  low  nybble) 
and  the  text  screen  (in  its  high  nybble).  By  saving  it  out  in  this 
manner,  we'll  later  be  able  to  restore  the  text  screen  when  we 
exit  bitmap  mode. 

On  the  128,  you  don't  need  to  save  VMCSB.  The  reason 
is  that  on  this  machine  VMCSB  takes  its  value  during  each 
IRQ  interrupt  from  one  of  two  shadow  registers.  In  text  mode, 
this  register  is  VM1  at  2604,  while  in  bitmap  mode  it's  VM2  at 
2605.  Since  we  never  alter  VM1  in  the  program,  we  don't 
need  to  worry  about  storing  it  (or  VMCSB). 

Next,  a  value  of  %  10000000  is  stored  into  VMCSB  (into 
VM2  on  the  128,  since  this  register  gets  copied  to  VMCSB 
when  we  enter  bitmap  mode).  The  high  nybble  of  VMCSB  (or 
VM2)  still  points  to  the  offset  address  for  the  text  screen,  but 
in  normal  bitmap  mode,  the  text  screen  is  actually  color  mem- 
ory for  the  graphics  screen.  So  storing  an  $8  high  nybble  off- 
sets color  memory  by  8K  in  the  video  bank  we're  about  to 
choose  (bank  1).  This  places  color  memory  for  the  bitmap 
screen  at  24576.  (Video  bank  1  starts  at  16384,  and  the  $8  in 
the  high  nybble  of  the  VMCSB  register  sets  color  memory 
8  X  1024  bytes  higher  than  the  base.) 

Only  bit  3  of  the  low  nybble  of  VMCSB  (or  VM2  on  the 
128)  is  significant  in  bitmap  mode.  This  bit  is  the  8K  offset  to 
the  bitmap  screen  within  the  current  video  bank.  It  tells  the 
computer  whether  the  bitmap  screen  is  to  be  located  in  the 
first  half  of  the  video  bank  (if  set  to  zero)  or  in  the  second  half 
(if  set  to  one).  And  in  this  case,  since  we're  placing  the  screen 
in  the  first  half,  starting  at  16384,  bit  3  is  cleared. 

After  establishing  the  offset  address  of  the  high-resolution 
graphics  screen  and  its  color  memory  within  the  video  bank, 
we  actually  assign  a  video  bank  number  of  1  (defined  as 
BNKNUM)  using  VIDBNK.  Then  we  enter  bitmap  mode  with 
BITMAP.  On  the  128,  in  this  routine  be  sure  to  replace 
SCROLY  at  53265  with  its  shadow  register  GRAPHM  at  216. 
(See  BITMAP  for  details  on  why  this  is  done.) 

After  this,  the  high-resolution  screen  we've  created  is 
cleared  with  CLRHRS,  a  method  employing  self-modifying 
code  which  fills  the  screen  with  zeros.  See  CLRHRS  for  an 
explanation.  (Using  CLRHRF  is  another  option.) 

On  the  128,  just  before  clearing  the  screen,  you  can  insert 
an  STA  MMUREG  + 1 .  This  instruction  causes  the  computer  to 
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be  placed  into  bank  0  as  long  as  the  accumulator  contains  a 
nonzero  value.  And,  of  course,  this  is  where  our  bitmap  re- 
sides on  the  128.  (Recall  that  above  16383,  bank  15  is  ROM.) 
So,  if  you  PEEK  the  high-resolution  screen  here,  you'll  see  its 
contents,  rather  than  ROM,  in  bank  15. 

At  this  point  in  the  program,  we  use  the  current  routine, 
HRCOLF,  to  fill  color  memory  with  bytes  representing  me- 
dium gray  on  black.  Each  byte  of  color  memory,  assigned  to 
an  8  X  8  group  of  pixels  on  the  bitmap,  contains  the  fore- 
ground color  value  for  these  pixels  in  its  high  nybble  and  their 
background  color  value  in  the  low  nybble.  The  relative  color 
values,  defined  as  FORECL  and  BACKCL  in  the  equates,  are 
passed  to  the  routine  in  .A  and  .X.  (See  COLFIL  for  a  table  of 
colors  and  their  corresponding  values.) 

HRCOLF  combines  the  two  color  values  into  a  single  byte 
and  fills  color  memory  with  this  byte  within  HRCLOP.  The 
code  for  this  memory-filling  loop  is  similar  to  that  used  else- 
where in  this  book,  and  no  description  is  needed  here  (see 
CLRFIL  and  COLFIL). 

After  color  memory  is  filled,  the  program  awaits  a 
keypress  before  returning  you  to  the  normal  text  screen.  The 
Kernal  routine  GETTN  is  used  to  fetch  this  keypress. 

Since  the  Kernal  is  not  present  in  bank  0,  128  users  must 
switch  to  a  bank  where  the  Kernal  is  available.  Here,  we 
switch  to  bank  15  by  storing  a  zero  into  the  MMU  configura- 
tion register  at  65280.  On  a  128,  add  LDA  #0:STA  MMUREG 
to  the  code  before  calling  GETIN. 

When  a  key  is  pressed,  BITMAP  disables  bitmap  mode, 
and  VIDBNK  puts  you  back  into  the  original  16K  video  bank 
(assumed  to  be  bank  0,  defined  as  BNKNMO).  Commodore 
128  users  should  see  the  normal  text  screen  almost  immedi- 
ately as  VM1  is  copied  to  VMCSB  on  the  next  IRQ  interrupt. 
But  64  users  must  physically  reset  the  VIC-II  chip  memory 
control  register  before  it  becomes  visible. 


Routine 

cooo 


cooo 
cooo 

cooo 

cooo 
coon 
cooo 
cooo 


ZP 

— 

251 

GETIN 

= 

65508 

VMCSB 

— 

53272 

SCROLY 

= 

53265 

C12PRA 

_ 

56576 

C2DDRA 

= 

56578 

FOEECX 

— 

12 

BACKCL 

mi- 

0 

SCREEN 

= 

24576 

VIC-U  chip  memory  control  register 

scroll/control  register — use  GRAPHM 

216  on  the  128 

CIA  2  data  port  register  A 

CIA  2  data  direction  register  A 

for  medium-gray  foreground 

for  black  background 

start  of  hi-res  color  memory 


HRCOLF 


cooo 


MMUREG     = 
VM2  = 


65280 
2605 


COOO     AD   18     DO  LDA 

C003    8D   8F    CO  STA 


C006     A9    80  LDA 

C008     8D    18    DO  STA 


COOB    AD  91     CO  LDA 

COOE     20     76     CO  JSR 

COU     20    6D   CO  1SR 


C014  20  33  CO  1SR 

C017  A9  OC  LDA 

C019  A2  00  LDX 

C01B  20  51  CO  JSR 


CO  IE  20     E4    FF  WAIT             JSR 

C021  FO    FB  BEQ 

C023  20     6D    CO  JSR 

C026  AD  92    CO  LDA 

C029  20    76    CO  JSR 


C02C    AD  8F    CO  LDA 

C02F     8D    18     DO  STA 

C032     60  RTS 


VMCSB 

TEMP 


#%  10000000 
VMCSB 


BNKNUM 

VTDBNK 

BITMAP 


CLRHRS 
sFORECL 
■fBACKCL 
HRCOLF 


GETIN 
WAIT 
BITMAP 
BNKNMO 

VIDBNK 


TEMP 
VMCSB 


C033  AD  8E  CO    CLRHRS       LDA  HRSCRN  +  1 

C036  8D  46  CO                       STA  LOOP+2 

C039  AD  8D  CO                        LDA  HRSCRN 

C03C  8D  45  CO                           STA  LOOP+1 

C03F  A9  00  LDA  #0 

C041  A8  TAY 

C042  A2  20  LDX  #32 

C044  99  FF  FF    LOOP            STA  $FFFF,Y 

C047  C8  INY 

C048  DO  FA  BNE  LOOP 

C04A  EE  46  CO                           INC  LOOP+2 

C04D  CA  DEX 

C04E  DO  F4  BNE  LOOP 

C050  60  RTS 


MMU  configuration  register  (128  only) 
VIC-II  chip  memory  control  shadow  register 
(128  only) 

Locate  hi-res  screen  at  16384  and  clear  It. 

color  memory  (gray  on  black) 

at  24576.  Enable/disable  bitmap  mode  with 

BITMAP,  clear  hi-res  screen 

with  CLRHRS,  and  fill  color  memory  with 

HRCOLF. 

temporarily  save  VMCSB  (64  only) 

(64  only) 

Now  offset  bitmap  by  OK  in  video  bank. 

locating  color  at  24K. 

LDA  #%0xxxl000  if  hi-res  screen  is  in 

second  half  of  video  bank 

reset  register  (replace  VMCSB  with  VM2  on 

the  128) 

Now  choose  bank  number. 

.A  contains  bank  0-3 

select  video  bank  1 

enter  bitmap  mode 

STA  MMUREG  + 1,  set  the  128  to  bank  0 

(128  only) 

clear  the  hi-res  screen 

foreground  color  for  hi-res  screen 

and  background  color 

clear  hi-res  color  memory 

LDA  #0;  set  the  128  to  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

get  a  keypress 

if  no  keypress,  then  wait 

rum  off  bitmap  mode 

return  to  original  video  bank;  .A  contains 

bank  0-3 

select  bank  0 

Reset  pointer  to  character  set. 
(64  only) 
(64  only) 


Clear  the  hi-res  screen  with  a  self- 
modifying code  method, 
store  hi-res  screen  address  In  dummy 
location— $FFFF 


;  Fill  32  pages  with  zeros. 


:  32  pages 

;  fill  a  block  of  256  bytes  with  zeros 


;  page  filled,  so  increase  high-byte  pointer 
;  to  fill  all  pages 


;  Clear  hi-res  color  memory  to  FORECL  on 
;BACKCI_ 
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C0S1  SE    90     CO    HRCOLF 

C054  OA 

C055  OA 

C056  OA 

C0S7  OA 

C058  OD    90     CO 


STX 

ASL 


C05B  AO  FA 

C05D  88 

C05E  99  00     60 

C061  99  FA    60 

C064  99  F4     61 

C067  99  EE    62 

C06A  DO  Fl 

C06C  60 


HRCLOF 


ASL 
ASL 
OKA 

LDY 
DEY 
STA 
STA 

STA 

STA 

BNE 
RTS 


TEMPX 


TEMPX 

#250 


I  (tore  BACKCL  in  .X  temporarily 

;  shift  low  nybble  of  FORECL  into  high 

;  nybble 


;  .A  now  contains  foreground  color  in  high 
;  nybble,  background  In  low  nybble 


SCREEN,V         ;  first  quarter 
SCREEN +250,Y 

;  Kcond  quarter 
SCREEN+500,Y 

;  third  quarter 
SCREEN+750,Y 

;  fourth  quarter 
HRCLOP  ;  fi U  ail  250  bytes  with  color  byte 


C06D    AD  11      DO    BITMAP       LDA      SCROLY 


C070     49     20 
C072     8D    11 

C075     60 


C076  49     03 

C078  85     FB 

C07A  AD  02 

C07D  09     03 

C07F  8D    02 


DO 


VIDBNK 


DD 


DD 


EOR 
STA 

RTS 


EOR 

STA 
LDA 
ORA 
STA 


#%00100000 
SCROLY 


#3 
ZP 
C2DDRA 

#3 
C2DDRA 


C082  AD  00     DD 

C085  29     FC 

C087  05     FB 

C089  BD    00     DD 

C08C  60 


C08D  00 

C08F  00 

C090  00 

C091  01 

C092  00 


40 


HRSCRN 

TEMP 

TEMPX 

BNKNUM 

BNKNM0 


LDA  CI2PRA 

AND  *252 

ORA  ZP 

STA  C12PRA 


.WORD  16384 
.BYTE   0 


.BYTE 
.BYTE 
.BYTE 


;  Enable/disable  bitmap  mode. 

;  substitute  GRAPHM  for  SCROLY  on  the 

;  128 

;  flip  bit  5 

;  reset  register  (again  use  GRAPHM  instead 

;  of  SCROLY  on  the  128) 

: 

:  Select  a  16K  video  bank.  .A  comes  in 

;  containing  the  chosen  bank  number. 

;  effectively  (3  —  bank  number) 

;  store  it  temporarily 

;  set  data  direction  register  for  output 


;  take  current  C12PRA  value 
.  and  keep  bits  2-7 
;  OR  with  (3  -  bank  number) 
;  reset  register 

; 

;  locate  hi-res  screen 

;  temporary  storage  for  VMCSB  configuration 

;  temporary  storage  for  X 

;  bank  1 

;  bank  0  or  original  bank 


See  also  BITMAP,  CLRHRF,  CLRHRS,  HRPOLR,  HRSETP,  PAINT. 
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Name 

Set  or  clear  a  point  on  the  hi-res  screen  based  on  polar 
coordinates 

Description 

Polar  coordinates  use  two  numbers,  an  angle  and  a  distance 
value,  to  describe  a  position  on  a  (usually  circular)  grid. 
HRPOLR  translates  these  two  numbers  into  a  point  on  the  hi- 
res screen  and  turns  the  point  on  or  off. 

Prototype 

1.  Before  beginning,  create  two  lookup  tables — one  for  64  sine 
values,  the  other  for  64  cosines  (details  below). 

2.  Start  by  looking  up  the  sine  (or  cosine),  based  on  the  quad- 
rant (0-3).  Although  this  is  a  number  in  the  range  0-255,  it 
is  treated  as  if  it  had  a  leading  decimal  point. 

3.  Multiply  by  LENGTH  to  find  the  x  coordinate. 

4.  Add  or  subtract  from  the  origin  XORG  and  save  the 
number. 

5.  Repeat  the  steps  above,  substituting  cosine  (or  sine)  to  find 
the  y  coordinate. 

6.  Plot  the  resulting  point  on  the  hires  screen. 

Explanation 

To  locate  a  point  on  a  one-dimensional  line,  you  need  a  single 
number  representing  the  distance  from  the  origin.  On  a  two- 
dimensional  flat  plane,  such  as  the  hi-res  screen,  you  need  two 
numbers.  The  most  common  way  to  describe  a  point  is  to  use 
the  orthogonal  Cartesian  coordinate  system  (named  for  the 
French  mathematician  and  philosopher  Rene  Descartes),  which 
has  two  axes  and  x  and  y  coordinates.  A  second,  equally  valid, 
method  for  plotting  a  point  is  to  use  polar  coordinates,  where 
the  two  numbers  are  an  angle  and  a  distance  value.  In  the  fig- 
ure, the  same  point  can  be  described  in  either  Cartesian  or  po- 
lar terms. 
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Describing  a  Point 


.distance 


■i? 


^ 


./  Wi* 


Cartesian  Graph 


Polar  Graph 


Angles  are  customarily  measured  in  degrees  (360  per  cir- 
cle) or  radians  (2k  per  circle).  Both  systems  are  rather  arbitrary, 
and  neither  is  especially  well-suited  to  machine  language.  So  a 
third  method  has  been  employed  in  the  example  routine,  one 
that  uses  256  "slices"  per  circle.  Call  these  MLDegrees.  Note 
that  a  right  angle,  which  is  90  degrees  or  0.5  n  radians,  is  64 
MLDegrees.  The  advantage  of  this  system  is  that  an  angle  can 
be  described  by  single  byte.  Also,  by  examining  the  two  high- 
est bits  of  the  angle  value,  you  can  tell  which  quadrant  the  an- 
gle inhabits. 

The  HRSETP  subroutine,  which  calculates  and  turns  on  a 
pixel,  is  described  elsewhere  in  this  book.  The  MUL16  sub- 
routine is  basically  the  same  as  the  MULSHF  routine. 

Before  calling  this  routine,  you  have  to  create  two  lookup 
tables  for  the  sine  and  cosine  tables.  Use  the  following  short 
BASIC  program: 

10  FOR  J=0  TO  63:  RAD=J*<7t/128):  C=INT(COS 

(RAD)*256):  S=INT(SIN(RAD)'256) 
20  POKE  52992 + J,C:  POKE  53056+J,S:  NEXT:  END 

This  creates  the  cosine  value  table  at  52992-53055  and 
the  sine  value  table  at  53056-53119.  You  can  also  include 
these  values  as  a  series  of  .BYTE  statements,  or  they  can  be 
loaded  from  a  disk  file. 

The  two  example  routines  draw  a  circle  and  a  spiral.  The 
circle  routine  keeps  the  length  constant  while  stepping 
through  the  angles  from  0  through  255  slices.  The  spiral  pro- 
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gram  does  the  same  thing,  but  the  length  gradually  decreases 
as  the  program  runs. 

Note:  Before  using  this  routine  on  the  128,  enter  POKE 
216,255  or  add  the  appropriate  LDA  and  STA  to  the  beginning 
of  the  program.  Also,  in  the  BASIC  setup  routine,  substitute 
location  4864  for  52992  and  location  4928  for  53056.  These 
two  locations,  used  for  the  table  of  sines  and  cosines,  should 
be  changed  in  the  equates  as  well. 

Routine 


cooo 

Zl 

= 

251 

:  pointer  10  the  particular  byte  to  be  changed 

cooo 

HRSCRN 

»S 

$2000 

;  screen  is  at  8192  decimal 

cooo 

HRCOLR 

= 

$0400 

;  color  memory  at  1024 

cooo 

CETIN 

■»■ 

$FFE4 

cooo 

COSINE 

= 

52992 

;  address  of  cosine  value  table 

cooo 

SINE 

— 

53056 

;  address  of  sine  value  table 

cooo 

20 

64 

CI 

ISR 

HRSETUP 

;  set  up  and  clear  the  hi-res  screen  and  color 
;  memory 

C003 

20 

12 

CO 

JSR 

CIRCLE 

;  plot  a  circle 

C006 

20 

2D 

CO 

JSR 

SPIRAL 

;  and  a  spiral 

C009 

20 

E4 

FF 

LOOPG 

JSR 

CETIN 

;  wait 

cooc 

F0 

FB 

BEQ 

LOOPG 

C00E 

20 

9F 

CI 

|SR 

HRCLEAR 

;  rum  off  hi-res  screen  and  restore  to  normal 

con 

60 

RTS 

C012 

A9 

00 

CIRCLE 

LDA 

#0 

' 

C014 

8D 

CA 

co 

STA 

ANGLE 

;  start  at  angle  of  0 

C017 

A9 

63 

LDA 

#99 

;  length  of  99 

C019 

8D 

CB 

CO 

STA 

LENGTH 

C01C 

20 

24 

CO 

JSR 

CIRLP 

;  down  below 

COIF 

A9 

32 

LDA 

#50 

;  second  circle,  radius  of  50 

C021 

8D 

CB 

CO 

STA 

LENGTH 

C024 

20 

4A 

CO 

CIRLP 

JSR 

HRPOLR 

C027 

EE 

CA 

CO 

INC 

ANGLE 

C02A 

DO 

F8 

BNE 

CIRLP 

C02C 

60 

RTS 

C02D 

A9 

00 

SPIRAL 

LDA 

#0 

' 

C02F 

8D 

CA 

CO 

STA 

ANGLE 

;  angle  starts  at  0 

C032 

A9 

64 

LDA 

#100 

C034 

8D 

CB 

CO 

STA 

LENGTH 

;  length  is  100 

C037 

20 

4A 

CO 

SPLOOP 

JSR 

HRPOLR 

;  plot  it 

C03A 

EE 

CA 

CO 

INC 

ANGLE 

:  add  1  to  the  angle 

C03D 

AD 

CA 

CO 

LDA 

ANGLE 

C040 

29 

OF 

AND 

#15 

;  every  16  slices,  the  length  decreases  by  1 

C042 

DO 

F3 

BNE 

5PLOOP 

:  not  equal,  loop  back 

C044 

CE 

CB 

CO 

DEC 

LENGTH 

;  length  minus  1 

C047 

DO 

EE 

BNE 

SPLOOr 

;  and  loop  back  until  0 

C049 

60 

RTS 

:  done 

C04A 

AD 

CA 

CO 

HRPOLR 

LDA 

ANGLE 

;  find  the  angle 

C04D 

29 

3F 

AND 

#$3F 

:  strip  off  bits  6  and  7 

C04F 

AA 

TAX 

;  look  up 

COSO 

HD 

00 

CF 

LDA 

COSINE,X 

;  the  cosine  (0-255)  from  a  table 

C053 

2C 

CA 

CO 

BIT 

ANGLE 

,-  check  for  quad  1  and  3 

COM 

so 

03 

BVC 

XXX 

;  OK  If  0  or  2 

C058 

BD 

40 

CF 

LDA 

SINE,X 

;  eUe,  load  the  sine 

C05B 

8D 

DD 

CI 

XXX 

STA 

Bl 

;  get  ready  to  multiply 
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C05E  AD  CB    CO  LDA  LENGTH 

C061  8D    DE   CI  STA  B2 

C064  20     AP    CI  JSR  MUL16 

C067  AD  CA   CO  LDA  ANGLE 

C06A  29     CO  AND  #%n000000 

C06C  F0     11  BEQ  PLUSX 

C06E  C9    CO  CMP  #$C0 

C070  FO     OD  BEQ  PLUSX 

C072  AD  CC  CO  LDA  XORG 

C075  38  SEC 

C076  ED   EO     CI  SBC  TM+1 

C079  8D    CE    CO  STA  REALX 

C07C  4C    89     CO  JMP  CHECKY 

C07F  AD  CC  CO    PLUSX  LDA  XORG 

C082  18  CLC 

C083  6D    EO     CI  ADC  TM+l 

C086  8D    CE    CO  STA  REALX 


;  length  in  byte  2 

;  multiply  them 

;  check  quadrant 

;  bits  6  and  7  are  important 

;  two  zeros 

;  or  two  ones 

;  mean  add  to  XORG 

;  else,  subtract 

;  the  high  byte 

;  and  save  it 

;  now  do  the  y  location 

;  quadrant  0  or  3 

;  add  the  high  byte 
,-  and  store  it 


C089 

C08C 

COSE 

C08F 

C092 

C095 

C097 

C09A 

C09D 

C0A0 

C0A3 

C0A6 

C0A9 

COAC 

COAE 

COAF 

C0B2 

C0B5 

C0B8 

C0B9 

COBC 


AD  CA   CO 

29     3F 

AA 

BD   40     CF 

2C    CA  CO 

50     03 

BD  00     CF 

8D    DD  a 

AD  CB    CO 

8D    DE   CI 

20     AF    CI 

AD  CD  CO 

2C    CA  CO 

10     OA 

18 

6D    EO     CI 

8D    CF    CO 

4C     BF     CO 

33 

ED   EO     CI 

8D    CF    CO 


CHECKY  LDA 
AND 
TAX 
LDA 
BIT 
BVC 
LDA 

YYY  STA 

LDA 
STA 
JSR 
LDA 
BIT 
BPL 
CLC 
ADC 
STA 
JMP 

SUBTRACT SEC 
SBC 
STA 


ANGLE 

#$3F 

sine,x 

ANGLE 

YYY 

COSINE,X 

Bl 

LENGTH 

B2 

MUL16 

YORG 

ANGLE 

SUBTRACT 

TM+1 
REALY 
FOR  WD 

TM+1 
REALY 


;  get  the  angle  again 
;  bits  0-5 

;  get  the  sine 

;  check  the  quadrant 

;  else,  get  the  cosine 

;  store  it  for  multiplying 

;  the  length 

;  also 

;  multiply  them 

;  get  y  origin 

;  test  the  angle 

;  128-255  mean  subtract 

;  add  the  high  byte 

;  and  store 

;  skip  the  subtracting 

;  subtract  from  YORG 


COBF  AE   CE    CO    FORWD 

C0C2  AC  CF    CO 

C0C5  18 

C0C6  20     DO    CO 

C0C9  60 


LDX       REALX 

LDY       REALY 

CLC 

JSR        HRSETP 

RTS 


;  get  the  point's  > 
;  and  y  positions 

;  and  turn  on  the  point 


COCA  00 

COCB  00 

COCC  64 

COCD  64 

COCE  00 

CQCF  00 

CODO 


ANGLE 

LENGTH 

XORG 

YORG 

REALX 

REALY 

HRSETP 


CODO    20     3D    CI 
C0D3    20     DD  CO 


C0D6  20  27 
C0D9  20  50 
CODC  60 

CODD  08 


ei 
ei 


.BYTE  0 

BYTE  0 
.BYTE 
.BYTE 

.BYTE  0 

.BYTE  0 


ISR 
JSR 


100 
100 


HRCALC       PHP 


SVREGS 
HRCALC 


JSR  POlNTl 
JSR  LDREGS 
RTS 


:  the  center  of  the  plotting  area 
;  same  for  v 


sel  a  point  on  Ihe  hi-res  screen 

based  on  values  in  .X,  ,Y.  and  the  carry  flag 

save  the  registers 

calculate  the  location  (in  Zl)  and  the  bit 

pattern  (MASK) 

(subsitute  PO1NT0  for  turning  off  a  pixel) 

restore  the  registers 


save  the  status  register 
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CODE   A9 

00 

LDA 

#<HRSCRN 

;  Initialize  Zl 

COEO     85 

FB 

STA 

Zl 

;  to  point  to 

C0E2    A9 

20 

LDA 

»>HRSCRN 

;  the  hi-res  screen 

C0E4    85 

FC 

STA 

Zl  +  1 

C0E6    98 

TYA 

;  handle  the  row 

C0E7    29 

07 

AND 

#7 

;  mask  out  the  three  low  bits 

C0E9    05 

FB 

ORA 

Zl 

:  and  add  them  to  Zl 

COEB    85 

FB 

STA 

Zl 

COED    98 

TYA 

i  get .Y  again 

COEE    4A 

LSR 

;  shift  right 

COEF    4A 

LSR 

.three 

COFO     4A 

LSR 

;  times 

COF1     A8 

TAY 

;  now  .Y  is  a  counter  for  adding  320 

C0F2     FO 

10 

BEQ 

ROWEND 

;  If  0,  skip  the  next  part 

C0F4    A9 

40 

ROWLP 

LDA 

#<320 

;  low  byte  of  320 

C0F6     18 

CLC 

C0F7     65 

FB 

ADC 

Zl 

:  add  to  Zl 

C0F9     85 

FB 

STA 

Zl 

;  store  it 

COFB    A9 

01 

LDA 

#>320 

:  high  byte 

COFD   65 

FC 

ADC 

Zl+1 

;  add  to  Zl 

COFF     85 

FC 

STA 

Zl  +  1 

C101      88 

DEY 

;  loop  back 

C102     DO 

JO 

BNE 

ROWLP 

;  Zl  now  points  to  the  left  edge  of  the  hi-res 
;  screen  (1  of  200  rows). 

C104     28 

ROWEND 

PLP 

;  retrieve  the  carry  flag 

C105     90 

02 

BCC 

TIMEX 

;  if  clear,  the  left  side  of  the  seam 

C107     E6 

FC 

INC 

Zl  +  1 

;  otherwise,  add  256  to  the  pointer 

CI  09     8A 

TIMEX 

TXA 

:  now  do  .X,  the  column 

C10A    29 

F8 

AND 

*%nmooo 

;  mask  off  0-7  (the  individual  bits) 

C10C    18 

CLC 

C10D   65 

FB 

ADC 

Zl 

;  add  to  Zl 

C10F    85 

FB 

STA 

Zl 

;  store  it 

C1U    90 

02 

BCC 

NOMORE 

;  if  carry  is  clear. 

C113     E6 

FC 

INC 

Zl  +  1 

;  skip  this  INC 

C115    A9 

80 

NOMORE 

LDA 

#$80 

;  now  set  up  mask 

C117     8D 

63 

a 

STA 

MASK 

C11A    8A 

TXA 

;  return  .X  to  .A 

CUB     29 

07 

AND 

*%00000111 

;  bottom  three  bits  (0-7  value) 

CUD    FO 

07 

BEQ 

CLOSEUP 

;  if  zero,  skip  it 

CUP    AA 

TAX 

;  otherwise,  set  up  -X  for  a  counter 

C120     4E 

63 

CI    XLOOP 

LSR 

MASK 

:  move  It  right 

C123     CA 

DEX 

:  count  down 

C124     DO 

FA 

BNE 

XLOOP 

CI  26     60 

CLOSEUP 

RTS 

;  Finished  Zl  points  to  the  byte  and  MASK 
;  holds  the  bitmask. 

C127     AO 

CIO 

POINT1 

LDY 

#0 

;  this  sets  a  point  on  the  screen 

C129     AD  63 

CI 

LDA 

MASK 

:  get  the  mask 

C12C    11 

FB 

ORA 

(Zl)-Y 

;  him  on  a  pixel 

C12E     91 

FB 

STA 

(Zl).Y 

;  put  it  on  the  screen 

C130     60 

RTS 

;  and  that's  all 

CI  31      AO 

00 

POINTO 

LDY 

#0 

;  almost  the  same  as  POINTI,  but  it  clears  a 
;  pixel 

CI  33     AD 

63 

a 

LDA 

MASK 

;  get  the  bitmask 

C136     49 

FF 

EOR 

#$FF 

:  flip  the  bits 

C138     31 

FB 

AND 

(Zl).Y 

;  AND  instead  of  OR 

C13A    91 

FB 

STA 

(Z1),Y 

;  store  it 

C13C    60 

RTS 

I  finished 

C13D   08 

SVRECS 

PHP 

;  first  save  .P 

C13E    48 

PHA 

; then  .A 
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C13F 

08 

PHP 

;  then  .P  again 

C140 

8D 

5F 

CI 

SIA 

TEMPA 

: save  .A 

C143 

8E 

60 

CI 

STX 

TEMPX 

;.X 

C146 

8C 

61 

a 

STY 

TEMPY 

;and.Y 

C149 

68 

PLA 

;  pull  .P  into  -A 

C14A 

8D 

62 

Cl 

STA 

TEMPP 

;  store  it 

C14D 

68 

PLA 

;  get  .A  again 

C14E 

28 

PLP 

;  and  P 

C14F 

60 

RTS 

C150 

AE 

60 

Cl 

LDRECS 

LDX 

TEMPX 

;  restore  .X 

CI  53 

AC 

61 

Cl 

LDY 

TEMPY 

!  and  .Y 

C156 

AD 

62 

Cl 

LDA 

TEMPP 

;get.P 

C159 

48 

PHA 

:  push  it 

C1SA 

AD 

5F 

Cl 

LDA 

TEMPA 

;  get  .A  back 

C15D 

28 

PLP 

!  and  restore  .P 

C15E 

60 

RTS 

;  done 

C15F 

00 

TEMPA 

BYTE 

0 

C160 

00 

TEMPX 

BYTE 

0 

C161 

00 

TEMPY 

BYTE 

0 

C162 

00 

TEMPP 

BYTE 

0 

CI63 

00 

MASK 

BYTE 

0 

C164 

A9 

3B 

HRSETUP 

LDA 

#59 

;  to  set  up  the  hi-res  screen  at  $2000 

C166 

8D 

11 

DO 

STA 

53265 

;  put  a  59  into  53265 

CI69 

A9 

18 

LDA 

#24 

C16B 

8D 

18 

DO 

STA 

53272 

!  and  a  24  into  53272 

C16E 

A9 

10 

LDA 

#$10 

;  white  and  black 

CI  70 

A0 

00 

LDY 

#0 

;  index  into  color  memory 

C172 

99 

00 

04 

COLLP 

STA 

HRCOLR,Y 

C175 

99 

FA 

04 

STA 

HRCOLR+250.Y 

CI  78 

99 

F4 

05 

STA 

HRCOLR+500,Y 

CI7B 

99 

EE 

06 

STA 

HRCOLR+750.Y 

CI7E 

C8 

INY 

C17F 

CO 

FA 

CPY 

#250 

;fill  1000  bytes 

cm 

DO 

EF 

BNE 

COLLP 

C183 

A9 

00 

LDA 

#<HRSCRN 

;  now  set  up  the  clear  screen  routine 

C185 

8D 

93 

Cl 

STA 

FAKE+1 

C188 

A9 

20 

LDA 

#>HRSCRN 

;  high  byte 

C18A 

8D 

94 

Cl 

STA 

EAKE+2 

C18D 

A2 

20 

LDX 

#32 

;  32  pages 

C18F 

A0 

00 

LDY 

#0 

C191 

98 

TYA 

;  zero  for  cleared  bits 

C192 

99 

FF 

FF 

FAKE 

STA 

$FFFF,Y 

CI95 

C8 

INY 

C196 

DO 

FA 

BNE 

FAKE 

CI98 
C19B 

EE 
CA 

94 

Cl 

INC 
DEX 

FAKE +  2 

;  increment  the  high  bvte 

C19C 

DO 

F4 

BNE 

FAKE 

C19E 

60 

RTS 

C19F 

A9 

IB 

HRCLEAR 

LDA 

#27 

;  rum  off  hi-res 

C1A1 

8D 

11 

DO 

STA 

53265 

;  27  into  53265 

CIA4 

A9 

15 

LDA 

#21 

C1A6 

8D 

18 

DO 

STA 

53272 

;  21  into  53272 

C1A9 

A9 

93 

LDA 

#147 

;  clear  screen 

C1AB 

20 

D2 

FF 

JSR 

$FFD2 

C1AE 

GO 

RTS 

C1AF 

MUL16 

= 

• 

;  multiplies  two  numbers 

C1AF 

A9 

00 

LDA 

#0 

;  zero  out 

C1B1 

8D 

DF 

Cl 

STA 

TM 

I  low  byte 
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C1B4 

8D 

EO 

C1 

STA 

TM+1 

:  and  high  byte  of  the  result 

C1B7 

A2 

OK 

LDX 

#8 

;  eight  cycles 

C1B9 

AD 

DD 

CI 

MULSTR 

LDA 

Bl 

C1BC 

2E 

DE 

CI 

ROL 

B2 

;  multiply  or  not? 

C1BF 

90 

OF 

BCC 

NOMULT 

:  no,  if  5  a  zero 

C1C1 

18 

CLC 

C1C2 

6D 

DF 

C] 

ADC 

TM 

;  add  Bl  (o  TM 

C1C5 

8D 

DF 

CI 

STA 

TM 

;  store  it 

C1C8 

A9 

00 

LDA 

#0 

;  and  the 

C1CA 

6D 

EO 

CI 

ADC 

TM+1 

;  high  byte 

C1CD 

8D 

EO 

CI 

STA 

TM+1 

;  in  TM 

C1D0 

CA 

NOMULT 

DEX 

;  count  down  (eight  bits) 

C1D1 

DO 

01 

BNE 

MLMORE 

;  not  equal  yet 

C1D3 

60 

RTS 

;  the  main  return  of  MUL16 

C1D4 

OE 

DF 

CI 

MLMORE 

ASL 

TM 

;  move  it  left 

C1D7 

2E 

EO 

a 

ROL 

TM+1 

;  and  the  high  byte 

C1DA 

4C 

39 

Cl 

IMP 

MULSTR 

;  go  back 

C1DD 

00 

Bl 

.BYTE 

O 

' 

C1DE 

00 

B2 

BYTE 

0 

C1DF 

00 

00 

TM 

.BYTE 

0,0 

See  also  BITMAP,  CLRHRF,  CLRHRS,  HRCOLF,  HRSETP,  PAINT. 
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Name 

Set  or  clear  a  point  on  the  hi-res  screen 

Description 

Enter  this  routine  with  the  x  coordinate  of  the  point  in  the  .X 
register  and  carry  flag  and  the  y  coordinate  (0-199)  in  the  .Y 
register.  The  corresponding  point  on  the  hi-res  screen  is  then 
turned  on.  Because  of  the  unusual  way  that  hi-res  memory  is 
laid  out,  most  of  the  routine  is  devoted  to  shuffling  numbers 
around,  calculating  the  appropriate  memory  location. 

Prototype 

1.  Save  the  register  values. 

2.  Calculate  the  memory  location  by  first  setting  a  zero-page 
location  to  point  to  the  start  of  hi-res  screen  memory. 

3.  Next,  add  in  the  lower  three  bits  of  .Y  (0-7). 

4.  Divide  .Y  by  8,  and  add  320  that  number  of  times. 

5.  Mask  off  the  lower  three  bits  of  .X  and  add  the  result. 

6.  Use  the  lower  three  bits  as  a  counter  to  rotate  the  bit  to  its 
proper  place  in  the  MASK  variable. 

7.  Set  the  point  by  putting  a  zero  in  .Y,  MASK  in  .A,  and  ORA 
indirectly  off  the  zero-page  pointer. 

8.  To  clear  the  point,  exdusive-OR  MASK  with  $FF  and  AND 
it  with  the  memory  location. 

9.  Restore  the  original  register  values. 

Explanation 

The  horizontal  width  of  the  hi-res  screen  is  320  pixels  (num- 
bered 0-319).  The  vertical  height  is  200  lines  (0-199).  The  to- 
tal of  64,000  points  fit  into  exactly  8000  bytes,  because  each 
byte  has  eight  bits  that  control  eight  screen  pixels.  Hi-res 
screen  memory  is  laid  out  in  a  manner  very  similar  to  the  text 
screen. 

This  up  and  down  zig-zagging  pattern  causes  a  few  diffi- 
culties. The  HRCALC  subroutine  at  $C02F-$C078  must  go 
through  some  contortions  to  figure  out  just  where  a  given 
point  is  located  in  memory.  Initially,  the  starting  location  of 
the  hi-res  screen  (8192,  in  the  example)  is  stored  in  the  zero- 
page  pointer  Zl  ($FB-$FC). 

The  y  position  is  handled  first.  It  has  two  components: 
bits  0-2  and  bits  3-7.  Bits  0-2  hold  a  value  between  0  and  7 
that  can  be  added  directly  to  the  Zl  pointer.  Bits  3-7  hold  val- 
ues divisible  by  8  (0,  8,  16,  24,  and  so  on).  Each  time  the 
value  in  y  increases  by  8,  the  screen  memory  increases  by  320 
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(see  figure).  Starting  at  $C040,  the  value  in  .Y  is  divided  by  8, 
and  a  loop  adds  320  to  Zl  as  many  times  as  is  needed. 

Hi-Res  Screen  Organization 


1  1  1  1  1  1  1 

1 1  1  1  1  1  1 

x-posltion 

m  »■. «  n  p.  n  rt  w 


1 

byte  e 

byt*  8 

byt*  312 

1 

km*  l 

byte  9 

but*   313 

2 

byte   2 

byte    IB 

bylB    314 

3 

bate   3 

byte    11 

45-8> 

but*    315 

4 

byte    4 

byte    12 

N~ v 

byte    3I& 

5 

byte   3 

byte   13 

h||t»   317 

6 

byte    t> 

byte  14 

liyi*      J1& 

7 

butt    ? 

byte    15 

bwt*    319 

8 

burr    320 

9 

byte   321 

in 

b^If    32? 

11 

bir»  323 

y-position 



U 

192 

byte    76BR 

HI 

byte    7681 

194 

b'jte     7682 

195 

oytt     ."683 

196 

B«Jtf      7684 

1*7 

byte   7(83 

198 

b4tp     Thai, 

199 

bytt    '887 

The  X  register  is  limited  to  holding  a  number  from  0 
through  255,  but  the  x  coordinates  run  from  0  through  319. 
The  carry  flag  is  used  as  an  extension  of  the  X  register.  If  the 
point  is  higher  than  255,  set  the  carry  flag  and  load  .X  with 
the  coordinate  of  the  point  minus  256.  If  it's  0-255,  carry 
should  be  clear.  The  carry  flag  setting  must  be  saved  at  the 
start  of  HRCALC,  where  the  processor  flags  are  pushed  on  the 
stack  with  PHP.  At  $C056,  PLP  restores  the  flags,  including 
carry.  If  carry  is  set,  the  high  byte  of  Zl  is  increased  by  one. 

Like  the  y  position,  the  x  position  must  be  divided  into 
two  parts — the  first  three  bits  and  the  last  five  bits.  Note  that 
in  the  top  row,  .r  coordinates  0-7  fit  into  byte  0,  8-15  fit  into 
byte  8,  and  so  on.  If  the  bottom  three  bits  are  cleared,  the  re- 
sult can  be  added  to  Zl  to  pinpoint  the  memory  location  to  be 
changed. 

All  that  remains  is  to  take  the  number  %10000000  and 
rotate  it  to  the  right  to  get  the  single  1  bit  into  the  correct  po- 
sition. The  lower  three  bits  of  .X  are  used  in  a  loop  that  rotates 
MASK  to  the  right. 

When  HRCALC  is  finished  with  its  calculations,  the  mem- 
ory address  is  in  $FB-$FC,  and  the  mask  value  is  in  MASK. 
Now  either  POINT1  or  POINTO  can  be  called  to  turn  the  pixel 
on  or  off. 
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The  framing  routine  at  the  very  beginning  starts  .X  at  0 
and  .Y  at  150,  and  draws  a  diagonal  line  from  the  bottom  left 
corner  to  the  top  right.  HRSETUP  and  HRCLEAR  enter  and 
exit  hi-res  mode.  Note  that  no  ROM  routines  are  called,  except 
for  GETTN,  which  waits  for  a  key  to  be  pressed  before  exiting 
to  BASIC. 

Note:  Before  using  this  routine  on  the  128,  enter  POKE 
216,255  (or  add  the  line  LDA  #255:  STA  216  to  the  program). 

Routine 


cooo 

Zl 

— 

251 

;  pointer  to  the  particular  byte  to  be  changed 

cooo 

HRSCRN 

= 

$2000 

;  screen  is  at  8192  decimal 

cooo 

HRCOLR 

= 

$0400 

;  color  memory  al  1024 

cooo 

GETIN 

= 

$FFE4 

cooo 

20 

B6 

CO 

JSR 

HRSETUP 

;  set  up  and  clear  the  hl-res  screen  and  color 
,  memory 

C003 

A2 

00 

LDX 

#0 

CO05 

A0 

96 

LDY 

#150 

C007 

18 

CLC 

coos 

20 

22 

CO 

MAIN 

ISR 

HRSETP 

;  turn  on  the  point 

C008 

E8 

INX 

:  and  its  neighbor 

cooc 

DO 

Oi 

BNE 

NSET 

;  If  not  zero,  continue 

C00E 

38 

SEC 

;  else,  sel  carry  for  the  seam 

C00F 

20 

22 

CO 

NSET 

JSR 

HRSETP 

;  next  one 

CQ12 

E8 

INX 

CO  13 

DO 

01 

BNE 

NSEU 

I  handle  the  overflow 

C015 

38 

SEC 

C016 

88 

NSEU 

DEY 

C017 

DO 

EF 

BNE 

MAIN 

C019 

20 

E4 

FT 

GL 

JSR 

GETTN 

;  get  a  key 

C01C 

F0 

FB 

BEQ 

GL 

;  wait  before  exiting 

C01E 

20 

Fl 

CO 

JSR 

HRCLEAR 

;  rum  off  hi-res  screen  and  restore  to  normal 

C021 

60 

RTS 

C022 

HRSETP 

- 

« 

;  set  a  point  on  (he  hi-res  screen 

;  based  on  values  in  X  .Y,  and  the  carry 

;fl»g 

C022 

20 

BF 

CO 

JSR 

SVREGS 

;  save  the  registers 

CQ25 

20 

2F 

CO 

JSR 

HRCALC 

;  calculate  Ihe  location  (in  Zl)  and  the  bit 
;  pattern  (MASK) 

C028 

20 

79 

CO 

JSR 

POINT1 

;  (subsitute  POINT0  for  turning  off  a  pixel) 

COZB 

20 

A2 

CO 

JSR 

LDREGS 

;  restore  the  registers 

C02E 

60 

RTS 

C02F 

08 

HRCALC 

PHP 

;  save  the  siai us  register 

CO30 

A9 

00 

LDA 

#<HRSCRN 

;  initialize  Zl 

C032 

65 

FB 

STA 

Zl 

;  to  point  to 

C034 

A9 

20 

LDA 

#>HRSCKN 

;  the  hi-res  screen 

C036 

85 

FC 

STA 

Zl+1 

C038 

98 

TVA 

;  handle  the  row 

COM 

29 

07 

AND 

m 

;  mask  out  the  three  low  bits 

C03B 

05 

FB 

ORA 

Zl 

;  and  add  them  to  Zl 

C03D 

85 

F8 

STA 

Zl 

C03F 

98 

TVA 

;  get  .Y  again 

COM 

4A 

LSR 

;  shift  right 

C041 

4A 

LSR 

;  three 

C042 

4A 

LSR 

;  times 
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C043 

A8 

C044 

FO 

!0 

C046 

A9 

40 

C048 

18 

C049 

65 

FB 

C048 

85 

FB 

C04D 

A9 

01 

C04F 

65 

FC 

C051 

85 

FC 

C053 

88 

C054 

DO 

FO 

ROWLP 


TAY 

BEQ  ROWEND 

LDA  #<320 

CLC 

ADC  Zl 

STA  23 

LDA  #>320 

ADC  Zl+1 

STA  21+1 

DEY 

BNF  ROWLP 


C056 

28 

ROWEND 

PIP 

;  retrieve  the  carry  flag 

C057 

90 

02 

BCC 

TIMEX 

;  If  clear,  the  left  side  of  the  seam 

C059 

F6 

FC 

INC 

21+1 

;  otherwise,  add  256  to  the  pointer 

C05B 

8A 

TEWEX 

TXA 

;  now  do  .X,  the  column 

C05C 

29 

F8 

AND 

#%1U11000 

;  mask  off  0-7  (the  Individual  bits) 

COSE 

18 

CLC 

C05F 

65 

FB 

ADC 

Zl 

;  add  to  Zl 

C061 

85 

FU 

STA 

Zl 

;  store  it 

C063 

90 

02 

BCC 

NOMORE 

;  if  carry's  clear. 

C065 

E6 

FC 

INC 

Zl+1 

;  skip  this  INC 

C067 

A9 

80 

NOMORE 

LDA 

#$80 

;  now  set  up  MASK 

C069 

8D 

B5 

CO 

STA 

MASK 

C06C 

8A 

TXA 

;  return  .X  to  .A 

C06D 

29 

07 

AND 

#%ooooom 

;  bottom  three  bits  (0-7  value) 

C06F 

FO 

07 

BEQ 

CLOSEUP 

;  if  zero,  skip  it 

C071 

AA 

TAX 

;  otherwise,  set  op  ,X  for  a  counter 

C072 

4E 

B5 

CO 

XLOOP 

LSR 

MASK 

;  move  it  right 

C075 

CA 

DEX 

;  count  down 

C076 

DO 

FA 

BNE 

XLOOP 

C078 

60 

ClOSEUP 

RTS 

;  Finished.  Zl  points  to  the  byte  and  MASI 
;  holds  the  bitmask. 

C079 

AO 

00 

POINT1 

LDY 

#0 

;  this  sets  a  point  on  the  screen 

C07B 

AD 

B5 

CO 

LDA 

MASK 

;  get  the  mask 

C07E 

11 

FB 

ORA 

(Z1),Y 

;  turn  on  a  pixel 

C080 

91 

FB 

STA 

(Zlt.Y 

;  put  it  on  the  screen 

C082 

CO 

RTS 

;  and  that's  all 

C083 

AO 

00 

FOINTO 

LDY 

#0 

;  almost  the  same  as  1'OINTl.  but  it  clears 
;  a  pixel 

C085 

AD  Bf 

CO 

LDA 

MASK 

;  get  the  bit  mask 

C088 

49 

FF 

EOR 

#$FF 

;  flip  the  bits 

C08A 

31 

FB 

AND 

<Z1),Y 

;  AND  instead  of  OR 

C08C 

91 

FB 

STA 

<Z1>,Y 

;  store  it 

COSE 

60 

RTS 

;  finished 

C08F 

1)8 

SVREGS 

PHP 

:  first  save  .P 

C090 

48 

PHA 

;  then  .A 

C091 

08 

PHP 

;  then  -P  again 

C092 

8D 

Bl 

CO 

STA 

TEMPA 

;  save  .A 

C095 

8E 

B2 

CO 

STX 

TEMPX 

;X 

C098 

8C 

B3 

CO 

STY 

TEMPY 

;and.Y 

C09B 

68 

PLA 

;  pull  .P  into  -A 

C09C 

BD 

B4 

GO 

STA 

TEMPP 

;  store  it 

C09F 

68 

PLA 

;  get  .A  again 

COAO 

28 

PLP 

;  and  -P 

C0A1 

60 

RTS 

now  .Y  is  a  counter  for  adding  320 
if  zero,  skip  the  next  part 
low  byte  of  320 

add  toZl 
store  it 
high  byte 
add  to  Zl 

loop  back 


Zl  now  points  to  the  left  edge  of  the  hi- 
res screen  (1  of  200  rows). 
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C0A2    AE   B2    CO    LDREGS       LDX      TEMPX 


COAS    AC  B3    CO 
C0A8    AD  B4    CO 
COAB   48 
COAC   AD  Bl     CO 
COAF    28 
COBO    60 

C0B1  00 

C0B2  00 

C0B3  00 

C0B4  00 

C0B5  00 


LDY  TEMPY 

LDA  TEMPP 

PHA 

LDA  TEMPA 


TEMPA 
TEMPX 
TEMPY 
TEMPP 
MASK 

HRSETUF 


C0B6  A9  3B 

C0B8  8D  11     DO 

COBB  A9  18 

COBD  8D  18     DO 

COCO  A9  10 

C0C2  AO  00 

C0C4  99  00    04    COLLP 

C0C7  99  FA    04 

COCA  99  F4     05 

COCD  99  EE    06 

CODO  C8 

C0D1  CO  FA 

C0D3  DO  EF 

C0D5  A9  00 

C0D7  8D  ES     CO 

CODA  A9  20 

CODC  8D  E6     CO 

CODF  A2  20 

C0E1  AO  00 

C0E3  98 

C0E4  99  FF     FF     FAKE 

C0E7  C8 

C0E8  DO  FA 

COEA  EE  E6    CO 

COED  CA 

COEE  DO  F4 

COFO  60 


LDA 
STA 
LDA 
STA 
LDA 
LDY 
STA 
STA 
STA 
STA 
INY 
CPY 
BNE 

LDA 
STA 
LDA 
STA 
LDX 
LDY 
TYA 
STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


C0F1     A9    IB 
C0F3    8D    11 


DO 


C0F6  A9  15 

C0F8  8D  18    DO 

COFB  A9  93 

COFD  20  D2    FF 

C100  60 


HRCLEAR  LDA 
STA 
LDA 
STA 
LDA 
JSR 
RTS 


;  restore  .X 
;  and  .Y 
;get  J 
;  push  it 
;  get .A  back 
;  and  restore  S 
;  done 


.BYTE  0 

.BYTE  0 

BYTE  0 

BYTE  0 

.BYTE  0 


#59 

53265 

#24 

53272 

#$10 

#0 

HRCOLR/V 

HKCOLR+250 

HRCOLR+500 

HRCOLR+750 

#250 
COLLP 

#<HRSCRN 
FAKE+1 
#>HRSCRN 
FAKE+2 

#32 
#0 

$FFFF,Y 

FAKE 
FAKE+2 


;  to  set  up  the  hi-res  screen  at  $2000 
;  put  a  59  into  53265 

;  and  a  24  into  53272 

;  white  and  black 

;  Index  into  color  memory 


;  fill  1000  bytes 

i 

j  Now  set  up  the  clear-screen  routine. 

;  high  byte 

;  32  pages 

;  zero  for  cleared  bits 

;  increment  the  high  byte 


FAKE 


#27 

53265 

#21 

53272 

#147 

$FFD2 


;  Turn  off  hi-res. 
;  27  into  53265 

;  21  into  53272 
;  clear  screen 


See  also  BITMAP,  CLRHRF,  CLRHRS,  HRCOLF,  HRPOLR,  PAINT. 
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Name 

Increment  a  two-byte  counter 

Description 

The  machine  language  INC  instruction  increments  a  value  in 
memory  by  one.  This  INC2  routine  extends  the  usefulness  of 
INC  to  cover  a  wider  range  of  values  (0-65535  instead  of 
0-255). 

Prototype 

1 .  INCrement  the  low  byte  of  a  counter. 

2.  If  it  has  reached  zero,  increment  the  high  byte. 

3.  If  the  high  byte  has  reached  zero,  the  counter  has  gone  past 
the  limit  of  65535.  Set  the  carry  flag  to  indicate  an  error. 

Explanation 

The  example  program  waits  for  a  keypress  and  exits  if  the  Fl 
key  is  detected.  Otherwise,  it  prints  the  character  and  calls 
INC2  to  keep  track  of  how  many  keys  have  been  pressed. 

Within  the  INC2  subroutine,  the  low  byte  of  COUNTER 
is  increased  by  one.  If  it  reaches  zero,  the  high  byte  is  also  in- 
creased. Then  the  carry  flag  is  cleared,  and  the  subroutine 
ends.  Clearing  the  carry  flag  isn't  necessary,  but  it's  included 
to  signal  a  successful  two-byte  increment.  If  INC2  ever  counts 
beyond  the  top  limit  ($FFFF),  carry  is  set  to  indicate  an 
overflow. 

Back  in  the  main  routine,  the  program  ends  when  Fl  is 
pressed  or  if  the  user  presses  more  than  65,535  keys.  At  that 
point,  two  RETURNS  are  printed  followed  by  the  number  of 
keystrokes. 

Note  to  128  users:  Since  this  program  checks  for  the  Fl 
key,  which  is  predefined  to  print  GRAPFUC,  you  should  add 
the  line  KEY1,  CHR$(133)  to  insure  that  the  program  works 
properly  on  the  128.  Alternately,  you  could  call  the  Kernal 
routine  PFKEY  at  $FF65.  This  routine  redefines  a  given  func- 
tion key. 

Routine 


cooo 

Fl 

= 

133 

cooo 

GET1N 

= 

SFFE4 

CHROUT 

— 

$FFD2 

cooo 

UNPRT 

= 

SBDCD 

;  UNPRT  =  $8E32  on  the  128— ROM 

;  routine  to  print  a  number 

cooo 

A9 

00 

LDA 

#0 

;  clear  the  counter 

C002 

8D 

41 

CO 

STA 

COUNTER 

C005 

8D 

42 

CO 

STA 

COUNTER +1 
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C008 

20 

£4 

FF 

MLOOP 

JSR 

CETTN 

COOB 

FO 

F3 

BEQ 

MLOOP 

COOD 

C9 

85 

CMP 

#F1 

COOF 

FO 

ns 

BEQ 

CLEANUP 

con 

20 

D2 

FF 

JSR 

CHROUT 

C014 

20 

28 

CO 

JSR 

INC2 

C017 

90 

EF 

BCC 

MLOOP 

C019 

A9 

!)D 

CLEANUP 

LDA 

#13 

COIB 

20 

D2 

FF 

JSR 

CHROUT 

C01E 

20 

D2 

FF 

JSR 

CHROUT 

C021 

A£ 

41 

CO 

LDX 

COUNTER 

C024 

AD 

42 

CO 

LDA 

COUNTER +1 

C027 

20 

CD  BD 

JSR 

LINPRT 

C02A 

60 

RTS 

C02B 

EE 

41 

CO 

INC2 

INC 

COUNTER 

C02E 

FO 

02 

BEQ 

INCH! 

COM 

18 

FINIS 

CLC 

C031 

60 

RTS 

C032 

EE 

42 

CO 

INCH1 

INC 

COUNTER  + 

C035 

DO 

F9 

BNE 

FINIS 

C037 

A9 

FF 

LDA 

#$FF 

C039 

8D 

41 

CO 

STA 

COUNTER 

COJC 

8D 

42 

CO 

STA 

COUNTER + 

C03F 

33 

SEC 

CU40 

60 

RTS 

C041 

00 

DO 

COUNTER 

.BYTE 

0.0 

get  a  keypress 

loop  until  it  happens 

is  it  the  Fl  key? 

yes,  finish  up 

else,  print  it 

and  the  counter  clicks 

cany  dear  means  less  than  65535  characters 

fall  through  to  CLEANUP  If  carry  set  after 

INC2 

RETURN  character 

print  it 

print  it  again 

low  byte  of  counter  value 

high  byte 

print  the  number  of  keys  pressed 


add  one  to  the  counter 

If  equal  to  zero,  increment  the  high  byte 

clear  carry  (meaning  OK) 

and  return 

up  the  high  byte 

if  if  s  not  zero,  OK 


:  carry  set  means  we've  reached  the  limit 


See  also  ADDBYT,  ADDFP,  ADDINT. 
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Name 

Initialize  a  disk 

Description 

INITLZ  initializes  a  disk,  forcing  the  block  allocation  map 
(BAM)  to  be  read  into  the  disk  drive's  memory.  This  is  some- 
times useful  after  a  new  disk  has  been  inserted  or  after 
changes  have  been  made  to  the  files  on  the  disk. 

Prototype 

1.  Open  the  disk  command  channel,  channel  15. 

2.  As  part  of  the  filename,  send  the  initialize  command,  10. 

3.  Close  the  command  channel. 

Explanation 

Brand-new  blank  disks  must  be  formatted  before  they  can  be 
used.  On  some  computers,  this  process  is  called  initializing  a 
disk.  On  Commodore  computers,  however,  initializing  has 
quite  a  different  meaning. 

When  you  send  the  DOS  command  10,  the  disk  drive 
reads  the  current  block  allocation  map  into  memory,  so  it 
knows  which  sectors  are  already  taken.  This  process  should 
happen  automatically  when  the  disk  drive  senses  that  a  new 
disk  has  been  inserted.  But  it  doesn't  hurt  to  force  an 
initialization.  It  may  even  be  necessary  if  you  tamper  with  file 
information  (unscratching  a  file,  for  example). 

The  program  works  like  most  of  the  other  DOS  routines. 
It  opens  channel  15,  the  disk  command  channel,  with  the 
Kemal  SETLFS  routine.  Then,  in  the  process  of  setting  the 
name,  it  uses  the  two  characters  10.  When  the  file  is  opened 
(with  Kernal  SETNAM  and  OPEN),  the  command  is  automati- 
cally sent  to  the  drive.  Then  the  file  is  closed  and  channels  are 
cleared. 


Roatinc 

cooo 

SETLFS 

= 

$FFBA 

C0D0 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

= 

$FFC0 

cooo 

CLOSE 

= 

$FFC3 

cooo 

CLRCHN 

— 

$FFCC 

cooo 

A9 

01 

INITLZ 

LDA 

#1 

logical  file  number 

C002 

A2 

08 

LDX 

#8 

device  number  for  disk  drive 

COM 

AO 

OF 

LDY 

#15 

secondary  address  for  command  channel 

C006 

20 

BA 

FF 

JSR 

SETLFS 

prepare  lo  open  file 

cow 

A9 

03 

LDA 

#BUFLEN 

length  of  buffer 

C0OB 

A2 

IE 

LDX 

#<BUFFER 

.X  and  .Y  hold  the 

COOD 

AO 

CO 

LDY 

#>BUFFER 

address  of  the  buffer 

C00F 

20 

BD 

FF 

JSR 

SETNAM 

set  up  filename 
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C012  20     CO    FF 

C015  A9    01 

C017  20     C3    FF 

C01A  20     CC  FF 

C01D  60 

C01E  49     30 

C020  OD 
C02J 


JSR  OPEN 

IDA  #1 

JSR  CLOSE 

JSR  CLRCHN 
RTS 


BUFFER        .ASC     "10" 
.BYTE    13 


BUFLEN        = 


•  -  BUFFER 


;  open  it 

;  and  Immediately 

;  close  the  command  channel 

;  clear  the  channel) 

;  all  done 

;  data  area 

;  RETURN  character 


See  also  CONCAT,  COPYFL,  FORMAT,  RENAME,  SCRTCH,  VALIDT. 
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Name 

Interrupt-driven  clock 

Description 

This  routine  updates  a  digital  clock  at  the  upper  right  corner 
of  the  screen  during  each  IRQ  interrupt.  This  clock  relies  on 
the  first  time-of-day  clock  (TOD  1)  to  maintain  accurate  time. 

A  feature  of  this  routine  is  that  it  allows  you  to  toggle  the 
clock  display  on  or  off  by  pressing  the  F7  key.  If  the  clock  dis- 
tracts you  or  becomes  annoying,  simply  press  F7  and  clear  the 
screen.  (On  the  128,  before  SYSing  to  the  routine,  you'll  need 
to  define  the  F7  key  to  a  null  string  by  entering  KEY  7,"".) 

To  disable  the  clock  altogether,  press  RUN/STOP- 
RESTORE  to  reset  the  IRQ  interrupt  vector. 

Prototype 

This  is  actually  a  two-part  routine.  Before  entering  the  first 
part  (INTCLK),  store  the  current  time  in  binary-coded  decimal 
format  as  TIMSET  at  the  end  of  the  program.  Be  sure  to  add 
$80  to  the  hours  byte  if  the  time  is  p.m.  (See  TOD2ST  for  de- 
tails on  setting  the  time-of-day  clocks.) 

In  INTCLK: 

1.  Using  TOD1ST,  set  TOD  1  clock  to  the  time  specified  in 
TIMSET. 

2.  Disable  IRQ  interrupts  with  SE1. 

3.  Redirect  the  IRQ  interrupt  vector  at  788-789  to  MAIN. 

4.  With  the  vector  changed,  reenable  IRQ  interrupts  and  RTS. 

In  MAIN: 

1.  Determine  whether  the  last  key  pressed  was  F7.  If  it  was, 
toggle  a  clock  display  flag  from  0  to  1,  or  vice  versa,  with 
EOR  #1. 

2.  If  the  clock  display  flag  contains  a  zero,  exit  the  routine 
through  the  normal  IRQ  interrupts  (in  step  7). 

3.  Otherwise,  store  the  current  cursor  color  (COLOR)  into  each 
color  RAM  position  for  the  clock  display.  Then  store  the 
current  screen  background  color  in  the  initial  color  position. 

4.  In  PLACLP,  read  and  store  to  the  clock  display  in  reverse 
video  the  digits  for  the  hour,  minute,  and  second.  Precede 
each  digit  pair  with  a  reverse  colon.  (The  first  colon  is  not 
seen  because  its  color  is  the  screen  background  color.) 

5.  Print  a  reverse  decimal  and  the  tenths  of  seconds. 


281 


TNTCLK 


6.  If  the  hours  byte  is  negative,  print  a  P  for  p.m.;  otherwise, 
print  an  A. 

7.  Exit  by  executing  the  normal  IRQ  interrupts. 

Explanation 

The  actual  readout  for  the  clock  is  stored  to  the  screen  during 
the  routine  MAIN.  Within  this  routine,  the  Y  register  is  used 
to  index  the  screen  position  in  the  clock  display,  while  .X 
points  to  the  relative  TOD  clock  bytes — either  hours,  minutes, 
seconds,  or  tenths  of  seconds. 

First,  MAIN  fills  the  underlying  color  RAM  for  the  display 
with  the  current  cursor  color  (as  stored  in  COLOR).  This  takes 
place  in  COLOOP.  Because  the  clock  is  displayed  in  the  cur- 
rent text  color,  the  readout  will  be  visible  regardless  of  the 
screen  background  color  (assuming,  of  course,  that  the  text 
color  differs  from  the  screen  background  color). 

After  COLOOP,  the  clock  itself  is  stored  to  the  screen. 
Each  digit  pair  within  the  clock — representing  hours,  minutes, 
and  seconds — is  separated  by  a  reverse  colon  for  better 
readability.  A  reverse  decimal  point  is  located  between  the  sec- 
onds place  and  tenths-of-seconds  place  at  $C05B. 

Notice  also  that  a  colon  is  placed  just  before  the  clock  dis- 
play. This  colon  doesn't  actually  appear  on  the  screen  since  its 
color  byte  is  taken  from  the  screen  background  color  register. 
Nevertheless,  it  prevents  the  clock  display  from  being  ac- 
cepted as  a  BASIC  line  if  the  user  should  accidentally  hit  RE- 
TURN over  this  line. 

Bytes  from  the  TOD  clock  are  in  binary-coded  decimal 
format.  The  high  nybble  of  each  byte  represents  the  ten's 
place,  while  the  low  nybble  is  the  one's  place.  By  alternately 
masking  low  and  high  nybbles  and  converting  the  result  to 
screen  codes  in  PLACLP,  you  can  store  each  byte  from  the 
TOD  clock  reading  in  screen  memory  as  a  two-digit  number. 
Since  bit  7  is  the  a.m./p.m.  flag  in  the  hours  byte,  it  must  be 
masked  in  order  to  read  the  hours  digits  correctly. 

The  exception  to  this  arrangement  within  the  TOD  clock 
is  the  tenths-of-seconds  place.  Since  no  more  than  a  single 
decimal  digit  need  be  stored  in  the  tenths  byte,  the  high 
nybble  is  unused.  As  a  result,  we  needn't  break  this  byte  into 
separate  nybbles.  We  simply  store  it  after  converting  it  to  a 
screen  code. 

The  last  thing  to  be  done  in  the  routine,  before  exiting  to 
the  normal  IRQ  interrupt  handler,  is  to  display  the  A  or  P  for 
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ajn.  or  p.m.  The  code  for  this  begins  at  $C068. 

Note:  INTCLK  currently  uses  TOD1  (the  clock  in  CIA  #1) 
to  keep  time.  If,  for  some  reason,  this  clock  is  unavailable,  you 
can  just  as  easily  use  TOD2  by  substituting  TODTN2  for 
TODTN1  in  the  program. 

Routine 


cooo 
cooo 


TODTN1 
TODTN2        = 


56326 
56584 


cooo 

rRQVEC 

- 

788 

cooo 

IRQNOR 

= 

59953 

cooo 

LSTX 

= 

197 

cooo 

SCRCLK 

= 

1050 

cooo 

COLCLK 

= 

55322 

cooo 

BGCOLO 

=• 

53281 

cooo 

COLOR 

= 

646 

COOO     20     7F     CO    INTCLK        JSR        TOD1ST 
C003     78  SB 


time-of-day  dock  1 — tenths-of-seconds 

register 

time-of-day  clock  2 — tenths-of-seconds 

register 

vector  to  IRQ  interrupt  routine 

IRQNOR  -  64101  on  128— normal 

interrupt  service  routine 

LSTX  —  213  on  the  128 — last  key  pressed 

screen  address  for  the  clock 

color  RAM  for  clock 

background  color  register  for  screen 

COLOR  =  241  on  the  128 — text  (oreground 

color  register 

Set  up  an  interrupt -driven  clock  display. 

Replace  TODTN1  with  TODTN2  to  use 

TOD  clock  2. 

set  TOD  dock  1  and  start  it  by  writing  to 

tenths 

disable  IRQ  interrupts  to  change  the  IRQ 

vector 


C004 

A9 

10 

LDA 

#<MAIN 

store  the  low  byte  of  Interrupt  wedge 

C006 

8D 

14 

03 

STA 

IRQVEC 

CO09 

A9 

CO 

LDA 

#>MAIN 

and  the  high  byte 

COfll) 

8D 

15 

03 

STA 

IRQVEC+1 

CO0E 

58 

CLI 

reenable  IRQ  interrupts 

COOF 

60 

RTS 

exit  setup  routine 

C010 

A5 

C5 

MAIN 

LDA 

LSTX 

check  for  F7 

C012 

C9 

03 

CMP 

#3 

UitF7? 

C014 

DO 

08 

BNE 

NOTTOG 

don't  toggle  the  dock  if  not  F7 

C016 

AD  92 

CO 

TOGGLE 

LDA 

CLKFLG 

toggle  clock  on/off 

C019 

49 

01 

EOR 

#1 

C01B 

8D 

92 

CO 

STA 

CLKFLG 

reset  flag 

C01E 

AD 

92 

CO 

NOTTOG 

LDA 

CLKFLG 

necessary  for  NOTTOG 

C021 

F0 

4F 

BEQ 

EXIT 

if  flag  is  zero,  don't  show  the  clock 
-  instead,  execute  normal  IRQs 

C023 

AD 

0B 

LDY 

#11 

make  dock  color  the  same  as  text  color 

C025 

AD  86 

02 

LDA 

COLOR 

■  get  cursor  color 

C028 

99 

1A 

D8 

COLOOP 

STA 

COLCLK.Y 

*  store  it  to  each  color  RAM  position 

C02B 

88 

DEY 

■  next  lower  position 

C02C 

DO 

FA 

BNE 

COLOOP 

;  do  12  positions 

C02E 

AD 

21 

DO 

LDA 

BGCOLO 

-  get  background  color  for  first  colon 

C031 

8D 

1A 

D8 

STA 

COLCLK 

;  so  first  colon  is  not  seen 

COM 

A2 

03 

LDX 

#3 

;  as  an  index  for  hrs.,  mlns.,  sees.,  tenths 

C036 

A0 

FF 

LDY 

#255 

;  so  Y  starts  with  zero  in  PLACLP 

C038 

C8 

PLACLP 

INY 

;  for  next  position  in  the  dock 

C039 

20 

79 

CO 

JSR 

COLON 

;  POKE  in  colon  at  beginning  of  clock 

C03C 

C8 

INY 

;  for  next  position 

C03D 

BD 

08 

DC 

LDA 

TODTN1.X 

;  start  with  hrs. 

C040 

48 

PHA 

;  store  it  temporarily 

C041 

29 

70 

AND 

#%0111O0O0 

;  mask  out  low  nybble  and  bit  7 

C043 

4A 

LSR 

;  shift  high  nybble  into  low  nybble 

C044 

4A 

LSR 
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C04S 

4A 

I.SK 

C046 

4A 

LSR 

C047 

09 

Bl) 

ORA 

#176 

C049 

99 

1A 

0* 

STA 

SCRCLK.Y 

C04C 

CB 

INY 

C04D 

68 

PLA 

C04E 

29 

OF 

and 

#$0F 

C050 

09 

BO 

ORA 

#176 

C052 

99 

1A 

04 

STA 

SCRCUCY 

C055 

CA 

DEX 

C056 

DO 

EO 

BNE 

PLACLP 

C0S8 

C8 

INY 

C059 

A9 

AE 

LDA 

#174 

C05B 

99 

1A 

04 

STA 

SCRCLK,Y 

C05E 

C8 

INY 

C05F 

AD 

08 

DC 

LDA 

TODTN1 

C062 

09 

DO 

ORA 

#176 

C064 

99 

1A 

04 

STA 

SCRCUCY 

C067 

C8 

INY 

C068 

AD  OB 

DC 

LDA 

TODTN1+3 

C06B 

30 

OS 

BNO 

PMFLAG 

C06D 

A9 

81 

LDA 

#129 

C06F 

99 

1A 

04 

PRAMPM 

STA 

SCRCLK.Y 

C072 

4C 

31 

EA 

EXIT 

JMP 

IRQNOR 

C075 

A9 

90 

PMFLAG 

LDA 

#144 

C077 

DO 

F6 

BNE 

PRAMPM 

C079 

A9 

BA 

COLON 

LDA 

*166 

C07B 

99 

1A 

04 

STA 

SCRCLK,Y 

C07E 

60 

RTS 

C07F 

A0 

00 

TOD1ST 

LDY 

#0 

C081 

A2 

03 

LDX 

*3 

C083 

B9 

8E 

CO 

SETLOP 

LDA 

TIMSET.Y 

C086 

9D 

08 

DC 

STA 

TODTN1.X 

C089 

C8 

INY 

C08A 

CA 

DEX 

C08B 

10 

F6 

BPL 

SETLOP 

C08D 

60 

RTS 

C08E 

82 

30 

13 

TIMSET 

-BYTE 

$82.$30,S13.S0 

C092     01 


CLKFLC        .BYTE    1 


;  convert  lo  numeric  range  (+48),  reverse 

;  (+128) 

;  position  the  result  on  the  screen 

;  for  next  position 

;  retrieve  byte  to  handle  low  nybble 

;  mask  out  high  nybble 

;  convert  to  numeric  range,  reverse 

;  and  store  result  to  screen 

;  for  next  place — alius,  and  sees. 

;  do  three  bytes— hrs.,  mins.,  sees. 

;  to  position  decimal 

;  screen  code  for  a  reverse  decimal 

;  POKE  it 

;  to  position  tenths  place 

;  get  the  tenths  byte  and  restart  the  clock 

;  convert  to  numeric  range  and  reverse 

;  display  the  tenths 

;  to  position  a.m  /p. in. 

;  read  hours 

;  bit  7  is  set  indicating  p.m.  time 

;  screen  code  for  reverse  A— a.m. 

;  store  it  to  screen 

;  exit  always 

;  screen  code  for  P 

;  print  P  and  exit  to  normal  interrupts 

;  POKE  in  a  reverse  colon  at  current  screen 
I  position. 


Set  TOD  clock  1  (or  2). 

Replace  TODTN1  with  TODTN2  to  set  TOD 

clock  2. 

as  an  index  (or  the  time  setting 

as  an  index  for  hrs.,  mms.,  sees.,  tenths 

read  in  the  time  to  set 

store  to  clock — hrs.  first 

for  next  TTMSET  byte 

for  next  dock  byte  (mins..  sees.,  tenths) 

set  all  lour  bytes  of  clock 


hrs.,  mins,,  sees.,  tenths  for  clock 
(02.30.13.0  pjn.) 

For  a.m.,  subtract  $80  from  hrs.  place, 
clock  display  flag — display  it  (1)  or  don't 
display  (0) 


See  also  ALARM2,  TOD1DL,  TOD1RD,  TOD2PR,  TOD2ST. 
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Name 

Produce  a  delay  using  an  IRQ  interrupt  counter 

Description 

INTDEL  uses  the  IRQ  interrupt  as  an  event  timer. 

Unless  they're  disabled,  interrupt  requests  (IRQs)  occur  at 
regular  intervals — once  every  1/60  second  to  be  exact — 
regardless  of  what's  happening  in  the  main  program.  This  is 
the  basis  of  this  routine. 

INTDEL  updates  a  counter  during  each  IRQ  interrupt, 
thus  freeing  your  main  program  to  do  other  things.  In  other 
words,  you  no  longer  have  to  halt  the  current  action  to  update 
a  timer.  Instead,  you  can  wait  until  the  ongoing  activity  is 
complete  before  checking  the  state  of  the  timer. 

For  instance,  if  you're  writing  a  joystick-controlled,  timed, 
arcade-style  game  in  which  a  player  must  defend  his  ground 
base  from  aerial  invaders  in  the  form  of  sprites.  And  these 
sprites,  as  is  often  the  case,  are  interrupt-driven,  meaning 
they're  constantly  moving  regardless  of  what's  happening  in 
the  rest  of  your  program. 

Now  suppose  the  player  needed  to  aim  his  artillery  at  an 
incoming  attacker,  but  your  program  was  off  somewhere  up- 
dating the  timer.  It  could  easily  be  curtains  for  the  unfortunate 
player.  But  with  this  routine,  you  could  allow  the  player  to 
ward  off  the  attacker  before  checking  the  timer. 

Another  practical  application  of  an  interrupt  timer  such  as 
this  one  is  in  generating  interrupt-driven  music.  Here,  the  inter- 
rupt timer  typically  determines  the  duration  of  a  specific  note. 

Prototype 

In  INTDEL: 

1.  Disable  IRQ  interrupts  with  SEI. 

2.  Redirect  the  IRQ  interrupt  vector  at  788  to  DWEDGE. 

3.  Initialize  the  counter  flag  to  a  value  of  one,  indicating  the 
countdown  is  ongoing. 

4.  Set  DELCTR  to  the  delay  time  specified  by  DELAY.  In  the 
process,  increment  the  high  byte  of  DELCTR  by  one. 

5.  With  the  vector  having  been  changed  in  step  2,  reenable 
IRQ  interrupts  and  RTS. 

In  DWEDGE: 

1.  Check  CTRFLG  to  determine  if  a  delay  countdown  is  in 
progress. 
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2.  If  it  isn't  (CTRFLG  =  0),  exit  the  routine  through  the  nor- 
mal IRQ  interrupt  handler  (in  step  7). 

3.  Otherwise,  decrement  the  low  byte  of  the  delay  counter  and 
exit  through  the  normal  IRQ  interrupt  handler,  provided  the 
low  byte  hasn't  reached  zero. 

4.  If  the  low  byte  has  reached  zero  in  step  3,  then  decrement 
the  high  byte  of  DELCTR  as  well. 

5.  If  the  resulting  high  byte  has  yet  to  reach  zero,  then  exit 
through  step  7. 

6.  Otherwise,  store  a  value  of  zero  to  CTRFLG,  indicating  the 
countdown  is  complete. 

7.  Exit  by  executing  the  normal  IRQ  interrupts. 

Explanation 

The  program  below  initially  sets  the  two-byte  interrupt  timer 
(DELCTR)  in  INTDEL  to  330  interrupts,  or  five  and  a  half  sec- 
onds, and  the  timer  flag  (CTRFLG)  to  1.  Then,  within  INLOOP, 
it  prints  a  series  of  ten  spade  characters  on  the  screen  before 
checking  the  timer  flag.  If  CTRFLG  is  1,  meaning  the  IRQ  timer 
is  still  counting  down,  the  program  prints  another  ten  spades. 

When  the  timer  finally  reaches  zero,  CTRFLG  itself  be- 
comes zero  in  $C041.  This  halts  the  main  program,  but  not 
before  the  last  ten  spades  have  printed. 

Note:  As  always,  when  redirecting  the  IRQ  vector  to  your 
own  routine,  be  sure  you  first  disable  the  IRQ  interrupts. 

Routine 


cooo 

ZP 

— 

251 

cooo 

CHROUT 

= 

65490 

cooo 

SPADE 

- 

97 

cooo 

IRQVEC 

= 

788 

cooo 

IRQNOR 

= 

59953 

cooo 


DELAY  = 


COOO  20     13  CO    MAIN  JSR 

C003  A9    61  MNLOOP      IDA 

C005  A0    0A  LDY 

C007  20     D2  FF     INLOOP        JSR 

C00A  88  DEY 

C00B  DO    FA  BNE 

C00D  AD  47  CO  LDA 

C010  DO    Fl  BNE 

C012  60  RTS 


330 


INTDEL 

#SPADE 

*10 

CHROUT 

INLOOP 
CTRFLG 
MNLOOP 


;  ASCII  value  for  spade  character 

;  vector  to  IRQ  interrupt  routine 

;  IRQNOR  =  64101  on  the  128— normal  IRQ 

;  interrupt  service  routine 

;  delay  for  330  IRQ  interrupts  (5  5  sees.) 

; 

Carry  out  an  activity  (INLOOP)  until  the 

interrupt  delay  finishes. 

setup  the  Interrupt  delay 

get  the  spade  character 

initialize  Index  for  UvLOOP 

print  it 

repeat  INLOOP  ten  time* 
is  countdown  complete? 
if  not,  then  continue  MNLOOP 
we're  finished 

Insert  IRQ  interrupt  wedge  for  delay  timer. 
Initialize  flag  and  delay. 
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C013 

78 

INTDEL 

SEI 

C014 

A9 

30 

LDA 

#<D  WEDGE 

C016 

8D 

14 

03 

STA 

IRQVEC 

C019 

A9 

CO 

LDA 

#>DWEDCE 

C01B 

8D 

15 

03 

STA 

IRQVEC+1 

C01E 

A9 

01 

LDA 

#1 

C020 

8D 

47 

CO 

STA 

CTRFLG 

C023 

A9 

4A 

LDA 

#<DELAY 

C025 

8D 

48 

CO 

STA 

DELCTR 

C028 

A2 

01 

LDX 

#>DELAY 

C02A 

E8 

INX 

C02B 

8E 

49 

CO 

STX 

DELCTR +1 

C02E 

58 

CLI 

C02F 

fiO 

RTS 

C030     AD  47     CO    DWEDGE     LDA      CTRFLG 
C033     FO    OF  BEQ       EXIT 


C035  CE  48     CO 

C038  DO  OA 

C03A  CE  49     CO 

C03D  DO  05 


C03F     AO    00 

C041      8C    47     CO 

C044     4C    31     EA    EXIT 


DEC  DELCTR 

BNE  EXIT 

DEC  DELCTR +1 

BNE  EXIT 


LDY      #0 
STY       CTRFLG 
JMP       IRQNOR 


;  disable  IRQ  interrupts  to  change  IRQ 

;  vector 

;  Then  store  the  address  of  our  routine  into 

;  IRQ  vector. 

;  low  byte  first 

;  then  high  byte 

;  initialize  CTRFLG  to  1 

;  initialize  DELCTR,  low  byle  first 

;  then  high  byte 

;  so  high  byte  goes  from  one  to  zero  on  last 

;  pass  during  countdown 

;  We've  reset  the  vector.  Now  reenable  IRQ 
;  Interrupts  and 
;  exit  setup. 

;  check  to  see  if  countdown  is  ongoing 

;  if  not,  exit  through  the  normal  IRQ 

;  interrupt  routines 

;  decrement  low  byte  of  delay  counter 

;  if  low  byte  hasn't  turned  over  yet,  exit 

;  the  low  byte  has  reached  zero,  so  decrease 

;  counter  high  byte 

;  if  high  byte  is  not  zero,  exit 

;  DELCTR  has  reached  zero  (both  low  and 

;  high  bytes). 

;  to  prevent  further  countdown 
;  service  the  standard  IRQ  routines 


C047     00  CTRFLG        .BYTE    0 

C048    00    00  DELCTR       .WORDO 

See  also  BYT1DL,  BYT2DL,  JIFDEL,  KEYDEL,  TOD1DL. 


;  flag  is  one  while  countdown  continues,  zero 

:  when  done 

;  storage  for  two-byte  interrupt  delay  counter 
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Name 

Interrupt-driven  music 

Description 

With  INTMUS,  you  can  enhance  any  programs — especially 
games — by  adding  background  music  that  runs  automatically. 

Prototype 

Before  entering  this  routine,  set  up  a  table  of  note  values 
which  index  frequencies  from  FREQTB  (NOTES),  a  table 
containing  the  relative  durations  for  each  note  in  NOTES 
(NDURTB),  and  a  table  of  the  two-byte  frequencies  needed  for 
the  tune  (FREQTB). 

In  the  initialization  routine  (INTMUS): 

1.  Disable  IRQ  interrupts  before  changing  the  IRQ  interrupt 
vector. 

2.  Redirect  the  IRQ  interrupt  vector  to  the  music-playing  rou- 
tine (MAIN). 

3.  Set  a  note  counter  (NOTENM)  to  zerOi 

4.  Clear  the  SID  chip  with  SIDCLR  and  set  the  appropriate 
parameters  for  the  chip  (volume  and  attack/decay). 

5.  Initialize  a  duration  counter  (DURATE)  for  the  first  pass 
through  MAIN. 

6.  Reenable  IRQ  interrupts  and  RTS. 

Then,  in  MAIN: 

1.  Decrement  the  duration  counter. 

2.  If  it  decrements  to  zero,  get  a  note  to  play.  Otherwise,  allow 
the  note  that's  currently  playing  to  continue  by  exiting 
through  the  normal  IRQ  interrupt  handler. 

3.  Assuming  the  duration  counter  reaches  zero,  get  the  note 
number  and  index  the  next  note's  duration  using  it. 

4.  Adjust  the  time  each  note  plays  by  multiplying  its  duration 
by  some  factor  (here,  8). 

5.  Store  the  result  in  the  duration  counter. 

6.  Get  a  note  from  the  NOTES  table  and  use  it  to  index  the 
corresponding  two-byte  frequency  value  in  FREQTB.  Store 
the  irequency  taken  from  FREQTB  into  the  frequency  reg- 
isters for  voice  1. 

7.  Ungate,  and  then  gate,  the  waveform  (here,  a  sawtooth 
waveform). 
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8.  Increment  the  note  counter  and  determine  if  all  notes  have 
played.  If  not,  continue  playing  the  tune.  Otherwise, 
reinitialize  the  note  counter  to  start  the  tune  over. 

Explanation 

The  principle  behind  interrupt-driven  music  is  that  you  let  the 
IRQ  interrupt  generated  every  1/60  second  determine  when 
and  how  long  each  note  is  played. 

After  redirecting  the  IRQ  vector  to  a  music-playing  rou- 
tine (MAIN),  the  SID  chip  is  set  up  and  several  counters  are 
initialized.  One  of  these  counts  how  many  notes  have  been 
played  (NOTENM)  while  the  other  keeps  up  with  how  long 
the' current  note  has  played  (DURATE). 

Once  IRQ  interrupts  are  reenabled,  MAIN  is  accessed  dur- 
ing each  IRQ  interrupt.  The  first  time  this  happens,  a  note 
based  on  a  reference  value  (in  NOTES)  is  selected  from  a  table 
of  frequencies  (FREQTB)  and  stored  in  the  frequency  register 
for  voice  1 .  At  the  same  time,  a  duration  time  for  the  note  is 
taken  from  another  table  (NDURTB)  and  stored  in  the  dura- 
tion counter  (DURATE).  Before  exiting,  the  pointer  to  the  next 
note  (NOTENM)  is  incremented  and  the  current  note  starts 
playing. 

Each  time  the  IRQ  returns  to  MAIN  thereafter,  the  dura- 
tion counter  decrements.  When  it  reaches  zero,  the  next  note 
from  NOTES  gets  stored  into  the  frequency  register,  DURATE 
is  reset  for  this  note's  duration,  and  the  cycle  repeats  itself. 
When  all  notes  have  played,  NOTENM  becomes  zero,  and  the 
tune  starts  over  again. 

In  setting  up  the  note  (NOTES)  and  frequency  (FREQTB) 
tables,  the  same  method  used  in  MELODY  is  used  here.  Each 
number  in  NOTES  references  a  two-byte  frequency  value  in 
FREQTB.  Again,  the  frequencies  listed  in  FREQTB  are  taken 
from  the  table  of  notes  in  the  programmer's  reference  guide 
for  either  the  64  or  128.  Expand  FREQTB  to  include  whatever 
notes  your  song  calls  for.  If  you  like,  you  can  even  have 
NOTETB  generate  a  complete  frequency  table  for  you. 

After  you've  worked  out  the  relative  time  spent  playing 
each  note  with  the  values  in  NDURTB,  you'll  need  to  adjust 
the  overall  tempo  of  the  song.  The  three  ASLs  at  $C02F,  for 
the  current  song,  increase  the  tempo  by  a  factor  of  eight.  For 
each  tune  you  play,  you  may  need  to  add  or  take  away  one  or 
more  of  these  (ASLs)  before  the  song  sounds  right. 
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Routine 


cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


COOO     78 


COOl 
C003 
C006 
C008 
COOB 
COOD 
C010 
C013 
C015 
C018 
COM 
COID 
COIF 
C022 


A9  24 
8D  14 
A9  CO 
8D  15 
A9  00 
8D    Al 


03 


03 


CO 
A2    CO 


20 

A9  OF 
SO  18 
A9  1A 
8D  05 
A9  01 
8D  AO  CO 
58 


D4 


D4 


IRQVEC 

IRQNOR 

FREL01 

FREHI1 

VCREG1 

ATDCY1 

S1GVOL 


INTMUS       SEI 

LDA 

STA 

LDA 

STA 

LDA 

STA 

JSR 

LDA 

STA 

LDA 

STA 

LDA 

STA 

CLI 


C023     60 


C024  CE    AO    CO    MAIN 

C027  DO    36 

C029  AE    Al    CO 

C02C  BD    7B    CO 

C02F  OA 

C030  OA 

C031  OA 

C032  8D    AO    CO 

C035  BD    62     CO 

C038  OA 


C039 
C03A 
C03D 
C040 
C043 
C046 
C048 
C04B 
C04D 
C050 
C053 
C056 
C058 
C05A 
C05C 
C05F 


AA 

BD  94 
8D  00 
BD  95 
8D  01 
A9  20 
8D  04 
A9  21 
8D  04 
EE  Al 
AD  Al 
C9  19 
90  05 
A9  00 
8D  Al 
4C    31 


CO 
D4 
CO 
D4 

D4 

D4 
CO 
CO 


CO 

EA    EXIT 


RTS 


DEC 
BNE 
LDX 
LDA 
ASL 

ASL 
ASL 
STA 
LDA 
ASL 

TAX 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

INC 

LDA 

CMP 

BCC 

LDA 

STA 

JMP 


788 

59953 

54272 

54273 

54276 

54277 

54296 


#<MAIN 

IRQVEC 

#>MAIN 

WQVEC+1 

#0 

NOTENM 

SIDCLR 

#15 

SIGVOL 

#$1A 

ATDCY1 

#1 

DURATE 


DURATE 
EXIT 

NOTENM 
NDURTB.X 


DURATE 
NOTES.X 


FREQTB.X 

FRELOl 

FREQTB +1.X 

FREH11 

e%00100000 

VCREG1 

#%00100001 

VCREG1 

NOTENM 

NOTENM 

#NMNOTE 

EXIT 

«0 

NOTENM 

IRQNOR 


;  vector  lo  IRQ  interrupt  routine 

.  IRQNOR  -  64101  on  the  128 

;  starting  address  for  the  SID  chip 

;  voice  1  high  frequency 

;  voice  1  control  register 

:  voice  1  attack/decay  register 

;  SID  chip  volume  register 

;  Set  up  an  IRQ  interrupt  to  play  background 

;  music. 

|  disable  IRQ  interrupts  to  change  the 

;  vector 

I  store  the  low  byte  of  the  IRQ  wedge 

!  and  the  high  byte 


;  set  pointer  to  first  note  in  table 

;  clear  the  SID  chip 

;  set  the  volume  to  maximum 


C062     02     02     04     NOTES 
C06E     03     02     02 


;  set  attack/decay 


initialize  duration  counter  for  first  pass 
with  vector  changed,  rentable  IRQ 
Interrupts 


Main  actually  plays  the  music. 

see  if  current  note  has  finished  playing 

if  not,  allow  it  to  finish 

index  to  NOTES 

get  the  note's  duration  from  a  table 

multiply  by  8  so  each  note  lasts  eight  times 

longer 


:  and  store  It  into  the  counter 

;  gel  index  for  FREQTB 

;  double  it  since  FREQTB  contains  two-byte 

;  addresses 

;  to  index  FREQTB 

i  get  low  byte  of  notes  frequency 

;  store  it  in  voice  I 

1  get  high  byte  of  note's  frequency 

;  store  it  in  voice  1 

;  ungate  sawtooth  waveform 

:  gate  waveform 

;  increase  note  counter 

;  determine  if  all  notes  have  played 
;  if  not,  then  continue 

;  if  yes,  start  again  with  first  note 

;  exit  through  normal  IRQ  interrupt  handler 


.BYTE    2.2,4.4,5,5,4,5,5.4,3.2 

;  table  of  note  indexes 
.BYTE    3,2.2.4,2.1,0.0,0.0,1,1.2 
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C07B 

NMNOIE 

= 

*  -  NOTES 

number  of  notes 

C07B 

02 

06 

02 

NDURTB 

.BYTE 

2,6.2,6.4.3.1.2,2,1,1,2,1,1.4,2 

table  of  note  durations 

C08B 

01 

02 

03 

.BYTE 

1.2,3,1,2,2.1,2.12 

C094 

o 

10 

EF 

FREQTB 

WORD4291,5103.5728,6S12.7647,6583 

tabale  of  two-byte  frequency  values 

COAO 

00 

DURATE 

.BYTE 

0 

duration  counter 

COM 

00 

NOTENM 

.BYTE 

0 

note  number  counter 
Clear  the  SID  chip. 

C0A2 

A9 

00 

SIDCLR 

LDA 

#0 

611  with  zeros 

C0A4 

A0 

18 

LDY 

#24 

as  the  offset  from  FRELOl 

C0A6 

99 

00 

D4 

SIDLOP 

STA 

FRELOl.Y 

store  zero  in  each  SID  chip  address 

C0A9 

SB 

DEY 

for  next  lower  address 

COAA 

10 

FA 

BPL 

SIDLOP 

nil  25  bytes 

COAC 

so 

RTS 

we're  done 

See  also  BEEPER,  BELLRG,  EXPLOD,  MELODY,  NOTETB,  SIDCLR, 
SIDVOL,  SIRENS. 
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Name 

Set  up  an  IRQ  interrupt  routine 

Description 

IRQINT  redirects  the  IRQ  interrupt  vector  to  your  own 
routine 

Prototype 

1.  SEI  to  disable  the  IRQ  interrupts. 

2.  Store  the  address  of  your  custom  IRQ  routine  into  the  IRQ 
interrupt  vector. 

3.  Reenable  the  IRQ  interrupts  with  a  CLI  and  RTS. 

Explanation 

The  program  below  demonstrates  how  this  routine  might  be 
used.  In  it,  IRQINT  changes  the  IRQ  vector  to  point  to  the 
routine  WEDGE.  This  routine,  in  turn,  checks  the  shift  key 
flag,  halting  the  current  program  if  a  shift  key  is  being  pressed. 
The  shift  keys  include  SHIFT,  CTRL,  and  the  Commodore  key 
on  the  64  and  128;  and  also  CAPS  LOCK  and  ALT  on  the  128. 

Since  WEDGE  is  accessed  during  each  IRQ  interrupt  (ev- 
ery 1/60  second),  you  can  halt  almost  anything  run  from 
BASIC — games,  commands  such  as  LIST,  and  so  on. 

Notice  we  rely  on  the  Kernal  routine  SCNKEY  rather  than 
GETIN  within  our  interrupt  routine.  Unlike  GETIN,  SCNKEY 
updates  even  while  we're  in  the  interrupt  routine. 

Note:  It's  important  to  disable  IRQ  interrupts,  as  we've 
done  here,  before  changing  the  IRQ  vector.  If  you  skip  this 
step  and  an  IRQ  interrupt  occurs  while  the  vector  is  being 
changed,  your  program  could  easily  be  sent  to  some  meaning- 
less address. 

On  the  128,  your  custom  IRQ  routine  must  be  accessible 
from  bank  15  since  memory  is  configured  for  this  bank  prior 
to  jumping  through  the  IRQ  vector. 

Routine 

vector  to  IRQ  Interrupt  vector 

1RQNOR  =  64101  on  the  128— normal  IRQ 

interrupt  handler 

Kernal  routine  to  get  a  keypress 

SHFLAG  =  21 1  on  the  128— shift  key  flag 

IRQ  interrupt  routine  to  pause  on  shift  key. 
disable  the  IRQ  interrupts  before 
changing  the  vector 

point  the  IRQ  vector  to  our  routine,  low 
byte  first 


cooo 
coon 

IRQVEC 
IRQNOR 

= 

788 
59953 

cooo 
cooo 

SCNKEY 
SHFLAG 

— 

65439 
653 

cooo 

78 

IRQINT 

SEI 

C001 

A  9 

0D 

LDA 

#<WEDGE 
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C003 

8D 

14 

03 

C006 

A9 

CO 

C008 

8D 

15 

03 

COOB 

58 

cooc 

60 

STA  IRQVEC 

LDA  #>WEDGE 

STA  IRQVEC +1 
CL1 

RTS 


COOD 
C010 

AD 
FO 

8D 
06 

02 

WEDGE 

LDA 
BEQ 

SHFLAG 
FINIS 

C012 
C015 
C018 

20 
■iC 
■4C 

9F 
OD 
31 

CO 
EA 

FINIS 

)SR 
IMP 

IMP 

SCNKEV 
WEDGE 
IRQNOR 

IRQINT 


,-  and  then  high  byte 

;  reenable  IRQ  interrupts  after  changing 
;  the  vector 


:  Halt  the  program  with  SHIFT  kevpress. 

;  check  the  SHIFT  flag 

;  il  5HTFT  not  pressed,  then  exit  through 

;  normal  IRQ  routine 

:  update  SHIFT  Hag 

;  and  check  if  It's  stiil  pressed 

;  exit  through  the  normal  IRQ  interrupt 

:  handler 


See  also  NMUNT,  RAS64,  RAS128. 
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Name 

Jiffy  clock  delay 

Description 

One-  and  two-byte  delay  routines,  causing  pauses  of  less  than 
a  millisecond  to  a  few  seconds,  have  been  provided  elsewhere 
in  this  book  (BYT1DL,  BYT2DL).  There  will  be  times,  though, 
when  you'll  need  a  routine  to  produce  an  extended  delay — on 
the  order  of  several  seconds  to  several  minutes.  JIFDEL, 
which  relies  on  the  jiffy  clock  to  time  this  delay,  is  just  such  a 
routine. 

Prototype 

1.  Enter  this  routine  with  the  delay  length  (defined  in  jiffies  as 
DELAYJ)  in  .A  (low  byte)  and  .X  (high  byte).  The  current 
jiffy  clock  reading  (the  low  and  middle  bytes)  are  in  zero 
page  (in  ZP). 

2.  Add  the  delay  value  to  the  jiffy  clock  reading  in  ZP. 

3.  Compare  the  resulting  value  to  the  current  jiffy  clock  read- 
ing and  return  from  the  routine  when  they  agree. 

Explanation 

JIFDEL  is  a  straightforward  and  practical  routine.  First  add  the 
number  of  jiffies  (1/60  second  intervals)  that  you've  specified 
in  DELAYJ  to  the  current  jiffy  clock  reading  and  then  wait  un- 
til the  clock  reads  this  total. 

As  it's  written,  the  routine  only  uses  the  lower  two  bytes 
of  the  three-byte  clock.  With  these  two  bytes  alone,  a  delay 
anywhere  from  1/60  second  (one  jiffy)  to  1092  seconds 
(65,535  jiffies  or  18.2  minutes)  can  be  carried  out.  If  you  need 
a  program  delay  that  extends  for  an  even  longer  time  than 
18.2  minutes,  add  the  high  byte  of  the  jiffy  clock  as  well. 

In  the  example  program  below,  JIFDEL  causes  a  delay  of 
600  jiffies — ten  seconds — before  incrementing  the  border  color 
of  the  screen.  Notice  that  most  of  the  code  for  this  program  is 
setup  required  by  JIFDEL.  The  lower  two  bytes  of  the  current 
jiffy  clock  reading  are  stored  into  zero  page.  Before  this  can  be 
done,  IRQ  interrupts  must  be  disabled  so  the  clock  won't  ad- 
vance while  it's  being  read.  The  last  requirement  is  that  the 
specified  delay  (DELAYJ)  be  passed  to  the  routine  in  the  accu- 
mulator (low  byte)  and  the  X  register  (high  byte). 
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Routine 


C021 
C023 
C025 

C027 


CHROUT 
ZP 

TIME 

EXTCOL 

DELAY) 


COOO  78 

C001  A5    A2 

C003  85     FB 

C005  A6    Ai 

C007  86    FC 

C009  58 

COOA  A9    58 

COOC  A2    02 

CODE  20     15 

C011  EE    20     DO 

COM  60 


CO 


65490 

251 

160 

53280 

600 


SE1 

LDA  TIME+2 

STA  ZP 

LDX  TIME+1 

STX  ZP+ 1 
CL1 

LDA  #<DELAYJ 

LDX  #>DELAYJ 

ISR  JIFDEL 

INC  EXTCOL 
RTS 


CMS  18 

C016  65     FB 

C018  85     FB 

CMA  8A 

C01B  65     FC 


CMD  C5  Al 
CMF  DO  FC 
A5  FB 
CS  A2 
DO  FC 
60 


JIFDEL  CLC 

ADC  ZP 

STA  ZP 
TXA 

ADC  ZP+1 

MIDBYT      CMP  TIME+1 

BNE  MTOBYT 

LDA  ZP 

LOWBYT      CMP  TIME+2 

BNE  LOWBYT 
RTS 


;  three-byte  jiffy  dock 
;  border  color  register 
;  600  jiffies  (fen  seconds) 

;  Cause  the  border  color  to  change  after  a 

;  specified  delay. 

;  disable  interrupts  so  clock,  doesn't  advance 

;  while  being  read 

;  store  jiffy  low  byte  in  zero  page 

;  store  middle  byte  also 

;  we've  got  the  current  jiffy  time,  so  reenabie 

;  interrupts 

;  store  low  byte  and  high  byte  of  jiffy  delay 

:  carry  out  delay  in  .A  and  -X 
;  change  the  border  color 


;  JIFDEL  sets  the  jiffy  clock  with  the  delay  in 

,-  .A  (low)  and  .X  (middle). 

;  add  delay  to  current  jiffy  dock  reading  in 

;  zero  page 

;  low  byte  first 

;  now  middle  byte 

;  Determine  whether  DELAY)  has  elapsed. 

;  check  middle  byte  first 

;  wait  for  middle  byte  to  agree 

;  now  low  byte 

;  wall  for  low  byte  to  agree 

;  previous  time  Is  equal  lo  time  plus  delay 


See  also  BYT1DL,  BYT2DL,  INTDEL,  KEYDEL,  TOD1DL,  JIFFRD, 
JIFPRT,  JIFSET. 
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Name 

Read  the  jiffy  clock 

Description 

JIFFRD  does  more  than  just  read  the  three-byte  jiffy  clock. 
This  routine  is  integrated  into  a  program  in  which  a  pair  of 
timers  are  updated  based  on  the  current  jiffy  clock  reading. 

Prototype 

1.  Disable  IRQ  interrupts  to  prevent  the  clock  from  advancing 
while  it's  being  read. 

2.  In  a  loop,  read  three  bytes  from  the  jiffy  clock,  storing  them 
to  a  memory  buffer.  (Here,  we  actually  add  them  to  the  cur- 
rent timer  value  for  player  1  or  2.) 

3.  Reenable  IRQ  interrupts  to  restart  the  jiffy  clock. 

Explanation 

It's  a  relatively  simple  matter  to  read  the  three-byte  jiffy  clock 
at  location  160.  You  first  disable  IRQ  interrupts  to  stop  the 
clock,  read  the  three  bytes  into  a  memory  buffer,  and  reenable 
IRQ  interrupts  to  restart  the  clock. 

This  routine  offers  additional  features.  It  is  part  of  a 
simulation  in  which  two  3-byte  jiffy  timers  are  maintained — 
one  for  each  of  two  players.  Let's  say  you've  brought  your 
computer  to  a  hockey  game  and  you  want  to  keep  track  of 
time  of  possession.  When  one  team  has  the  puck,  press  the  0 
key.  When  the  other  team  gets  it,  press  the  1  key.  The  jiffy 
clock  is  reset  to  zero  at  the  beginning  of  each  event. 

When  a  change  of  possession  occurs  (when  the  other  key 
is  pressed),  the  current  jiffy  clock  reading  is  added  to  the 
appropriate  timer,  and  the  program  begins  timing  the  other 
team's  turn.  This  continues — teams  alternating  turns — until 
the  space  bar,  which  exits  the  program,  is  pressed. 

At  the  start  of  the  program,  both  timers  are  initialized  to 
zero  in  INITLP.  The  clock  then  begins  at  START  after  0  or  1  is 
pressed.  Pressing  one  of  these  keys  causes  a  branch  to 
INITTM  where  the  jiffy  clock  is  reset.  The  value  of  the  ASCII 
keypress  is  then  used  in  SETUPZ  to  load  the  address  of  the 
current  team's  timer  from  TABTIM  into  zero  page. 

Once  the  current  team's  timer  address  is  in  zero  page,  we 
jump  to  MATNLP  where  the  third  key — the  space  bar — be- 
comes an  acceptable  entry.  The  0  and  1  keys,  at  this  point, 
cause  a  switch  to  occur.  The  timer  for  the  previous  team  is  up- 
dated in  JIFFRD. 
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Within  JIFFRD,  we  momentarily  stop  the  jiffy  clock  with 
an  SEI,  add  the  current  reading  to  the  last  team's  timer,  reset 
the  clock,  and  start  it  again  with  a  CLI.  From  here,  provided 
the  space  bar  isn't  pressed,  we  branch  to  SETUPZ — where  the 
current  team's  timer  address  is  stored  in  zero  page — and  again 
jump  to  MAINLP.  Notice  that  the  structure  of  the  program  al- 
lows a  team  to  repeat  without  corrupting  the  timers. 

Note:  In  adding  the  jiffy  clock  to  the  timer  in  $C02F,  the 
zero-page  address  for  the  jiffy  clock  must  be  expressed  as  a 
two-byte  address  (as  $00A0).  That's  because  the  opcode  form 
ADC  zero-page  address  ,V  doesn't  exist  in  6502/8502  machine 
language. 


Routine 

cooo 


GETTN 

ZP 

TIME 


COOO  A0  05 

C002  A9  00 

C004  99  5A    CO    INTTLP 

C007  88 

COOS  10  FA 


65508 
251 

160 


LDY  #5 

LDA  #0 

STA  PLAYTU.Y 

DEY 

BPL  1N1TLP 


C0OA    20    E4    FF    START  JSR       GET1N 


COOD  C9    30 

COOF  FO     27 

C01I  C9    31 

CO 13  F0     23 

C015  IX)    F3 


CMP  #48 

BEQ  INITTM 

CMP  #49 

BEQ  INITTM 

BNE  START 


C017     20     E4    FF     MAINLP        JSR        GETIN 


COLA    C9    30 
C01C    F0     0A 


C01E 
C020 
C022 
C024 
C026 


C9  31 

F0  06 

C9  20 

FO  02 

DO  EF 


CMP  #48 

BEQ  JIFFRD 

CMP  #49 

BEQ  JIFFRD 

CMP  #32 

BEQ  JIFFRD 

BNE  MAINLP 


C028 

76 

JIFFRD 

SE1 

C029 

48 

PHA 

C02A 

18 

CTX 

C02B 

A0 

<H 

LDY 

#2 

C02D 

Bl 

FB 

RDLOOP 

LDA 

(ZP),Y 

C02F 

79 

AO    00 

ADC 

SO0A0,Y 

C032 

91 

FB 

STA 

<ZP),Y 

C034 

88 

DEY 

j  three-byte  Jiffy  dock 

;  Add  to  each  player's  timer  when  player 
;  switch  occurs.  Quit  on  space  bar 
;  initialize  players'  rimers  to  zero 


;  do  all  six  bytes 

i  set  the  jiffy  clock  to  zero  with  the  First  valid 

;  keypress 

j  does  player  1  start  the  jiffy  clock  first? 

;  initialize  jiffy  dock  and  put  PLAYR1  in  ZP 

;  or  does  player  2  start  it  First? 

;  Initialize  jiffy  clock  and  put  PLAYR2  in  ZP 

:  it's  neither,  so  get  another  keypress 

;  main  GETTN  loop 

;  is  it  player  l's  rum? 

;  add  in  jiffy  clock  to  PLAYR2 

;  is  it  player  2's  turn? 

;  add  in  jiffv  dock  to  PLAYR1 

;  is  it  SPACE? 

;  add  in  the  last  player's  time  and  quit 

;  if  not  0.  1.  or  space,  wait  for  another 

;  keypress 

;  JIFFRD  reads  the  jiffy  clock,  adds  the 

;  current  value  to  PLAYR1  or 

;  PLAYR2,  depending  on  which  one  just 

;  finished,  and  restarts  the  dock. 

;  stop  the  dock 

;  save  the  player  number  as  ASCII  48  or  49 

;  for  subsequent  addition 

;  add  all  three  bytes  of  the  jiffv  dock  to 

;  timer  for  PLAYR1  or  PLAYR2" 

;  get  player's  previous  timer  value 

,  add  current  (iffy  dock  reading  to  it 

;  and  store  It  back  to  PLAYR1  or  PLAYR2 

;  for  next  higher  byte  In  the  jiffy  dock 
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C035     10 
C037     68 

F6 

BPL 
PLA 

RDLOOP 

C038     48 

INITTM 

PHA 

C039     A9 
C03B     85 
C03D    85 
C03F     85 
C041     68 
C042     58 

00 
AO 

Al 
A2 

LDA 
STA 
STA 
STA 
PLA 
CLI 

#0                        • 
TIME                  ; 
TIME+1  • 
TIME+2 

C043     C9 

20 

CMP 

#32                      ! 

C045     DO 
C047     60 

01 

BNE 
RTS 

SETUPZ              i 

C048     29 

01 

SETUPZ 

AND 

#1                            ; 

C04A    OA 

ASL 

C04B    A8 
C04C    B9 

60 

CO 

TAY 
LDA 

TABTTM.Y          ; 

C04F     85 
C05I     C8 
C052     89 

FB 
60 

CO 

STA 
1NY 
LDA 

TABTTM.Y           ; 

G055     85 
C057    4C 

FC 
17 

CO 

STA 
IMP 

ZP+1                  '; 
MAINLP             ; 

C05A    00 
C05D    00 
C060     5  A 

00 
00 
CO 

00 

00 
5D 

PLAYR1 
PLAYR2 
TABTIM 

.BYTE    0.0.0                    ; 
BYTE    0,0,0 
.  WORD  PLAYR 1  .PL  AYR2 

do  all  three  bytes 

to  properly  maintain  the  stack  with  an 

even  number  of  PHA/PLA  instructions 

save  the  player's  number  as  ASCII  48  or 

49 

reset  timer 

do  all  three  bytes 


restore  player  number  as  ASCII  48  or  49 
restart  clock  (only  matters  when  SEI  at 
beginning  of  JIFFRD  executes) 

quit  on  space  (we've  added  in  the  last  time 

to  PLAYRl  or  PLAYR2) 

if  not  space,  set  up  ZP  for  next  player 

Point  ZP  to  the  next  player's  timer. 

to  convert  the  ASCII  response  of  48/49  to 

0/1  *"" 

double  the  number  since  we're  dealing  with 

two-byte  addresses  (.WORDS) 

index  by  .Y 

load  low-byte  address  of  PLAYRl  or 

PLAYR2 

store  in  zero  page 

for  next  byte 

load  high-byte  address  of  PLAYRl  or 

PLAYR2 

and  store  also 

and  wait  for  another  key 

three-byte  timer  for  player  1 
three-byte  timer  for  player  2 

address  pointers  to  each  player's  timer 


See  also  JIFDEL,  JIFPRT,  JIFSET. 
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Name 

Print  the  jiffy  clock  reading 

Description 

This  routine  allows  you  to  use  the  three-byte  jiffy  clock  as  a 
timepiece.  JIFPRT  displays  the  current  jiffy  clock  reading  on 
the  screen  in  an  hours/minutes/seconds/ jiffies  format. 

Prototype 

1.  Initialize  a  place  counter  (CLKCTR)  to  zero  for  the  ASCII 
clock  frame  (CLOCK). 

2.  Store  the  address  of  this  clock  frame  into  zero  page  (as  ZT). 

3.  Disable  IRQ  interrupts  to  prevent  the  jiffy  clock  from 
advancing  while  it's  being  read. 

4.  Read  the  current  three-byte  jiffy  clock  reading  and  store  it 
in  zero  page  (ZP).  Reenable  IRQ  interrupts. 

5.  Load  .X  with  an  index  to  the  subtrahends  table  (TB3SUB)  so 
that  it  initially  points  to  the  low  byte  of  the  largest  sub- 
trahend (the  low  byte  $80  of  2160000/$20F580). 

6.  Perform  a  conversion  of  the  jiffy  clock  reading  to  an 
hours/minutes/seconds/hundredths-of-seconds  format  by 
repeated  subtraction.  Store  the  ASCII  equivalent  of  each 
digit  into  the  clock  frame. 

7.  After  each  digit  has  been  converted  to  ASCII,  a  check  of 
CLKCTR  tells  us  whether  the  next  digit's  place  in  the  clock 
frame  is  even  or  odd.  On  even-digit  places,  the  zero-page 
pointer  to  the  clock  frame  is  incremented  by  one,  which 
places  us  beyond  the  colons  or  the  decimal  in  the  frame. 

8.  When  the  ASCII  clock  has  been  completed,  print  it  and  re- 
turn from  the  routine. 

Explanation 

In  the  following  program,  a  formatted  jiffy  clock  is  continually 
printed  at  the  home  position  with  JIFPRT  until  a  key  is 
pressed. 

The  three-byte  jiffy  clock  at  160-162  is  a  24-hour  cascade 
timer,  updated  by  the  operating  system.  Unlike  most  other 
pointers  and  values  in  memory,  the  high  byte  of  the  jiffy  clock 
(160)  is  actually  lowest  in  memory. 

The  jiffy  clock  increments  every  1/60  second,  a  unit  of 
time  called  a  jiffy.  The  low  byte  at  location  162  counts  256 
jiffies  (4.27  seconds)  before  the  middle  byte,  location  161,  in- 
crements. When  the  middle  byte  reaches  256  (after  18.2  min- 
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utes),  the  high  byte  at  location  160  counts  forward  by  one. 

In  JIFPRT,  after  storing  the  current  jiffy  clock  reading  in 
zero  page  (ZP),  it's  converted  to  an  hours/minutes/seconds/ 
hundredths-of-seconds  format  and  stored  as  ASCII  into  CLOCK. 
This  conversion  is  done  by  using  a  subtraction  method  much 
like  the  two-byte  conversion  routine  discussed  in  CNUMOT, 
only  in  this  case  it's  done  for  a  three-byte  number.  In  very 
general  terms,  the  current  three-byte  jiffy  clock  reading  is  di- 
vided by  the  eight  three-byte  numbers  in  TB3SUB.  Each  di- 
vision, following  conversion  to  ASCII  at  $C05D,  yields  another 
digit  within  CLOCK.  We  begin  with  the  highest,  or  tens-of- 
hours  place,  and  work  down  to  the  lowest,  or  sixtieths-of- 
seconds  place. 

Notice  that,  before  running  the  program,  CLOCK  already 
contains  the  colons  and  the  decimal  used  in  the  screen  display. 
This  setup  is  referred  to  as  a  clock  frame.  By  prepositioning  the 
colons  and  decimal  point,  we  avoid  having  to  write  code  to 
print  them  ourselves  within  JIFPRT.  At  the  same  time,  how- 
ever, we  have  to  insure  that  we  don't  overwrite  them  when 
we  store  the  ASCII  digits  to  CLOCK.  And  this  is  where  the 
CLOCK  position  counter,  or  CLKCTR,  comes  into  play. 

After  storing  each  ASCII  digit  to  CLOCK,  we  check  to  see 
whether  the  next  position  in  clock,  as  maintained  in  CLKCTR, 
is  even  or  odd  (see  $C05F-$C071).  If  CLKCTR  tells  us  that  the 
next  position  is  even  (the  carry  flag  is  clear  after  the  LSR  in 
$C069),  we  increment  by  one  the  zero-page  pointer  to  the 
clock  frame  (in  ZT)  so  that  we  skip  over  the  colon  or  decimal 
which  follows. 

Once  the  clock  frame  has  been  constructed,  it's  a  simple 
matter  to  print  its  ASCII  contents  in  PRTCLK. 

Routine 


cooo 
cooo 
cooo 
cooo 

cooo 


CHROUT  = 

GETIN  = 

ZP 

ZT  = 

TIME  = 


COOO  A9  93  CLRCHR      LDA 

C002  20  D2  FF  JSR 

COOS  A9  13  JIFLOP           LDA 

C007  20  D2  FF  |SR 

CO0A  20  13  CO  JSR 

C00D  20  E4  FF  JSR 


65490 
65508 
251 
155 

160 


0147 

CHROUT 

#19 

CHROUT 

JIFPRT 

GETIN 


;  two  zero-page  locations,  normally  used  in 

f  tape  loads 

;  three-byte  jiffy  clock 

;  Print  the  current  jiffy  dock  reading.  Hit  any 
:  key  to  stop. 
:  clear  the  screen 

;  HOME  the  cursor 

,  read  and  print  the  jiffy  clock 
;  get  a  keypress 
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CO  10    FO    F3 
C012     60 


C013     A9    00  JIFPRT 

C015     8D    A9    CO 


C0I8  A9  9D 

C01A  85  9B 

C01C  A2  CO 

C01E  86  9C 

C020  78 


BEQ       JIFLOP 
RTS 


I.  DA       #0 

STA       CUCCTR 


LDA  #<CLOCK 

STA  ZT 

LDX  #>CLOCK 

STX  ZT+1 


JIFFRD  SH 


C021  AO  02 

C023  B9  AO    00     LOOP 

C026  99  FB    00 

C029  88 

C02A  10  F7 

C02C  58 


LDY  #2 

IDA  TIME,Y 

STA  ZP,Y 

DEY 

BPL  LOOP 

CLI 


C02D 

A2 

15 

LDX 

#21 

C02F 
C031 

AO 
C8 

FF 

INTTCT 
SUBTLP 

LDY 
INY 

#255 

C032 
C034 

AS 

48 

FD 

LDA 
PHA 

ZP  +  2 

C035 
C036 

38 

FD 

85 

CO 

SEC 
SBC 

TB3SUB.X 

C039 
C03B 
C03D 

85 

A5 

48 

FD 

FC 

STA 
LDA 
PHA 

ZP+2 
ZP+1 

C03E 

ED 

86 

CO 

SBC 

TB3SUB+1,X 

C041 
C043 
C045 

85 
A5 

46 

FC 

FB 

STA 
LDA 
PHA 

ZP+1 
ZP 

C046 

FD 

87 

CO 

SBC 

TB3SUB+2,X 

C049 
C04B 

85 
90 

FB 
06 

STA 
BCC 

ZP 
DONE 

C04D 
C04E 
C04F 
C050 

68 

68 

68 
4C 

31 

CO 

PLA 
PLA 
PLA 
JMP 

SUBTLP 

C053 
C054 
C056 
C057 
C059 

68 

85 
68 
85 
68 

FB 
FC 

DONE 

PLA 
STA 
PLA 
STA 
PLA 

ZP 

ZP+1 

;  if  no  keypress,  do  it  all  again 


;  JIFPRT  reads  and  prints  the  jiffy  clock. 
;  Initialize  a  place  counter  within  our 
;  ASCII  clock  frame 

;  Store  the  high  and  low  bytes  of  our 
;  ASCII  clock  frame  to  zero  page. 
;  low  byte  first 

:  then  high  byte 


!  prevent  the  jiffy  clock  from  advancing 

I  while  If  s  being  read 

;  as  a  index  for  LOOP 

:  store  current  jiffy  clock  reading  in  zero 

;page 


;  we've  got  the  reading,  so  reenable  IRQ 
;  interrupts 

;  Now  convert  clock  reading  in  ZP  to  ASCII 

;  and  store  it  in  the  ASCII  clock. 

;  index  to  TB3SUB  table;  initially  points  to 

;  low  byte  of  2160000 

;  Initialize  counter  for  each  digit's  place 

;  begin  subtraction  loop,  counter  starts  with 

;  zero 

;  save  the  low  byte  of  the  current  jiffy 
;  clock  reading 

;  subtract  low  byte  of  subtrahend  from  low 

;  byte  of  clock  value 

;  store  result  in  zero  page 

;  do  the  same  with  middle  byte 

;  save  the  middle  byte  of  the  current  jiffy 

;  dock  reading 

;  subtract  subtrahend's  middle  byte  from 

I  clock's  middle  byte 

;  and  store  the  result 

;  and  once  again  with  the  high  byte 

;  save  the  high  byte  of  the  current  jiffy 

;  clock  reading 

;  subtract  high  byte  of  subtrahend  from 

;  clock's  high  byte 

;  and  store  the  result 

;  subtraction  gave  number  less  than  0  »o 

;  we're  done 

;  restore  the  stack 


;  and  continue  subtraction 

;  Restore  high,  middle,  and  low  bytes  to 

;  values  before  we  dropped  below  zero. 

;  pull  high  byte  of  clock  reading 

;  and  store  it 

;  pull  middle  byte  of  clock  reading 

;  and  store  it  also 

;  pull  low  byte  of  clock  reading 
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C05A  85  FD 

C05C  96 

C05D  09  30 

COSF  AC  A9    CO 

C062  EE  A9    CO 

C06S  91  9B 


C067  C8 

C068  98 

C069  4A 

C06A  BO    06 


C06C  E6    9B 

C06E  DO    02 

C070  E6    9C 

C072  CA  DECRIT 

C073  CA 

C074  CA 

C075  10     B8 


C077  AO  00 

C079  B9  9D    CO    PRTCLK 

C07C  FO  06 

C07E  20  D2    FF 

C081  C8 

C082  DO  F5 

C084  60  EXIT 


STA       ZP+2 
TYA 

ORA  #48 

LDY  CLKCTR 

INC  CLKCTR 

STA  (ZT),Y 

INY 

TYA 

LSR 

BCS       DECRIT 


INC     zr 

BNE      DECRIT 
INC       ZT+1 
DEX 

DEX 
DEX 
BPL       INITCT 


LDY  #0 

LDA  CLOCK.Y 

BEQ  EXIT 

JSR  CHROUT 

INY 

BNE  PRTCLK 

RTS 


;  and  store  il  also 

;  put  digit'',  place  counter  into  .A 

;  Convert  digit's  place  counter  to  ASCII. 

;  effectively  add  48  to  get  an  ASCII  digit 

;  get  the  current  clock  place  counter 

;  update  it  for  the  next  place 

;  store  current  ASCII  digit  into  the  clock 

;  frame 

;  determine  whether  the  next  place  is  even 

;  or  odd 

;  shift  the  number  right  and  check  the 

;  carry  flag 

;  branch  occurs  with  odd  numbers 

;  If  even,  increment  the  clock  frame  pointer 

;  beyond  the  colon  or  decimaL 

;  increment  low  byte  pointer 

;  and  the  high  byte  if  the  low  byte  wraps 
;  decrement  .X  three  times  since  three-byte 
,-  entries  in  subtrahend  table 


;  handle  the  next  digit's  place 

;  Now  print  the  clock  frame. 

;  as  an  index  for  PRTCLK 

;  get  each  character  from  clock 

;  if  zero  byte,  we're  done 

;  print  each  character  from  clock 

;  next  character 

;  branch  always 


C085 

0] 

00     00 

C091 

10 

0E     00 

C09D 

20 

20     3A 

C0A8 

00 

C0A9 

00 

!  A  table  of  three-byte  subtrahends  follows. 
TB3SUB         .BYTE    $1,$0.$0,$A.$0,$0,$3C.$040,$58,$2,$0 

.BYTE   $10,$E,$0,$AO.$8C,$0,$CO,$4B,$3,$80,$F5,$20 
CLOCK  ,ASC      "  :  : .  "  ;  clock  frame 

.BYTE    0  ;  terminator  byte 

CLKCTR        .BYTE    0  ;  position  counter  within  the  clock  frame 


See  also  JIFDEL,  JLFFRD,  JIFSET. 
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Name 

Set  the  jiffy  clock 

Description 

Since  time  is  never  expressed  in  binary  format  in  everyday 
usage,  the  jiffy  clock — a  three-byte,  24-hour  cascade  timer — is 
awkward  for  those  of  us  who  are  accustomed  to  an  hours/ 
minutes/seconds  decimal  format.  JIFSET  allows  you  to  set 
this  clock  to  a  particular  time  that  is  defined  in  this  more  con- 
ventional, decimal  form. 

Prototype 

1.  Before  entering  this  routine,  define  the  time  for  the  jiffy 
clock  in  an  hours/minutes/seconds/hundredths-of-seconds 
format  (in  TTMSET). 

2.  Initialize  a  digit's  place  counter  (CLRCTR)  to  7  for  a  7-0 
count  (the  jiffy  clock  reads  to  eight  digits). 

3.  Disable  IRQ  interrupts  to  prevent  the  jiffy  clock  from 
advancing  while  it's  being  set. 

4.  Clear  the  jiffy  clock  by  storing  a  zero  to  its  three  bytes. 

5.  Initialize  the  X  register  to  zero  so  that  it  initially  points  to 
the  low  byte  of  the  smallest  addend  (the  low  byte  of 
$000001)  in  a  table  of  addends  (TB3ADD). 

6.  In  RDSET,  perform  a  three-byte  conversion  of  the  intended 
time  (TIMSET)  to  the  format  used  by  the  jiffy  clock,  set  the 
clock,  then  reenable  interrupts  and  return  to  the  calling 
program. 

Explanation 

JIFSET  sets  the  jiffy  clock  time  to  the  value  in  TIMSET.  In  the 
example,  time  is  set  to  18:02:45.00.  (The  equivalent  BASIC 
statement  would  be  TI$  =  "180245".) 

The  approach  taken  in  converting  TIMSET  to  a  jiffy-clock 
format  is  the  opposite  of  that  used  in  JIFPRT,  which  converts 
the  clock  reading  to  an  hours/minutes/seconds/hundredths- 
of-seconds  format. 

Instead  of  using  a  subtraction  method  to  do  this  conver- 
sion, we  use  addition  here.  Roughly  speaking,  each  digit 
within  TIMSET — beginning  with  the  most  significant  digit,  or 
the  tenths-of-hours'  place — is  multiplied  by  the  corresponding 
three-byte  number  in  TB3ADD.  This  process  continues  until 
all  digits  have  been  accounted  for.  Accomplish  each  so-called 
multiplication  by  first  storing  the  current  digit  in  a  counter 
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(CLKCTR)  and  then  repeatedly  adding  the  respective  three- 
byte  addend  until  the  counter  decrements  to  zero. 

The  interim  result  of  each  three-byte  addition  can  be 
stored  into  the  three  memory  locations  used  by  the  jiffy  clock. 
This  is  possible  since  we  have  earlier  disabled  the  IRQ  inter- 
rupts which  would  ordinarily  update  the  jiffy  clock. 

Routine 


cooo 

ZP 

= 

251 

COOO 

TIME 

= 

160 

;  three-byte  jiffy  dock 

cooo 

C002 

A9   07             JIFSET 
8D    5C    CO 

LDA 
STA 

#7 
CLKCTR 

;  Set  Ihe  jiffy  dock  to  miSET. 
:  initialize  a  place  counter 

C006      A2    00 


LDX       #0 


;  prevent  the  jiffy  dock  from  advancing 
I  while  it's  being  set 

;  clear  jiffy  dock  to  zero  and  initialize  .X 
;  for  ADDLOP 


C008 

HA 

AO 

STX 

TIME 

C00A 

86 

Al 

STX 

TTME+I 

C00C 

86 

A2 

STX 

TIME+2 

C00E 

AO 

00 

LDY 

#0 

;  as  an  index  in  TIMSET 

C010 

B9 

54 

CO 

RDSET 

LDA 

TTMSET.Y 

;  get  a  byte  from  TIMSET 

C013 

F0 

IA 

BEQ 

NEXTPL 

;  if  zero,  skip  ADDLOP 

C015 

AS 

TAY 

;  use  -Y  as  an  addition  counter 

C016 

18 

ADDLOP 

CLC 

;  for  addition 

C017 

A  5 

A2 

LDA 

TIME+2 

;  get  the  clock  low  byte 

CM  9 

7D 

3C 

CO 

ADC 

TB3ADD,X 

;  add  low  byte  of  three-byte  table  entry 

CMC 

85 

A2 

STA 

TIME+2 

;  store  it  in  the  clock 

C01E 

A5 

Al 

LDA 

TIME+1 

;  do  the  same  for  dock  middle  byte 

COM 

7D 

3D 

CO 

ADC 

TB3ADD+1,X 

COM 

85 

Al 

STA 

"ITME+l 

C025 

A5 

AO 

LDA 

TIME 

;  do  the  same  for  clock  high  byte 

C027 

7D 

3E 

CO 

ADC 

TB3ADD+2.X 

C02A 

85 

Ad 

STA 

TIME 

C02C 

88 

DEY 

;  decrement  addition  counter 

C02D 

DO 

E7 

BNE 

ADDLOP 

;  repeat  ADDLOP  until  respective  TIMSET 
;  digit  is  zero 

C02F 
C03O 

E8 
E8 

NEXTPL 

INX 
INX 

;  for  next  three-byte  entry  In  TB3ADD 

C031 

E8 

INX 

C032 

CE 

sc 

CO 

DEC 

CLKCTR 

;  for  next  digit  In  TTMSET 

C03S 

AC 

5C 

CD 

LDY 

CLKCTR 

C038 

10 

D6 

BPL 

RDSET 

;  have  all  digits  been  handled? 

C03A 

58 

EXIT 

CLI 

;  we've  set  the  jiffy  dock,  so  reenable  IRQ 

C03B 

60 

RTS 

;  interrupts 
;  we're  done 

C03C    01    00    00    TB3ADD 

C048     10     0E     00 

C054     01     08     00     TIMSET 


C05C    00 


CLKCTR 


;  three-byte  table  of  addends 
.BYTE    $1.$0.$0.$A,$0.$0.$3C,$0,$O.S58.$2,SO 
.BYTE    $10.$E.$0,$AO,$8C,$O.SC0,$4B,$3,$80,$F5,$2O 
BYTE    1,8,0,2.4,5,0,0 

;  jiffy  clock  setting 
BYTE    0  ;  position  counter  within  TIMSET 


See  also  JIFDEL,  JIFFRD,  JIFPRT. 
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Name 

Read  both  joysticks  separately 

Description 

This  routine  reads  both  joysticks  and  returns  a  total  of  four 
values:  the  position  of  each  stick  (up,  down,  left,  or  right)  and 
the  state  of  the  fire  button  for  each  joystick.  The  example  rou- 
tine contains  a  complete  two-player  game. 

Prototype 

1.  Load  .Y  with  1,  as  an  index. 

2.  Load  .A  indexed  by  .Y  from  CIAPRA,  the  joystick  register. 

3.  Exclusive-OR  with  %00010000  and  then  AND  with 
%00010000,  to  isolate  the  bit  that  echoes  the  fire  button. 

4.  Store  this  value  in  FIRE2,  indexed  by  .Y. 

5.  LDA  CIAPRA,Y  again. 

6.  This  time,  EOR  with  %00001111  and  then  AND  with 
%00001111. 

7.  Store  the  result  in  JOY2,Y. 

8.  Decrement  .Y  and  branch  back  to  step  2  while  it's  positive. 

Explanation 

There  are  two  registers  on  the  64  and  128  that  tell  you  the  sta- 
tus of  the  joystick  ports,  locations  56320  and  56321  ($DC00- 
$DC01).  These  registers  are  called  CIAPRA  and  CIAPRB— CIA 
data  port  A  and  port  B.  Unfortunately,  the  values  you  find 
here  are  doubly  backwards. 

The  first  way  they're  backwards  is  the  labeling  of  the  joy- 
stick port  and  the  registers.  Register  B  ($DC01)  is  joystick  port 
1.  Register  A  ($DC00)  is  port  2.  To  read  the  first  joystick, 
check  the  second  register  and  vice  versa. 

The  second  way  they're  backwards  is  the  way  the  bits 
operate: 

Joystick  Register 


!                                     ! 

I  Bit 

7 

6    1    5       '4 

3 

Z    |    1 

a 

-Up 

'-Otwn 

-Left 

R 

gh 

t 

Fire  button 
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You  might  think  that  if  the  joystick  is  pushed  to  the  left, 
bit  2  would  be  on  and  you'd  see  a  value  of  $04  in  the  register. 
What  really  happens  is  that  a  %1  means  the  switch  is  off  and 
%0  means  it's  on.  So  %xxxllll0  means  the  joystick  is  being 
pushed  forward. 

The  JOY2SE  subroutine  allows  for  the  first  problem  by 
putting  the  JOY2  byte  before  JOY1,  and  FIRE2  before  FIRE1  in 
memory  (see  locations  $C0F7-$C0FA  below).  It  solves  the  sec- 
ond problem  by  EORing  the  value  with  15  or  16,  then  ANDing 
with  15  or  16.  The  result  is  a  16  in  FERE2  or  F1RE1  if  the  fire 
button  is  down  and  a  0  if  it's  not.  The  value  in  JOY2  or  JOY1 
is  1,  2,  4,  8,  or  some  combination  of  the  numbers  for  diagonals 
(up  and  right  would  be  1  plus  8,  for  example). 

The  example  program  is  a  classic  computer  game.  There 
are  two  players,  each  of  whom  has  a  joystick  for  moving.  If  a 
player  doesn't  touch  the  joystick,  that  player's  character 
continues  moving  in  the  same  direction.  If  the  joystick  is 
moved,  the  character  changes  direction  (north,  south,  east,  or 
west): 


©- 


© 


Each  player  leaves  behind  a  trail,  which  marks  the  spaces 
the  character  (the  worm)  has  previously  traveled  over.  You  can 
move  into  new  territory,  but  if  you  hit  a  trail  (or  the  edge  of 
the  screen),  your  worm  dies,  and  points  are  awarded  to  your 
opponent. 

The  game  as  it  appears  is  complete.  But  it  could  be  im- 
proved. For  example,  after  a  crash,  you  could  add  the  EXPLOD 
routine  for  a  sound  effect.  The  hearts  and  exclamation  points 
that  make  up  the  worms  could  be  improved  with  custom  char- 
acters (see  CHRDEF  for  an  example  of  redefined  characters). 
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Note  to  128  users:  Pressing  the  fire  button  on  the  128 
makes  the  computer  act  as  if  the  F8  key  was  pressed.  Thus, 
you  may  find  that  when  the  game  ends,  you're  in  the  ML 
monitor.  To  prevent  this,  enter  the  line  KEY8,""  before  you 
play  the  game  (normally,  F8  is  predefined  to  print  MONITOR). 

Routine 


cooo 

ZP 

= 

SFB 

cooo 

JIF 

= 

SA2 

;  low  byte  of  jiffy  clock 

cooo 

NDX 

= 

198 

:  index  io  keyboard  buffer  (use  208  on 

cooo 

CHCOLR 
BGCOLR 

- 

646 

53281 

.  the  128) 

:  use  241  on  the  128 

cooo 

CHROUT 

= 

$FFD2 

cooo 

UNPRT 

= 

SBDCD 

:  use  S8E32  on  the  128 

cooo 

WM1 

= 

1040 

com 

WM2 
CIAPRA 

= 

2000 
56320 

cooo 

20 

FB 

CO 

)5R 

PREP 

;  initial  one-time  setup  for  variables 

C003 

20 

16 

CI 

ROUND 

JSR 

START 

;  setup  for  the  beginning  of  a  round 

C006 

20 

B3 

CI 

JSR 

PUTTT 

;  POKE  a  character  to  the  screen 

C009 

20 

DD 

CO 

FLAG 

JSR 

JOY2SE 

;  read  the  joysticks 

cooc 

AD 

FA 

CO 

LDA 

FIRE1 

;  wait  for  the  fire  button 

COQF 

OD 

F9 

CO 

ORA 

FTRE2 

;  either  one  can  start  the  game 

C012 

FO 

FS 

BEQ 

FLAG 

,  keep  looping  until  fire 

C014 

20 

60 

CO 

MAINLP 

JSR 

SETD1R 

;  set  the  direction 

C017 

20 

B3 

ei 

JSR 

PUTIT 

:  put  the  character  on  the  screen 

C01A 

AS 

A2 

LDA 

JIF 

C01C 

69 

OA 

ADC 

fflO 

;  delay  is  jiffy  clock  +  10 

C01E 

C5 

A2 

DLAY 

CMP 

JIF 

;  compare  it 

C020 

DO 

FC 

BNE 

DLAY 

;  go  back 

C022 

EE 

Bl 

Cl 

INC 

POINTS 

;  add  one  to  the  current  round's  points 

C025 

DO 

03 

BN"E 

LY 

C027 

EE 

BZ 

Cl 

INC 

POINTS +  1 

;  INC  the  high  byte.  If  necessary 

C02A 

CO 

00 

LY 

CPY 

"0 

;  does  .Y  hold  a  zero? 

C02C 

FO 

E6 

BEQ 

MAINLP 

;  yes,  keep  going  because  neither  player  hit 
,  wall 

;  end  of  a  round 

a 

C02E 

CO 

02 

CPY 

*2 

;  did  both  players  crash? 

C030 

FO 

Dl 

BEQ 

ROUND 

;  yes — no  points,  no  penalty 

C032 

AD 

D9 

Cl 

I.DA 

LOSER 

.  either  0  or  2  lor  the  loser 

C035 

49 

02 

EOR 

#2 

;  flip  0  and  2,  now  it's  the  winner 

C037 

A8 

TAY 

;  -Y  holds  the  winner 

C038 

18 

CLC 

;  get  ready  to  add  points 

C039 

AD 

Bl 

Cl 

LDA 

POINTS 

;  low  byte  of  points 

C03C 

79 

OD 

Cl 

ADC 

P1SCOR.Y 

;  add  to  the  score 

C03F 

99 

OD 

Cl 

STA 

P1SCOR/Y 

;  and  store  It 

C042 

AD 

B2 

Cl 

LDA 

POINTS+ 1 

;  high  byte 

C045 

79 

OE 

Cl 

ADC 

P1SCOR  +  1.Y 

;  add  It 

C048 

99 

OE 

Cl 

STA 

P1SCOR+1.Y 

;  store  it 

C04B 

AD 

D9 

Cl 

LDA 

IOSER 

:  0  or  2  again 

C04E 

4A 

LSR 

;  make  it  0  or  1 

C04F 

AA 

TAX 

C050 

DE 

11 

Cl 

DEC 

P1WORM.X 

;  one  less  worm  for  the  loser  (PI  or  P2) 

C053 

FO 

03 

BEQ 

QUU 

:  if  it's  zero,  quit 

C055 

4C 

03 

CO 

TMP 

ROUND 

;  else,  do  another  round 

C058 

20 

16 

Cl 

QUIT 

JSR 

5TART 

;  print  the  final  score 
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C05B 

A9 

00 

LDA 

#0 

,  clear  out 

COSD 

85 

C6 

STA 

NDX 

;  the  keyboard  buffer 

C05F 

60 

RTS 

;  and  quit 

:  SETDIR  does  two  things — continue  the 
J  current  path  and  set  a  new  one. 

COM 

AO 

01 

SETDK 

LDY 

m 

j  index  to  P1DIR/P2DIR 

C062 

A2 

02 

LDX 

#2 

;  index  to  P1POS/P2FOS 

C064 

B9 

AF 

CI 

CHKD 

LDA 

P1DIR.Y 

;  get  the  number  (1-4.  for  north,  south,  east, 
;  west) 

C067 

C9 

01 

CHK1 

CMP 

#1 

;  north 

C069 

DO 

10 

BNE 

CHK2 

-  no,  check  south 

C06B 

BD 

AB 

CI 

LDA 

PlPOS,X 

*  yes,  it  is  north 

CD6E 

38 

SEC 

so  move  up  (—40  In  screen  memory) 

C06F 

E9 

28 

SBC 

#40 

;  subtract 

C071 

9D 

AB 

CI 

STA 

PlPOS;X 

•  store 

C074 

BO 

34 

BCS 

TRYNEX 

C076 

DE 

AC 

a 

DEC 

P1-POS+1.X 

■  if  carry  dear,  DEC  the  high  bvte 

C079 

10 

2F 

BPL 

TRYNEX 

C07B 

C9 

02 

CHK2 

CMF 

#2 

check  for  south 

C07D 

DO 

10 

BNE 

CHK3 

not  south 

C07F 

BD 

AB 

a 

LDA 

PIPOSJt 

C082 

18 

CLC 

C083 

69 

28 

ADC 

#40 

add  40 

C085 

9D 

AB 

Cl 

STA 

P1POS.X 

C088 

90 

20 

BCC 

TRYNEX 

C08A 

FE 

AC 

Cl 

INC 

P1POS+1JC 

C08D 

10 

IB 

BPL 

TRYNEX 

branch  always 

C08F 

C9 

03 

CHK3 

CMP 

#3 

east,  perhaps 

C091 

DO 

OA 

BNE 

WEST 

definitely  west 

C093 

FE 

AB 

Cl 

INC 

P1FOS.X 

add  one  to  head  east 

C096 

DO 

12 

BNE 

TRYNEX 

C098 

FE 

AC 

Cl 

INC 

P1POS+1.X 

C09B 

10 

OD 

BPL 

TRYNEX 

C09D 

BD 

AB 

Cl 

WEST 

LDA 

P1POS.X 

COAO 

E9 

01 

SBC 

#1 

carry  is  always  set  if  we  get  this  far 

C0A2 

9D 

AB 

Cl 

STA 

P1POS.X 

COAS 

BO 

03 

BCS 

TRYNEX 

C0A7 

DU 

AC 

Cl 

DEC 

P1POS+1.X 

COAA 

CA 

TRYNEX 

DEX 

.X  counts  down  two 

COAB 

CA 

DEX 

COAC 

88 

DEY 

COAD 

10 

B5 

BPL 

CHKD 

COAF 

20 

DD 

CO 

J5R 

JOY2SE 

check  the  joystick 

COB2 

AE 

F8 

CO 

LDX 

JOY1 

this  will  be  a  number  0-15 

C0B5 

FO 

08 

BEQ 

SKIPIT 

C0B7 

BD 

CD 

CO 

LDA 

NSEW.X 

find  north,  south,  east,  west 

CUBA 

FO 

03 

BEQ 

sraprr 

COBC 

8D 

AF 

Cl 

STA 

P1DIR 

direction  for  PI 

COBF 

AE 

F7 

CO 

SKIPIT 

LDX 

JOY2 

look  at  player  2 

COC2 

FO 

08 

BEQ 

SKIP2 

C0C4 

BD 

CD 

CO 

LDA 

NSEW.X 

find  north,  south,  east,  west  again 

C0C7 

FO 

03 

BEQ 

SKTP2 

C0C9 

8D 

BO 

Cl 

STA 

P2DfR 

direction  for  P2 

COCC 

60 

SKIP2 

RTS 

COCD 

00 

01 

02 

NSEW 

.BYTE 

0,1.2,0,4,0,0,0,3 

C0D6 

00 

00 

00 

BYTE 

0.0,0,0,0,0,0 

CODD 

AO 

01 

JOY2SE 

LDY 

#1 

index  for  checking  0  and  1 

CODF 

B9 

00 

DC 

JOYLP 

LDA 

OAPRA.Y 

joystick  A  (number  2)  or  B  (number  1) 
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C0E2 

49 

10 

EOR 

#16 

;  flip  bit  4 

C0E4 

29 

10 

AND 

#16 

;  and  Isolate  It 

C0E6 

99 

F9 

CO 

STA 

FIRE2.Y 

;  store  in  the  table 

C0E9 

B9 

00 

DC 

LDA 

OAPRA,Y 

:  check  the  joystick  again 

COEC 

49 

OF 

EOR 

#15 

;  flip  bits  0-3 

COEE 

29 

OF 

AND 

#15 

;  and  mask  off  the  high  nybble 

COFO 

99 

F7 

CO 

STA 

JOY2.Y 

;  store  the  result 

C0F3 

88 

DEY 

;  count  down 

C0F4 

10 

E9 

BPL 

JOYLP 

;  until  .Y  Is  -1 

C0F6 

CO 

RTS 

C0F7 

00 

JOY2 

.BYTE 

0 

f 

C0F8 

00 

JOY1 

.BYTE 

o 

COF9 

00 

FIRE2 

.BYTE 

0 

COFA 

00 

FIRE1 

.BYTE 

0 

COFB 

A2 

05 

PREP 

LDX 

#P5E 

;  copy  the  table  PTAB 

COFD 

BD 

07 

CI 

PLOOP 

LDA 

PTAB.X 

;  get  the  number 

ClOO 

9D 

OD 

CI 

STA 

P1SCOR.X 

;  store  it 

C103 

CA 

DEX 

;  count  down 

CI  04 

10 

F7 

BPI. 

PLOOP 

;  to  —  1  before 

C106 

60 

RTS 

;  returning 

C107 

00 

00 

00 

PTAB 

.BYTE 

0,0.0.0,5,5 

;  two  2 -byte  scores,  plus  five  worms  eac 

ClOD 

PSE 

= 

•-PTAB-1 

;  the  size  of  the  table 

;  which  is  copied  to  the  variables  below 

ClOD 

00 

00 

P1SCOR 

.BYTE 

0,0 

;  score 

CI  OF 

00 

00 

P2SCOR 

.BYTE 

0,0 

cm 

05 

P1WORM 

BYTE 

5 

;  number  of  worms  left 

CU2 

05 

P2WORM 

.BYTE 

5 

CI13 

53 

P1CH 

.BYTE 

83 

;  screen  code  for  heart 

C114 

00 

.BYTE 

0 

;  this  byte  is  deliberately  left  blank 

C115 

21 

P2CH 

BYTE 

33 

:  screen  code  lor  exclamation  point 

CI  16 

A2 

07 

START 

LDX 

#RSE 

:  copy  the  table  RTAB 

C118 

BD 

A3 

CI 

RLOOP 

LDA 

RTAB.X 

;  get  a  number 

CUB 

9D 

AB 

CI 

STA 

P1POS.X 

;  copy  it 

CUE 

CA 

DEX 

;  count  down 

C11F 

10 

F7 

BPL 

RLOOP 

i  until   X  is  - 1 

C121 

A9 

01 

LDA 

#1 

1  color  code  for  white 

C123 

8D 

86 

02 

STA 

CHCOLR 

;  character  color 

CI  26 

SD 

21 

DO 

STA 

BGCOLR 

;  background  color 

C129 

A9 

93 

LDA 

#J93 

;  clear  screen  character 

C12B 

20 

D2 

FF 

ISR 

CHROUT 

;  print  it 

C12E 

A9 

OC 

LDA 

#12 

;  medium  gray 

C130 

8D 

21 

DO 

STA 

BGCOLR 

;  background  color  (do  this  to  allow  for 
;  version  2  64s) 

C133 

A9 

04 

LDA 

#4 

;  purple 

C135 

8D 

86 

02 

STA 

CHCOLR 

C138 

A9 

OD 

LDA 

#13 

;  <RETURN> 

C13A 

20 

D2 

FF 

,|5R 

CHROUT 

C13D 

A9 

DB 

LDA 

#219 

;  picket-fence  character 

C13F 

A2 

29 

LDX 

#41 

C141 

20 

9C 

CI 

JSR 

PRLP 

;  print  it  .X  number  of  times 

C144 

A2 

15 

LDX 

#21 

;  repeat  the  next  loop  21  times 

C146 

A9 

9D 

EDGES 

LDA 

#157 

;  cursor  left 

C148 

20 

D2 

FF 

ISR 

CHROUT 

;  backup  twice 

C14B 

20 

D2 

FF 

JSR 

CHROUT 

C14E 

A9 

11 

LDA 

#17 

.-  cursor  down 

CI50 

20 

D2 

FF 

JSR 

CHROUT 

CI  53 

A9 

DB 

LDA 

#219 

;  picket  (ence  again 

C155 

20 

D2 

FF 

JSR 

CHROUT 

CI  58 

20 

D2 

FF 

|SR 

CHROUT 
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C15B 

CA 

DEX 

C15C 

DO    E8 

BNE 

EDGES 

;  print  the  edges 

C15E 

A2    27 

LDX 

#39 

;  now  finish  the  bottom  row 

C160 

20     9C 

CI 

JSR 

PRLP 

;  -A  still  holds  the  T  shape 

CI  63 

A9    06 

LDA 

#6 

;  blue 

CI  65 

8D   86 

02 

STA 

CHCOLR 

:  character  color  blue 

CJ  68 

AE    OF 

ci 

LDX 

P2SCOR 

;  get  ready  to  print 

C16B 

AD   10 

Cl 

LDA 

P2SCOR  +  1 

;  the  score  of  player  2 

C16E 

20     CD 

BD 

JSR 

UNPRT 

;  print  it 

C171 

A9    13 

LDA 

#19 

;  home  (to  print  player  l's  score) 

C173 

20     D2 

FF 

JSR 

CHROUT 

C176 

AE   0D 

Cl 

LDX 

P1SCOR 

;  low  byte 

CI  79 

AD  0E 

a 

LDA 

P1SCOR  +  1 

;  high  byte 

C17C 

20     CD 

BD 

JSR 

LINPRT 

:  Finish  up  by  poking  the  number  of 
:  remaining  worms  to  the  screen. 

C17F 

AD   13 

Cl 

LDA 

P1CH 

;  the  character 

C182 

AE    11 

a 

LDX 

P1WORM 

;  number  of  worms  left 

C185 

F0     06 

BEQ 

OOPS1 

C187 

9D    10 

04 

POKl 

STA 

WM1.X 

C18A 

CA 

DEX 

C18B 

DO    FA 

BNE 

POKl 

C18D 

AD   15 

Cl 

OOPS1 

LDA 

P2CH 

;  (he  character  for  P2 

C190 

AE    12 

Cl 

LDX 

P2WORM 

.  how  many  worms  are  left? 

C193 

F0     06 

BEQ 

OOPS2 

C195 

9D    DO 

07 

POK2 

STA 

WM2,X 

C198 

CA 

DEX 

;  count  down 

C199 

DO    FA 

BNE 

POK2 

CI9B 

60 

OOPS2 

RTS 

;  end 

C19C 

20     D2 

FF 

PRLP 

JSR 

CHROUT 

i 

;  this  routine  prints  the  character  in  .A 

C19F 

CA 

DEX 

;  counts  down 

C1A0 

DO    FA 

BNE 

PRLP 

;  and  repeats  .X  times 

C1A2 

60 

RTS 

C1A3 

9A    05 

D6 

RTAB 

.WORD  1434.1494 

;  starting  positions 

C1A7 

03     04 

.BYTE 

3.4 

:  directions 

C1A9 

00     00 

.BYTE 

0,0 

;  initial  points 

CIAB 

RSIZ 

= 

•-RTAB-1 

C1AB 

00     00 

P1POS 

WORD0 

.  position  of  player  1 

C1AD 

00     00 

P2POS 

-WORD0 

;  and  player  2 

OAF 

00 

P1DIR 

.BYTE 

b 

;  direction  of  PI 

CI  BO 

00 

P2D1R 

.BYTE 

0 

;  and  P2 

C1BI 

00     00 

POINTS 

.BYTE 

0,0 

;  points  for  a  round 

C1B3 

A2    03 

PUTTT 

LDX 

#3 

;  first  gel  the  addresses  of  the  characters 

C1B5 

BD    AB 

Cl 

KELP 

LDA 

P1POS.X 

:  put  the  positions  into  ZP 

CJB8 

95    FB 

STA 

ZP,X 

;  two  pointers 

C1BA 

CA 

DEX 

:  and  loop 

C1BB 

10     F8 

BPL 

KELP 

:  down  to  zero 

C1BD 

AO    00 

LDY 

#0 

;  .Y  is  going  to  indicate  a  winner  if  a  collision 
;  occurs 

CI  BE 

A2    02 

LDX 

#2 

;  offset  for  the  characters 

C1C1 

Al     FB 

LOOK 

LDA 

(ZP.X) 

;  check  the  current  location 

C1C3 

C9    20 

CMP 

#32 

;  if  it's  a  space 

C1C5 

FO     08 

BEQ 

WHEW 

;  we're  safe 

C1C7 

C8 

TNY 

:  else,  there's  a  problem 

C1C8 

A9    56 

LDA 

#86 

;  X-llke  character 

OCA 

8E    D9 

a 

STX 

LOSER 

;  .X  holds  the  loser 

C1CD 

DO    03 

BNE 

STOR1T 

i  branch  always 
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C1CF    BD    13     CI    WHEW 


C1D2  81      FB 

C1D4  CA 

C1D5  CA 

C1D6  10     E9 

C1D8  60 

C1D9  00 


STOR1T 


LOSER 


LDA 

P1CH.X 

;  get  one  of  the  characters 

STA 

(ZP.X) 

;  and  store  it  to  the  screen 

DEX 

DEX 

BPL 

LOOK 

;  go  back  one  more  time 

RTS 

.BYTE 

0 

;  this  will  hold  a  0  or  a  2 

See  also  FIREBT,  JOY2TO,  JOYSTK. 
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Name 

Read  the  two  joysticks  together  as  one  stick 

Description 

With  this  routine  in  your  programs,  the  user  needn't  worry 
about  which  joystick  to  use.  JOY2TO  combines  the  responses 
from  both  joysticks,  handling  the  result  as  if  it  were  coming 
from  one  stick. 

The  routine  returns  directional  information  on  a  character 
that's  moved  around  the  screen  by  POKEing.  At  the  same 
time,  it  returns  the  status  of  the  joystick  fire  buttons. 

Prototype 

1.  AND  the  contents  of  the  two  joystick  data  registers 
together. 

2.  After  performing  an  LSR,  check  the  carry  flag. 

3.  If  carry  is  clear,  decrement  the  row  position  for  the  charac- 
ter, provided  you  haven't  reached  the  upper  limit  of  the 
screen,  and  return  to  the  main  program.  If  the  upper  limit 
has  been  reached,  simply  exit  the  routine. 

4.  If  carry  was  set  in  step  2,  it  indicates  that  neither  joystick 
was  moved  in  an  upward  direction.  Repeat  step  2  to  check 
for  downward,  left,  and  right  movement. 

5.  Check  the  fire  buttons  for  both  joysticks.  If  the  fire-button 
bit  (bit  4)  is  set,  exit  the  routine. 

6.  Otherwise,  store  a  zero  to  a  fire-button  flag  (FIREFL)  and 
RTS  to  the  main  program. 

Explanation 

Using  JOY2TO,  the  program  below  draws  with  either  joystick 
1  or  2.  By  moving  the  joysticks  in  one  of  four  directions,  the 
ball  character  (SCCODE)  "moves"  across  screen  memory. 
Pressing  a  fire  button  clears  the  screen  while  the  E  key  exits 
the  program. 

After  initializing  the  row  and  column  position  of  the  ball, 
the  corresponding  screen  memory  location  is  calculated  from 
SCO  1 7-$C04A.  This  series  of  instructions  determines  the 
screen  position  (SP)  using  the  expression  SP  =  (ROW  *  40  + 
COLUMN)  +  1024. 

In  order  to  multiply  by  numbers  that  aren't  a  power  of  2 
in  machine  language,  such  as  40,  you  have  to  break  the  mul- 
tiplier down.  In  this  case,  first  multiply  the  row  by  4,  then  add 
the  row  once  to  this  result:  This  is  the  same  as  multiplying  the 
number  by  5.  Then  multiply  this  by  8  (or  2T3). 
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To  multiply  by  5,  a  single  byte  will  suffice  for  the  result. 
The  screen  row  is  never  more  than  24,  so  only  a  single  byte  is 
needed  up  to  this  point  (5  *  24  =  120).  But  when  you  mul- 
tiply this  number  by  8,  since  the  result  can  exceed  255,  two 
bytes  are  needed. 

Once  the  screen  location  for  the  ball  has  been  calculated 
and  stored  in  zero  page  (ZP),  the  corresponding  color  memory 
location  is  determined  and  placed  in  ZP+3. 

Following  this  is  a  delay  of  two  jiffies.  If  this  weren't  in- 
cluded, joystick  movement  would  be  too  rapid.  If  you  add 
other  routines  to  this  code,  a  delay  of  one  jiffy  may  be  more 
suitable.  But  if  you  can't  produce  the  effect  you  want,  you  may 
have  to  switch  to  a  delay  routine  with  more  flexibility  like 
BYT2DL. 

Notice  that  within  JOYT02,  we  check  the  fire  button  at 
the  end  of  the  routine  (in  FIRE).  In  this  case,  we  report  its  cur- 
rent status  to  the  main  program  with  the  flag  (FIREFL).  When 
FIREFL  is  zero,  a  fire  button  is  being  pressed. 

Routine 

;  starting  screen  location 

;  screen  code  for  ball  character 

;  color  cyan 

;  top  row  or  screen 

;  first  column  on  left 

;  bottom  row  ol  screen 

;  last  column  on  right 

;  column  20  starting  position 

;  row  12  starting  position 

;  data-port  register  A 

1  low  byte  of  jiffy  clock 

;  NDX  =  208  on  the  128— number  of 

;  characters  in  keyboard  buffer 

;  LSTX  —  213  on  the  128 — matrix  coordinate 

•  for  last  key  pressed 


cooo 

SCREEN 

= 

1024 

cooo 

ZP 

= 

251 

cooo 

SCCODE 

— 

81 

cooo 

COLVAL 

= 

3 

cooo 

TOPLIM 

= 

0 

cooo 

LEFUM 

•m 

0 

cooo 

BOTLIM 

= 

24 

cooo 

R1GLIM 

= 

39 

cooo 

XSTPOS 

— 

19 

cooo 

YSTPOS 

= 

11 

cooo 

CHROUT 

= 

65490 

cooo 

C1APRA 

= 

56320 

cooo 

JIFFLO 

= 

162 

cooo 

NDX 

— 

198 

COOO 


LST.X 


197 


;  Draw  with  [oystick  1  or  2.  Clear  screen  with 

:  fire  button.  Quit  on  E  key. 

cooo 

A9    93 

CLRCHR 

LDA 

#147 

;  clear  the  screen 

C002 

20     D2 

FF 

ISR 

CHROUT 

coos 

A9    13 

LDA 

#XSTPOS 

:  initialize  starting  position,  column 

C007 

8D    C3 

CO 

STA 

XPOS 

C00A 

A9    0B 

LDA 

*YSTPOS 

;  and  row 

cooc 

8D    C4 

CO 

STA 

YPOS 

C00F 

A9    01 

LDA 

#1 

:  also  dear  flag  for  fire  buttons 

con 

8D    C5 

CO 

STA 

FIREFL 

COM 

AD  C4 

CO 

MOVE 

LDA 

YPOS 

:  gel  row  number 

:  And  multiply  it  by  40. 

C017 

85     FB 

STA 

ZP 

:  save  row  temporarily 

C019 

OA 

ASL 

;  multiply  row  by  4 

C01A 

OA 

ASL 

COIB 

65    F8 

ADC 

ZP 

;  add  to  row  (carry  cleared  here  bv  last  ASL) 
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C01D 

85 

FB 

STA 

ZP 

;  store  result 

;  Multiply  ZP  hy  8  (two-byte  multiplication). 

COIF 

A9 

00 

LDA 

#0 

:  dear  high  byte  of  ZP 

C021 

85 

FC 

STA 

ZP+1 

C023 

06 

FB 

ASL 

ZP 

;  double  ZP.  low  byte  first 

C025 

26 

FC 

ROL 

ZP+1 

:  then  high  byte 

C027 

06 

FB 

ASL 

ZP 

:  double  ZP  two  more  times 

C029 

26 

FC 

ROL 

ZP+1 

C02B 

06 

FB 

ASL 

ZP 

C02D 

26 

FC 

ROL 

ZP+1 

C02F 

AS 

FB 

LDA 

ZP 

:  now  add  column  number 

C031 

60 

C3 

CO 

ADC 

XPOS 

:  (cany  cleared  by  last  ROL  ZP+1) 

C034 

85 

FB 

STA 

ZP 

:  store  low  byte  of  result 

C036 

A9 

00 

LDA 

#0 

;  add  in  cany  to  high  byte 

C038 

65 

FC 

ADC 

ZP+1 

C03A 

85 

FC 

STA 

ZP+1 

;  and  store  high  byte 

;  Add  in  start  of  the  screen. 

C03C 

18 

CLC 

:  for  addition 

C03D 

A9 

00 

LDA 

#<SCREEN 

;  get  low  byte  of  screen  offset 

C03F 

6$ 

FB 

.ADC 

ZP 

;-add  in  current  position,  low  bvte 

C04I 

85 

FB 

STA 

ZP 

;  store  low-byte  result  for  screen  position 

C043 

85 

FD 

STA 

ZP+2 

;  it's  also  the  low-byte  result  for  color  RAM 
;  position 

C045 

A9 

04 

LDA 

#> SCREEN 

;  get  high  byte  of  screen  offset 

C047 

65 

FC 

ADC 

ZP+1 

;  add  in  high  byte  of  position 

C049 

85 

FC 

STA 

ZP+1 

.and  store  high-byte  result 

C04B 

49 

DC 

EOR 

*$DC 

;  effectively  add  $D4  for  high-byte  color 
;  RAM  offset 

C04D 

85 

FE 

STA 

ZP  +  3 

:  store  high-byte  result  in  zero  page 

C04F 

AO 

00 

LDY 

#0 

;  as  an  Index 

C05I 

A9 

03 

IDA 

*COLVAL 

;  get  the  character  color 

C053 

91 

FD 

STA 

(ZF+2),Y 

;  store  color  for  ball  in  color  RAM 

C055 

A9 

51 

LDA 

#SCCODE 

;  get  the  screen  code 

C057 

91 

FB 

STA 

(ZP),Y 

;  store  the  ball  to  the  screen 

C059 

A9 

02 

LDA 

#2 

i  for  delay  of  two  jiffies 

C05B 

65 

A2 

ADC 

TTFFI.O 

;  add  two  to  low  byte  of  jiffy  dock 

C05D 

C5 

A2 

DELAY 

CMP 

JIFFLO 

;  wait  for  two  jiffies 

C05F 

DO 

FC 

BNE 

DELAY 

C061 

20 

74 

CO 

JSR 

JOY2TO 

;  check  both  joysticks 

C064 

AD 

C5 

CO 

LDA 

FIREFL 

;  check  fire  buttons 

C067 

FO 

97 

BEQ 

CLRCHR 

;  if  either  fire  button  pressed,  dear  the  screen 

C069 

A9 

00 

BUFCLR 

LDA 

#0 

:  clear  keyboard  buffer 

C06B 

85 

C6 

STA 

NDX 

C06D 

A5 

C5 

MATGET 

LDA 

LSTX 

:  get  last  key  pressed 

C06F 

C9 

OE 

CMP 

#14 

;  is  it  E  for  exit? 

C07I 

DO 

Al 

BNE 

MOVE 

;  if  not  E,  then  go  to  MOVE 

C073 

60 

Exrr 

RTS 

;  if  E  pressed,  then  exit  the  program 
:  Total  joystick  conditions. 

C074 

AD  01 

DC  JOY2TO 

LDA 

C1APRA+1 

;  read  joystick  1 

C077 

2D 

00 

DC 

AND 

CIAPRA 

;  AND  in  joystick  2  reading 

C07A 

4A 

UP 

LSR 

•  check  up  move 

C07B 

BO 

OD 

BCS 

DOWN 

;  not  up 

C07D 

AD 

C4 

CO 

LDA 

YPOS 

;  handle  up,  get  row 

C080 

C9 

00 

CMP 

#TOPLIM 

;  compare  to  the  top 

C082 

FO 

3E 

BEQ 

EXTTJS 

;  top  limit  reached 

C084 

CE 

C4 

CO 

DEC 

YPOS 

;  move  up  1 

C087 

4C 

C2 

CO 

JMP 

EXITJS 

;  and  leave 

C08A 

4A 

DOWN 

LSR 

;  check  down  move 

C08B 

BO 

OD 

BCS 

LEFT 

;  not  down 

C08D 

AD 

C4 

CO 

LDA 

YPOS 

;  handle  down,  get  row 

C090 

C9 

18 

CMP 

#BOTLIM 

;  compare  to  screen  bottom 

C092 

FO 

2E 

BEC 

EXITJS 

;  bottom  limit  reached 

C094 

EE 

C4 

CO 

INC 

YPOS 

;  move  down  1 
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C097     4C 

C2 

CO 

JMP 

EXTTJS 

C09A    4A 

LEFT 

LSR 

C09B     BO 

OD 

BCS 

RICHT 

C09D    AD 

C3 

CO 

LDA 

XPOS 

COAO    C9 

00 

CMP 

#LEFLIM 

C0A2    FO 

IE 

BEQ 

EXITJS 

C0A4    CE 

C3 

CO 

DEC 

XPOS 

C0A7    4C 

C2 

CO 

JMP 

EXIT)S 

COAA  4A 

RIGHT 

LSR 

COAB    BO 

OD 

BCS 

FIRE 

COAD  AD  C3 

CO 

LDA 

XPOS 

COBO    C9 

27 

CMP 

#RIGLIM 

C0B2     FO 

OE 

BEQ 

EXTTJS 

C0B4    EE 

C3 

CO 

INC 

XPOS 

C0B7    4C 

C2 

CO 

JMP 

EXITJS 

COBA   4A 

FIRE 

LSR 

COBB    BO 

05 

BCS 

EXITJS 

COBD   A9 

00 

LDA 

#0 

COBF    8D 

cs 

CO 

STA 

FIREFL 

C0C2    60 

EXITJS 

RTS 

C0C3    00 

XP05 

.BYTE 

0 

C0C4    00 

YPOS 

.BYTE 

0 

C0C5    01 

HRtFL 

.BYTE 

1 

;  and  leave 

;  check  left  move 

;  not  left 

;  handle  left,  gel  column 

:  compare  to  left  limit 

;  left  limit  reached 

;  move  left  1 

;  and  leave 

f  check  right  move 

;  not  right 

I  handle  right,  get  column 

;  compare  to  right  limit 

;  right  limit  reached 

;  move  right  1 

;  and  leave 

;  check  fire  buttons 

;  not  up,  down,  left,  right,  or  fire 

;  a  fire  button  pressed,  so  set  flag 

;  we're  finished 

;  Starting  positions  follow. 

;  current  column  number 

;  current  row 

l  neither  fire  button  pushed  if  equal  to  one. 

;  pushed  if  zero 


See  also  FLREBT,  JOY2SE,  JOYSTK. 
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Name 

Read  a  joystick 

Description 

You  can  add  this  routine  to  a  program  whenever  you  need  to 
move  a  character  about  the  screen  with  one  of  the  joysticks. 
Before  calling  JOYSTK,  define  the  border  limits  for  the 
character  in  the  equates  and  load  the  accumulator  with  the 
joystick  number  (1  or  2). 

The  routines  return  directional  information  as  well  as  the 
status  of  the  joystick  fire  button. 

Prototype 

1.  Read  the  contents  of  the  appropriate  joystick  data  register 
into  the  accumulator. 

2.  After  performing  an  LSR,  check  the  carry  flag. 

3.  If  carry  is  dear,  decrement  the  row  position  for  the  charac- 
ter, provided  that  you  haven't  reached  the  upper  limit  of 
the  screen,  and  return  to  the  main  program.  If  the  upper 
limit  has  been  reached,  simply  exit  the  routine. 

4.  H  carry  is  set  in  step  2,  it  indicates  that  the  joystick  is  not 
moved  in  an  upward  direction.  Repeat  step  2  to  check  for 
downward,  then  left,  and  then  right  movement. 

5.  Finally,  check  the  fire  button  bit.  If  it  is  set,  exit  the  routine. 

6.  Otherwise,  store  a  zero  to  a  fire  button  flag  (FIREFL)  and 
RTS  to  the  main  program. 

Explanation 

The  example  program  is  almost  identical  to  the  program  found 
under  JOY2TO.  Likewise,  the  two  joystick  routines  themselves 
are  quite  similar. 

The  JOY2TO  program  POKEs  the  character  moved 
around  the  screen  along  with  its  color  byte.  This  one  prints  it 
with  CHROUT  after  it  has  been  positioned  with  PLOTCR. 
TXTCOL  is  used  to  color  it.  In  the  example  program,  the 
character  moved  by  joystick  2  is  the  checked  block — 
CHR$(166). 

Since  printing  to  the  last  screen  position  causes  the  screen 
to  scroll,  we  limit  the  row  position  here  to  the  first  24  rows 
(0-23). 

The  status  of  the  fire  button  is  returned  to  the  calling  pro- 
gram by  using  the  flag  FIREFL.  FIREFL  is  zero  when  the  fire 
button  is  being  held  down;  otherwise,  it's  one. 
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Note:  In  using  PLOT,  remember  that  the  row  position 
loads  into  .X  and  the  column  into  .Y.  Also,  be  sure  to  clear  the 
carry  flag  before  you  JSR  to  PLOT. 

Routine 


cooo 

CHAR 

= 

166 

cooo 

COLVAL 

»• 

4 

cooo 

TOPUM 

= 

0 

cooo 

LEFLIM 

= 

0 

cooo 

BOTL1M 

— 

23 

cooo 

RIGUM 

■* 

39 

cooo 

XSTPOS 

= 

19 

cooo 

YSTPOS 

— 

11 

cooo 

CHROUT 

= 

65490 

cooo 

PLOT 

= 

65520 

cooo 

C1APRA 

- 

56320 

cooo 

JIT-FLO 

-= 

162 

cooo 

NDX 

— 

198 

cooo 

LSTX 

- 

197 

cooo 

COLOR 

m 

646 

cooo 

A9 

93 

CLRCHR 

LDA 

#147 

C0O2 

20 

D2 

FF 

JSR 

CHROUT 

C005 

A9 

13 

LDA 

•XSTPOS 

C0O7 

8D 

94 

CO 

STA 

XPOS 

COOA 

A9 

OB 

LDA 

*YSTPOS 

COOC 

8D 

95 

CO 

STA 

YPOS 

COOF 

A9 

01 

LDA 

#1 

C011 

8D 

96 

CO 

STA 

FIREFL 

C014 

A9 

04 

LDA 

•COLVAL 

C016 

8D 

86 

02 

TXTCOl 

STA 

COLOR 

C019 

AC 

94 

CO 

MOVE 

LDY 

XPOS 

C01C 

AE 

95 

co 

LDX 

YPOS 

COIF 

18 

PLOTCR 

CLC 

C020 

20 

FO 

FF 

ISR 

PLOT 

C023 

A9 

A6 

LDA 

#CHAR 

C025 

20 

D2 

FF 

JSR 

CHROUT 

C028 

A9 

02 

LDA 

#2 

C02A 

65 

A2 

ADC 

JIFFLO 

C02C 

C5 

A2 

DELAY 

CMP 

JIFFLO 

C02E 

DO 

FC 

BNE 

DELAY 

C030 

A9 

02 

LDA 

#2 

C032 

20 

45 

CO 

JSR 

JOYSTK 

C035 

AD 

96 

CO 

LDA 

FIREFL 

C038 

FO 

C6 

BEQ 

CLRCHR 

C03A 

A9 

00 

BUFCLR 

LDA 

#0 

C03C 

85 

C6 

STA 

NDX 

C03E 

A5 

C5 

MATGET 

LDA 

LSTX 

C040 

C9 

OE 

CMP 

#14 

C042 

DC 

D5 

BNE 

MOVE 

C044 

60 

extt 

RTS 

C04S 

29 

01 

JOYSTK 

AND 

#1 

C047 

AA 

TAX 

C048 

BD 

00 

DC 

LDA 

C1APRA,X 

;  checkered  block  character 

;  color  purple 

;  top  row  of  screen 

;  Bret  column  on  left 

:  one  row  up  from  bottom  of  screen 

;  last  column  on  right 

;  column  20  (starting  position) 

;  row  12  (starting  position) 


;  data  port  register  A 

;  low  byle  of  jiffy  clock 

;  NDX  =  208  on  the  128— number  of 

;  characters  in  keyboard  buffer 

;  LSTX  =  213  on  the  128— matrix  coordinate 

;  for  last  key  pressed 

;  COLOR  -  241  on  the  128— <*rrrent  text 

;  foreground  color 

:  Draw  with  joystick  2.  Clear  screen  when 
;  fire  button  pressed-  Quit  on  E  key. 
;  clear  the  screen 

;  initialize  starting  position,  column, 

;  and  row 

!  also  clear  fire  button  flag 

;  store  cursor  color  value 

;  column  position 

;  row  position 

:  position  the  cursor  at  (.Y,.X) 

:  position  cursor 

;  get  the  character  to  print 

;  and  print  it 

;  for  delay  of  two  jiffies 

;  add  2  to  low  byte  of  jiffy  clock 

;  wait  for  two  jiffies 

;  joystick  number 

;  read  joystick  2 

;  check  fire  button 

;  if  fire  button  pressed,  clear  the  screen 

;  clear  the  keyboard  buffer  (if  joystick  1  is 

:  used) 

;  get  last  key  pressed 

;  is  II  E  for  exit? 

;  if  not  E,  go  to  MOVE. 

;  if  £  pressed,  exit  the  program 

;  Enter  with  the  joystick  number  in  .A. 

:  determine  joystick  offset 

;  put  offset  in  .X 

;  read  Joystick  1  (.X  -  »  or  2  (.X  -  0) 
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COIB 

4A 

UP 

LSR 

•  check  up  move 

C04C 

BO 

OD 

BCS 

DOWN 

■  not  up 

C04E 

AD  95 

CO 

LDA 

YPOS 

handle  up,  get  row 

C051 

C9 

00 

CMP 

rroPLiM 

compare  to  the  top 

C053 

FO 

3E 

BEQ 

Exrrjs 

top  limit  reached 

C05S 

CE 

95 

CO 

DEC 

YPOS 

move  op  one 

C0S8 

4C 

93 

CO 

JMP 

Exrrjs 

and  leave 

C05B 

4A 

DOWN 

LSR 

check  down  move 

C05C 

BO 

OD 

BCS 

LEFT 

not  down 

COSE 

AD 

95 

CO 

LDA 

YPOS 

handle  down,  get  row 

C061 

C9 

17 

CMP 

#BOTLIM 

compare  to  screen  bottom 

C063 

FO 

2E 

BEQ 

Exrrjs 

bottom  limit  reached 

C065 

EE 

95 

CO 

INC 

YPOS 

move  down  one 

C068 

4C 

93 

CO 

JMP 

Exrrjs 

and  leave 

C06B 

4A 

LEFT 

LSR 

check  left  move 

C06C 

BO 

OD 

BCS 

RIGHT 

not  left 

C06E 

AD  94 

CO 

LDA 

XPOS 

handle  left,  get  column 

C07I 

C9 

00 

CMP 

#LEFLIM 

compare  to  left  limit 

C073 

FO 

IE 

BEQ 

Exrrjs 

left  limit  reached 

C075 

CE 

94 

CO 

DEC 

XPOS 

move  left  one 

C078 

4C 

93 

CO 

JMP 

Exrrjs 

and  leave 

C07B 

4A 

RIGHT 

LSR 

check  right  move 

C07C 

BO 

OD 

BCS 

FIRE 

not  right 

C07E 

AD  94 

CO 

LDA 

XPOS 

handle  right,  get  column 

C081 

C9 

27 

CMP 

#RIGUM 

compare  to  right  limit 

C083 

FO 

OE 

BEQ 

Exrrjs 

right  limit  reached 

C08S 

EE 

94 

CO 

INC 

XPOS 

move  right  one 

C088 

4C 

93 

CO 

JMP 

Exrrjs          , 

and  leave 

C08B 

4A 

FIRE 

LSR 

check  fire  burton 

C06C 

BO 

05 

BCS 

Exrrjs 

not  up,  down,  left  right,  or  fire 

COSE 

A9 

00 

LDA 

#0 

fire  button  pressed,  so  set  flag 

CO90 

8D 

« 

CO 

STA 

FIREFL 

C093 

60 

Exrrjs 

RTS 

we're  finished 

C094 

00 

XPOS 

.BYTE 

0 

current  column  position 

C095 

00 

YPOS 

.BYTE 

0 

current  row 

C096 

01 

FIREFL 

.BYTE 

1                        ; 

fire  button  not  pushed  if  equal  to 

if  0 


See  also  FIREBT,  JOY2TO,  JOY2SE. 
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Name 

Wait  for  a  keypress 

Description 

KEYDEL  causes  a  program  to  pause  until  a  key  is  pressed. 

Prototype 

1.  Clear  the  keyboard  buffer  by  storing  a  zero  in  NDX. 

2.  Repeatedly  JSR  GETIN  until  the  accumulator  contains  a 
nonzero  value,  indicating  a  key  has  been  pressed. 

3.  When  this  happens,  return  to  the  main  program. 

Explanation 

This  routine  is  quite  simple.  KEYDEL  clears  the  keyboard 
buffer  and  then,  using  the  Kernal  routine  GETIN,  fetches  a 
keypress. 

In  the  example  program,  we  clear  the  screen,  print  a  mes- 
sage, and  then  call  KEYDEL.  Pressing  a  key  allows  the  pro- 
gram to  continue.  At  this  point,  the  screen  is  cleared  again. 

Note:  If  you  need  to  know  the  actual  key  that  was  pressed 
while  in  KEYDEL,  the  accumulator  will  contain  its  ASCII 
value  upon  returning  from  the  routine. 

Routine 


cooo 


198  ;  NDX  -  208  on  the  128— number  of 

;  characters  in  keyboard  buffer 


COOO 

GETIN 

= 

65508 

cooo 

PLOT 

- 

65520 

cooo 

CHROUT 

65490 

Print  a  message  and  wail  for  a  response. 
Then  clear  the  screen. 

cooo 

20 

28 

CO 

JSR 

CLRCHR 

clear  the  screen 

C003 

A2 

17 

LDX 

#23 

twenty-fourth  row 

C005 

AO 

07 

LDY 

«7 

eighth  column 

C007 

18 

PLOTCR 

CLC 

to  position  cursor  at  (7.23) 

C008 

20 

F0 

FF 

JSR 

PLOT 

position  cursor 

C00B 

AO 

00 

LDY 

#0 

as  an  index  in  PRTLOP 

C00D 

B9 

2D 

CO 

PRTLOP 

LDA 

MSGSTR,Y 

get  a  character  from  the  message  string 

C010 

Ffl 

06 

BEQ 

PRTEND 

quit  printing  on  zero  byte 

C012 

20 

D2 

FF 

JSR 

CHROUT 

and  print  it 

C015 

C8 

INY 

for  next  character 

C016 

DO 

F5 

BNE 

PRTLOP 

and  continue  printing 

C018 

20 

IE 

CO 

PRTEND 

JSR 

KEYDEL 

wait  for  a  keypress 

C01B 

4C 

25 

CO 

IMP 

CLRCHR 

dear  the  screen  and  RT5 

Clear  the  keyboard  buffer  and  wait  for  a 
keypress. 

KEYDEL 


C01E  A9   00  KFYDEL 

C020  85     Co 

C022  20     E4    FF     KEYLOP 

C025  f0     FB 

C027  60 

C028  A9   93  CLRCHR 

C02A  4C    D2    FF 

C02D  50     52     45     MSGSTR 

C046  00 


IDA      #0 
STA       NDX 


JSR 

BEQ 

RTS 


GETIN 
KEYU)P 


LDA      #147 
JMP       CHROUT 


;  cle«  the  keyboard  buffer  (see  BUFCLR) 

;  get  a  keypress 
;  i .'  no  keypress 
;  we've  got  a  key 

;  clear  the  screen 
;  and  RTS 


-ASC     'TRESS  ANY  KEY  TO  CONTINUE' 
.BYTE    0  ;  terminator  byte 


See  also  BYT1DL,  BYT2DL,  INTDEL,  JIFDEL,  TOD1DL. 
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Name 

Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 
was  saved 

Description 

LOADAB  performs  an  absolute  load  of  an  ML  or  BASIC  pro- 
gram from  disk.  Thus,  a  program  will  be  loaded  into  memory 
at  the  same  address  from  which  you  saved  it.  If  you  wish  to 
relocate  the  program  as  you  load  it,  use  LOADBS  or  LOADRL. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,1  for  an  absolute  load  of  the 
file  (SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  where  the 
program  is  to  be  loaded  and  the  bank  containing  its 
filename. 

4.  Load  .A  with  zero  to  specify  a  load. 

5.  JSR  to  the  Kernal  LOAD  routine. 

6.  If  the  program  being  loaded  is  in  BASIC,  store  .X  and  .Y  in 
the  end-of-BASIC  text  pointer  (VARTAB  on  the  64,  TEXTTP 
on  the  128). 

Explanation 

This  routine,  as  written,  relies  on  the  file  header  information 
on  the  disk  to  load  the  program  named  PROGRAM.  A 
secondary  address  of  1  causes  the  load  to  be  absolute — that  is, 
to  the  address  specified  in  the  program  file  itself. 

Before  calling  the  Kernal  LOAD  routine,  place  a  zero  in 
the  accumulator.  This  tells  the  Kernal  LOAD  routine  to  load 
rather  than  to  verify  the  program.  Upon  returning  from  LOAD, 
.X  and  .Y  contain  the  low  and  high  bytes,  respectively,  of  the 
ending  address  of  the  file.  For  a  64  BASIC  program,  these 
should  be  placed  in  VARTAB,  the  two-byte  end-of-BASIC  text 
pointer  at  45  (the  equivalent  pointer  on  the  128  is  TEXTTP  at 
4624). 

To  use  this  routine  to  load  your  own  BASIC  programs, 
substitute  for  PROGRAM  the  name  of  the  program  you  want 
to  load.  If  you  need  to  use  the  routine  to  load  an  ML  program 
where  it  was  saved,  substitute  the  ML  program  name  for  PRO- 
GRAM. And  since  the  program  is  not  in  BASIC,  you  can  re- 
move the  STX  VARTAB  (STX  TEXTTP  on  the  128)  and  STY 
VARTAB +  1  (STY  TEXTTP +  1  on  the  128)  instructions  follow- 
ing the  JSR  LOAD. 
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Note:  LOADAB  as  presented  lacks  disk  error  checking. 
You  can  easily  add  this  feature  if  you  like  by  incorporating  the 
subroutine  DERRCK  into  the  code.  Place  DERRCK  just 
before  FILENM  as  noted  in  the  source  listing.  Jump  to 
DERRCK  immediately  after  the  JSR  LOAD  instruction. 
Furthermore,  be  sure  to  open  the  error  channel  (15)  at  the 
beginning  of  the  program  (also  noted  in  the  source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 

SETLFS 

= 

65466 

cooo 

SETNAM 

— 

65469 

cooo 

LOAD 

= 

65493 

cooo 

VARTAB 

— 

45 

COOO 


cooo 


cooo 

C002 
C004 


LOADAB       - 


A9  01 
A2  08 
A0    01 


C006     20     BA  FF 


A9    09 
A2    1C 


C009 

COOB 

CO0D    A0    CO 

COOF     20 

C012 

C014 


BD  FF 
A9    00 
20     D5    FF 


C017     86     2D 


LDA  #1 

LDX  #8 

LDY  #1 

JSR  SETLFS 


end-of-BA51C  pointer — substitute 
TEXTCP  =  4624  for  the  128 
SETBNK  =  65384;  Kemal  bank  number  for 
date  and  filename  (128  only) 
MMUREG  =  65280;  MMU  configuration 
register  (128  only) 

Load  BASIC  (or  ML)  program  into  memory 
where  it  was  saved. 

Open  channel  1 5  here  if  vou  include  error 
checking  (DERRCK). 


LDA  #0;  set  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  Hie  1 

device  number  for  disk  drive 

secondary  address  of  1  causes  absolute 

load 

set  for  absolute  load 

Include  the  following  three  Instructions 

for  the  128  only. 

LDA  BNKNUM;  bank  for  program 

LDX  BNKFNM;  bank  containing  filename 

JSR  SETBNK 


LDA 
LDX 

LDY 

#FNLENG 
#<ILENM 
#>1LENM 

length  of  filename 
address  of  filename 

JSK 

LDA 

JSR 

SETNAM 

#0 

LOAD 

set  up  filename 
flag  for  load 
load  the  file 

JSR  DERRCK;  Insert  for  disk  error 
checking 

STX 

VARTAB            ' 

For  the  128,  change  VARTAB  in  next  two 

instructions  to  TEXTTP. 

store  end-of-BASIC  program  address  into 

pointer 
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C019     84     ZE 
C01B    60 


STY 
RTS 


VARTAB+ 


C01C    30     3A    50     F1LENM         .ASC      "0;PROGRAM" 
C025  FNLENG        =  "-FILENM 


(these  two  Instructions  can  be  deleted  for 
ML  program  loads) 


Insert  DERRCK  here  if  including  error 
checking. 

insert  your  filename  here  (<*16  characters) 

length  of  filename 

Include  the  next  two  variables  for  the 

128  only. 

BNKNUM  -BYTE  0;  bank  number  to  load 

program  into 

BMKFNM  .BYTE  0;  bank  number  where 

filename  is  located 


See  also  LOADBS,  LOADRL. 
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Name 

Load  a  BASIC  program  into  the  current  BASIC  text  area 

Description 

LOADBS  performs  a  relative  load  of  a  BASIC  program  from 
disk.  During  this  process,  the  load  address  in  the  file  header 
on  the  disk  is  ignored.  Instead,  the  program  loads  into  the 
area  of  memory  currently  set  aside  for  BASIC  text. 

If  you  want  to  relocate  BASIC  prior  to  loading  the  pro- 
gram, or  if  vou  need  to  load  an  ML  program  in  this  way,  see 
LOADRL. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  relative  load  of  the  file 
(SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  in  which  to 
load  the  program  and  the  bank  containing  the  program 
filename. 

4.  Store  zero  in  A  to  specify  a  load. 

5.  Load  .X  and  .Y  with  the  starting  address  of  BASIC  from 
TXTTAB  . 

6.  JSR  to  LOAD. 

7.  Store  .X  and  .Y  into  the  end-of-BASIC  text  pointer. 

8.  Relink  the  tokenized  BASIC  program  text. 

Explanation 

This  routine,  as  written,  loads  the  BASIC  program  named 
"BASIC  PROGRAM"  into  the  BASIC  text  area.  A  secondary 
address  of  zero  insures  that  the  address  in  the  file  header  will 
be  overlooked  when  the  program  is  positioned  in  memory. 

Before  JSRing  to  LOAD,  the  accumulator  should  be  set  to 
zero  to  load  rather  than  to  verify  the  file.  The  X  and  Y  reg- 
isters must  contain  the  load  address  of  the  program.  Since 
we're  loading  the  program  in  the  BASIC  workspace,  we  can 
take  this  address  from  the  two-byte  pointer  for  the  start-of- 
BASIC  text  area,  TXTTAB. 

Upon  returning  from  the  Kernal  LOAD,  .X  and  .Y  contain 
the  ending  address  of  the  program  (plus  1).  Complete  the  rou- 
tine by  storing  these  in  the  end-of-BASIC  text  pointer, 
VARTAB  (TEXTTP  for  the  128),  and  relinking  all  program  lines 
with  the  BASIC  ROM  routine  LINKPG. 

Note:  LOADBS  currently  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
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DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (also  noted  in 
the  source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 
cooo 
cooo 
cooo 

SETLFS 
SETNAM 
LOAD 
TXTTAB 

- 

65466 
65469 
65493 
43 

cooo 

VARTAB 

- 

45 

cooo 
cooo 

UNKPG 

- 

42291 

cooo 


cooo 


cooo 

C002 
C004 


LOADBS       - 


A9  01 
A2  08 
AO    00 


C006      20     BA   FF 


C01B     86     2D 
C01D    84     2E 


LDA  #1 

LDX  #8 

LDY  #0 

JSR  SETLFS 


C009 

A9 

OF 

LDA 

#FNLENG 

COOB 

A2 

23 

LDX 

#<ILENM 

COOD 

AO 

CO 

LDY 

#>ILENM 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

C012 

A9 

00 

LDA 

#0 

COM 

Af> 

2B 

LDX 

TXTTAB 

C016 

A4 

2C 

LDY 

TXTTAB+ 

C018 

20 

D5 

FF 

JSR 

LOAD 

STX       VARTAB 
STY      VARTAB + 


TXTTAB  =  45  for  the  1 28— start-of-BASlC 

pointer 

end-of-BASIC  pointer — substitute 

TEXTTP  -  4624  on  the  128 

UNKPC  =  20303  for  the  128 

SETBNK  -  65384;  Kernal  bank  number  for 

data  and  filename  (128  only) 

MMUREG  =  65280;  MMU  configuration 

register  (128  only) 

Load  BASIC  program  into  normal  BASIC 
memory. 

Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 


LDA  #0;  set  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  1 

device  number  for  disk  drive 

secondary  address  of  xero  causes  relative 

load 

set  for  relative  load 

Include  the  following  three  instructions 

for  the  128  only. 

LDA  BNKNUM;  bank  for  program 

LDX  BNKFNM;  bank  containing  filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

flag  for  load 

low  byte  of  start-of-BASIC  address 

high  byte  of  start-of-BASIC  address 

load  program  at  the  start  of  BASIC 

JSR  DERRCK;  insert  for  disk  error 
checking 

For  the  128,  change  VARTAB  In  next  two 

Instructions  to  TEXTTP. 

store  end-of-BASIC  program  address  into 

pointer 
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COIF 

20     33 

A5 

JSR 

L1NKPG 

;  relink  line*  of  tokenized  BASIC  program 
;text 

C022 

60 

RTS 

C023     30     3A    42     FILENM 
C032 


FNLENG       = 


;  Insert  DERRCK  here  if  you  are  Including 
;  error  checking. 

-ASC      "0:BASIC  PROGRAM" 

j  substitute  your  filename  here  (<=  16 
;  characters) 
•FILENM  ;  length  of  filename 

;  Include  the  next  two  variables  for  the 

;  128  only. 

;  BNKNUM  .BYTE  0;  bank  number  to  which 

;  program  is  to  be  loaded 

:  BNKFNM  .BYTE  0;  bank  number  where 

;  filename  is  located 


See  also  LOADAB,  LOADRL. 
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Name 

Load  a  BASIC  or  ML  program  at  a  designated  memory  address 

Description 

LOADRL  is  quite  versatile.  With  it,  you  can  load  a  BASIC  or 
ML  program  from  disk  to  any  memory  location  specified.  Dur- 
ing this  process,  known  as  a  relative  load,  the  computer  takes 
the  load  address  from  the  X  and  Y  registers  rather  than  from 
the  file  (as  is  the  case  with  absolute  loads).  Furthermore,  if  it's 
a  BASIC  program  you're  loading,  LOADRL  will  even  set  the 
start-of-BASIC  and  end-of-BASIC  pointers  for  you. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  relocating  load  of  the 
file  (SETLFS,  SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  where  the 
program  is  to  be  loaded  and  the  bank  containing  its 
filename. 

4.  Store  zero  in  .A  to  specify  a  load. 

5.  Store  zero  at  the  start-of-BASIC  address  (skip  this  step  for 
ML  loads). 

6.  Load  .X  and  .Y  with  the  load  address  (LOADAD). 

7.  Store  this  address  in  the  start-of-BASIC  pointer,  TXTTAB 
(skip  this  step  for  ML  loads). 

8.  JSR  to  the  Kernal  LOAD  routine. 

9.  Store  the  contents  of  .X  and  .Y  in  the  end-of-BASIC  text 
pointer  (skip  this  step  for  ML  loads). 

10.  Relink  the  tokenized  BASIC  program  text  (skip  this  step 
for  ML  loads). 

Explanation 

The  example  routine  is  currently  set  up  to  load  a  BASIC  pro- 
gram named  "BASIC  PROGRAM"  at  16385  (LOADAD).  To 
load  your  own  BASIC  program,  just  substitute  its  filename  for 
"BASIC  PROGRAM"  and  specify  its  load  address  as  LOADAD 
in  the  equates.  With  the  few  additional  changes  given  below, 
this  same  routine  will  just  as  easily  perform  an  ML  program 
load. 

For  all  loads,  whether  BASIC  or  ML,  a  zero  must  be 
placed  in  the  accumulator  prior  to  JSRing  to  LOAD.  This  in- 
structs the  Kernal  LOAD  routine  to  load,  rather  than  to  verify, 
the  program  specified.  If  we're  doing  a  BASIC  program  load, 
as  in  the  example  below,  a  zero  must  be  placed  in  the  byte 
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preceding  the  load  address  (or  START,  calculated  in  the 
equates).  Since  .A  already  contains  a  zero,  we  simply  store  this 
to  START. 

Furthermore,  with  a  BASIC  load,  the  start-of-BASIC  text 
pointer  (TXTTAB)  must  be  set.  Since  the  X  and  Y  registers 
contain  the  load  address  (LOADAD)  for  the  program  prior  to 
JSR  LOAD,  we  can  store  these  to  TXTTAB  at  this  time.  This 
step  is  unnecessary  with  ML  loads. 

After  executing  the  Kernal  LOAD  routine,  you're  finished 
if  it's  an  ML  program  you're  loading.  But  if  you're  doing  a 
BASIC  load  (as  in  the  example  routine),  you  must  store  .X  and 
.Y — which  contain  the  ending  address  of  the  program  (plus 
1)— into  VARTAB  (the  two-byte,  end-of-BASIC  text  pointer) 
and  relink  all  program  lines  with  LINKPR.  If  you're  working 
on  a  128,  change  VARTAB  to  TEXTTP. 

Note:  LOADRL  currently  lacks  disk  error  checking.  You 
can  easily  add  this  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FTLENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program,  as  noted  in  the 
listing. 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 
cooo 
cooo 
cooo 

SETLFS 
SETNAM 
LOAD 
LOADAD 

- 

65466 
65469 
65493 
16385 

cooo 
cooo 

START 
TXTTAB 

« 

LOADAD -1 

43 

cooo 

VARTAB 

= 

45 

cooo 
cooo 

LINKPG 

- 

42291 

COOO 


cooo 


LOADRL 


memory  location  where  we  want  to  put  the 

program 

byte  just  prior  to  the  6tart-of-BASlC  text 

TXTTAB  -  45  on  the  128— stert-of-BASIC 

pointer 

end-of-BASIC  pointer — substitute 

TEXTTP  =  4624  for  the  128 

LINKPG  =  20303  on  the  128 

SETBNK  =  65384;  Kernal  bank  number  for 

data  and  filename  (128  only) 

MMUREG  =  65280;  MMU  configuration 

register  (128  only) 

Load  the  program  "BASIC  PROGRAM"  at 
16385. 

Open  channel  15  here  if  you  Include  disk 
error  checking  (DERRCK). 


LDA  #0;  set  bank  15  (128  only) 
STA  MMUKEG;  (128  only) 
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cooo 

A9 

01 

C002 

A2 

08 

C0O4 

Ail 

00 

COM     20     BA   FF 


C009 

A9 

OF 

COOB 

A2 

2A 

COOD 

AO 

CO 

COOF 

20 

BD 

FF 

C012 

A9 

00 

COU 

8D 

00 

40 

C017 

A2 

01 

C019 

86 

2B 

C01B 

AO 

40 

C01D 

04 

2C 

COIF 

20 

D5 

FF 

LDA  #1 

LDX  #8 

LDY  #0 

JSR  SETLFS 


LDA  #FNIENG 

LDX  #<FH.ENM 

LDY  #>FILENM 

JSR  SETNAM 

LDA  #0 

STA  START 

LDX  #<LOADAD 

STX  TXTTAB 

LDY  #>LOADAD 

STY  TXTTAB +1 

JSR  LOAD 


C022 

86 

2D 

STX 

VARTAB 

C024 

84 

2E 

STY 

VARTAB+1 

C026 

20 

33     AS 

JSR 

LINKPG 

C029 

60 

RTS 

C02A   30    3A   42    FILENM 
C039  FNLENG      = 


logical  Hie  1 

device  number  for  disk  drive 

secondary  address  of  zero  causes 

relocating  load 

set  for  relocating  toad 

Include  the  following  three  instructions 

on  the  128  only. 

LDA  BNKNUM:  bank  for  program 

LDX  BNKFNM;  bank  containing  filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

flag  for  load 

store  a  zero  at  the  start  of  BASIC  (delete 

if  loading  ML) 

set  the  load  address 

set  start-of-BASIC  pointer  (delete  if 

loading  ML) 

(also  delete  if  loading  ML) 
load  the  file  at  LOAD  AD 

JSR  DERRCK;  insert  for  disk  error 
checking 

For  the  128,  change  VARTAB  in  the  next 

two  instructions  to  TEXTTP. 

store  end-of-BASIC  program  address  into 

pointer 

(delete  for  ML  loads) 

relink  lines  of  tokenized  BASIC  program 

text  (delete  if  loading  ML) 


Insert  DERRCK  here  If  you're  Including 
error  checking. 

.ASC       '0-.BASIC  PROGRAM" 

substitute  your  filename  here  (<  =  16 
characters) 
•-FILENM  ;  length  of  filename 

Include  the  next  two  variables  on  the  128 

only. 

BNKNUM  .BYTE  0;  bank  number  to  which 

program  is  to  be  loaded 

BNKFNM  .BYTE  0;  bank  number  where 

ASCII  filename  is  located 


See  also  LOADAB,  LOADBS. 
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Name 

Get  a  character  using  the  keyboard  matrix 

Description 

At  times  you  may  want  to  get  a  keypress  while  ignoring  the 
position  of  the  shift  keys  (SHIFT,  CTRL,  and  Commodore 
keys).  For  instance,  suppose  you  wish  to  receive  a  yes/no 
(Y/N)  response  at  some  point  in  your  program.  If  the  user 
happens  to  have  SHIFT  LOCK  down  while  responding,  the  in- 
put will  be  a  graphics  character.  With  MATGET  this  won't 
happen. 

Prototype 

1.  Get  the  keyboard  matrix  value  of  the  last  kev  pressed  from 
the  register  at  197  (213  on  the  128). 

2.  Compare  the  value  with  the  keycode  for  no  key  pressed  (64 
on  the  64;  88  on  the  128). 

3.  If  no  key  has  been  pressed,  get  another  value  from  the 
register. 

4.  Otherwise,  compare  the  value  in  the  register  with  the 
keycode  for  a  specified  key. 

5.  If  this  key  has  not  been  pressed,  check  the  register  again. 

Explanation 

This  routine  relies  on  memory  location  197  (213  on  the  128)  to 
provide  a  keycode  for  the  last  key  pressed.  This  location  takes 
its  values  from  the  I/O  register  at  56321  during  every  normal 
interrupt. 

The  keycodes  for  each  key  on  the  64  and  128  are  given  in 
the  table.  The  first  64  (0-63)  keycodes  are  identical  on  the  two 
machines.  Additional  keycodes  have  been  assigned  to  the  extra 
keys  on  the  128,  including  the  numeric  keypad.  This  lets  you 
distinguish  between  an  upper-row  number  key  and  a  numeric- 
keypad  number  key  on  this  machine. 
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Keycodes  for  the  64  and  128 

0  =  INST/DEL 

33  =  I 

1  m  RETURN 

34=  J 

2  =  CRSR  right/left 

35  =0 

3  =  (7 

36  =  M 

4  =  fl 

37=  K 

5  =  f3 

38  =  O 

6  =  f5 

39  =  N 

7  =  CRSR  down /up 

40=  + 

8  =  3 

41  =  P 

9  =  W 

42  =  L 

10  =  A 

43  =  - 

11  =4 

44  =  . 

12  =  Z 

45  =  : 

13  =  S 

46  =  @ 

14  =  E 

47  =  , 

15  =  Not  used 

48  =  £ 

16  =  5 

49  =  * 

17  =  R 

50  =  ; 

18  =  D 

51  =  CLR/HOME 

19  =  6 

52  =  Not  used 

20  =  C 

53=  = 

21  =  F 

54  =  t 

22  =  T 

55  =  / 

23  =  X 

56=  1 

24  =  7 

57  =  - 

25  =  Y 

58  =  Not  used 

26  =  G 

59  =  2 

27  =  8 

60  =  Space 

28  =  B 

61  =  Not  used 

29  =  H 

62  =  Q 

30  =  U 

63  =  RUN/STOP 

31  =  V 

64  =  No  key  pressed  (64) 

32  =  9 

HELP'(128) 

Additional  128  Keycodes 

65  =  8  (kevpad) 

77  =  6  (keypad) 

66  =  5  (keypad) 

78  =  9  (keypad) 

67  =  TAB 

79  =  3  (keypad) 

68  =  2  (keypad) 

80  =  Not  used 

69  =  4  (keypad) 

81  =  0  (keypad) 

70  =  7  (keypad) 

82  =  . (keypad) 

71  =  1  (keypad) 

83  =  t  (top) 

72  =  ~ESC 

84  =  I  (top) 

73  =  +  (keypad) 

85  =  -  (top) 

74  =  -  (keypad) 

86  =  -  (top) 

75  =  LINE  FEED 

87  =  NO  SCROLL 

76  =  ENTER  (keypad) 

88  =  No  key  pressed 
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In  the  example  below,  when  an  E  has  been  pressed,  we 
print  it.  This  is  to  show  that  the  E  key  has  been  pressed,  either 
with  or  without  any  shift  keys  (SHIFT,  CTRL,  and  Com- 
modore keys)  being  held  down. 

Note:  LSTX  is  updated  during  normal  IRQ  interrupts.  If 
you  write  your  own  interrupt  routine  or  perform  an  SEI  to 
turn  off  interrupts,  this  routine  will  not  work  correctly  (if  at 
all).  In  such  circumstances,  you  should  call  the  Kernal  routine 
SCNKEY  (65439)  to  update  LSTX  before  using  this  routine. 


Routine 


cooo 
cooo 


LSTX 

NOKEY 

CHROUT 


197 
64 

65490 


;  LSTX  =  213  on  the  128 
!  NOKEY  -  88  on  the  128 


COOO 

COOO  A5  C5 

C002  C9  40 

C004  F0  FA 

C006  C9  0E 

COOS  DO  FS 

C00A  A9  45 

C00C  20  D2    FF 

COOF  60 


MATGET 
WATT 


LDA  LSTX 

CMP  #NOKEY 

BEQ  WAIT 

CMP  #14 

BNE  WAIT 

LDA  #69 

JSR  CHROUT 
RTS 


;  Accept  only  E  as  input  regardless  of  the 
j  positions  of  the  shift  keys. 

;  get  the  last  keypress 

;  compare  to  keycode  for  no  key  pressed 

;  If  no  keypress,  then  wait 

;  keycode  for  E 

;  no  E,  so  get  another  keypress 

;  character  code  for  E  (£  key  was  pressed) 

;  print  il 


See  also  BUFCLR,  CHRGTR,  CHRGTS,  CHRKER. 
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Name 

Move  BASIC  text  area  above  an  ML  program 

Description 

The  4K  block  of  memory  at  49152  on  the  64  is  the  most  popu- 
lar area  for  storing  machine  language  programs.  If  your  pro- 
gram calls  for  more  than  one  ML  routine,  you  may  be  forced 
to  position  one  of  the  routines  elsewhere  in  memory. 

Two  alternative  regions  for  locating  ML  routines  are  at  the 
top  or  bottom  of  the  BASIC  text  area.  Assuming  you  choose 
one  of  these  options,  you  often  must  protect  your  ML  code 
from  being  overwritten  by  a  coresident  BASIC  program.  This 
particular  routine  shows  how  to  position  your  ML  programs 
below  BASIC. 

Prototype 

1.  Move  the  address  of  the  end  of  the  BASIC  text  area  (in 
VARTAB)  up  by  one  page  beyond  the  end  of  this  program 
(MBU64  plus  your  ML  program).  Also,  change  the  pointer 
to  the  start  of  BASIC  array  space  (ARYTAB)  and  the  pointer 
to  the  top  of  string  space  (STREND)  so  they  contain  this 
address. 

2.  Store  a  zero  to  the  low  byte  of  TXTTAB  to  make  the  BASIC 
program  start  on  an  even-page  boundary. 

3.  Store  three  zeros  sequentially  beginning  at  the  address 
pointed  to  by  TXTTAB. 

4.  Increment  TXTTAB  by  1. 

5.  Set  the  variable  pointers  (VARTAB,  ARYTAB,  and  STREND) 
to  point  to  an  address  two  bytes  beyond  the  start  of  BASIC 
text  space  (in  TXTTAB)  and  return. 

Explanation 

To  use  MBU64,  place  your  ML  program  at  the  end  of  this  rou- 
tine and  then  assemble  both.  The  code  at  MLBAS  ($801-$80C) 
provides  you  with  a  one-line  BASIC  program  which  SYSes  to 
the  start  of  MBU64  at  2061.  This  line  reads: 

10  SYS2061 

When  you  run  this  BASIC  program  and  the  SYS  executes, 
MBU64  moves  the  pointer  to  the  start  of  BASIC  program 
space  (TXTTAB)  above  the  end  of  your  ML  program  (any- 
where from  1  to  255  bytes  above). 

At  the  same  time,  several  other  BASIC  pointers  are  al- 
tered, reflecting  the  fact  that  the  BASIC  program  has  been 
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NEWed.  Among  these  are  the  end-of-BASIC  pointer  (VARTAB), 
the  pointer  to  the  start  of  BASIC  array  space  (ARYTAB),  and 
the  pointer  to  the  start  of  free  RAM  (STREND). 

When  moving  BASIC  up,  remember  that  the  location 
preceding  the  BASIC  program  text  must  contain  a  zero.  For  in- 
stance, suppose  your  BASIC  program  called  for  a  hi-res  screen 
at  8192.  Since  this  screen  occupies  8K  of  memory,  you'll  prob- 
ably want  to  locate  your  BASIC  program  at  16384  or  above. 

If  you  choose  to  place  it  at  16384,  a  zero  must  be  stored 
in  this  first  location  to  mark  the  beginning  of  the  BASIC  pro- 
gram. TXTTAB,  the  start-of-BASIC  pointer,  in  this  instance, 
would  point  to  16385. 

A  BASIC  program  always  ends  with  three  zeros.  The  first 
one  designates  the  end  of  the  last  program  line,  while  the  next 
two  are  the  line  link  bytes.  You  can  merge  two  BASIC  pro- 
grams by  removing  these  last  two  zeros  and  storing  a  second 
BASIC  program  at  this  point  in  memory.  If  you  attempt  this, 
remember  to  relink  the  program  lines  for  the  two  programs 
(by  JSRing  to  LFNKPRG  at  42291)  and  adjust  VARTAB, 
ARYTAB,  and  STREND  to  the  end  of  the  second  program. 

Routine 


0801 

TXTTAB 

— 

43 

pointer  to  start  of  BASIC  program 

0801 

VARTAB 

§=* 

45 

•  pointer  to  end  of  BASIC  program 

0801 

ARYTAB 

= 

47 

pointer  to  start  of  BASIC  array  storage  area 

0801 

STREND 

49 

•  pointer  to  end  of  string  storage  and  start  of 
free  RAM 

Move  the  start  of  BASIC  above  your  ML 
program.  Program  runs  from  BASIC 

0801 

0B 

08 

MLBAS 

.BYTE 

11.8 

-  line  link  to  2059 

0803 

0A 

00 

.BYTE 

10,0 

line  number 

0805 

9E 

.BYTE 

158 

token  for  SYS 

0806 

32 

30     36 

.ASC 

"2061" 

SYS  address 

080A 

00 

00     00 

.BYTE 

0.0,0 

end  of  current  line  (0)  and  end  of  BASIC 
text  (0.0) 

Move  BASIC  up. 

080D 

A6 

2E 

MBU64 

LDX 

VARTAB +1 

load  the  high  byte  tor  the  end  of  BASIC 

text 

add  one  to  move  BASIC  up  by  one  page 

080F 

E8 

INX 

beyond  this  program 

0810 

86 

2C 

STX 

TXTTAB+1 

and  reset  all  pointers  to  this  address 

0812 

66 

2E 

STX 

VARTAB +1 

0814 

86 

30 

STX 

ARYTAB+1 

0816 

86 

32 

STX 

STREND +1 

0818 

A9 

00 

LDA 

#0 

0S1 A 

85 

2B 

STA 

TXTTAB 

Set  low  byte  of  TXTTAB  so  It  points  to 

$XX00  (start  of  BASIC 

is  now  1-255  bytes  beyond  the  end  of  this 

program). 
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081C 

AO 

02 

081!: 

91 

2B 

0820 

88 

0821 

10 

FB 

0823 

A2 

01 

0825 

86 

2B 

0827 

E8 

0828 

E8 

0829 

86 

2D 

082B 

86 

2F 

082D 

86 

31 

082F 

60 

ZERLOP 


LDY 
STA 

#2 

rrxTTABi.y 

DEY 
BPL 
LDX 
STX 

ZERLOP 

#1 

TXTTAB 

INX 

INX 
STX 
STX 
STX 
RTS 

VARTAB 
ARVTAB 
STREND 

;  as  an  index  in  ZERLOP 

;  pal  three  zeros  in  memory  pointed  to  by 

; TXTTAB 

;  do  three  zeros 

;  TXTTAB  increases  by  one  to  SXX01 

:  so  address  pointed  to  by  TXTTAB,  and  on 

;  either  side  are  zeros 

;  increment  .X  twice  since  variables  start 

;  two  bytes  beyond  start  of  BASIC 

;  and  reset  low  byte  of  all  variable  pointers 


;  end  of  the  routine  to  move  BASIC  up 

;  Put  the  ML  routine  you  want  below  BASIC 
;  here. 


See  also  MBU128. 
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Name 

Move  BASIC  text  area  above  an  ML  program  on  the  128 

Description 

If  you're  using  many  ML  routines  simultaneously  on  the  128, 
you  may  be  forced  to  position  one  or  more  of  these  in  the  nor- 
mal BASIC  text  area  beginning  at  7169.  Of  course,  any  ML 
routines  placed  in  this  area  of  memory  must  be  protected  from 
being  overwritten  by  the  BASIC  program. 

One  solution  is  to  move  the  BASIC  text  up.  This  is  the  ap- 
proach used  here.  By  altering  the  start-of-BASIC  pointer, 
MBU128  lets  you  insert  your  ML  routines  below  a  coresident 
BASIC  program. 

Prototype 

Before  entering  the  routine  (specifically  in  MLBAS),  set  up  a 
BASIC  line  that  will  jump  to  the  beginning  of  MBU128.  This 
line  should  read  as  follows: 

B  ANK0:SYS(PEEK(45) + PEEK(46) + 32) 

Do  not  insert  any  extra  spaces  in  this  line. 

1.  Within  MLB128,  move  the  start  of  BASIC  up  by  one  page 
beyond  the  end  of  the  current  BASIC  program. 

2.  Adjust  the  end-of-BASIC  pointer  (TEXTTP)  to  point  to  this 
address. 

3.  Store  a  zero  to  the  low  byte  of  TXTTAB  (start-of-BASIC 
pointer)  so  that  BASIC  starts  on  an  even-page  boundary. 

4.  Store  three  zeros  sequentially  beginning  at  the  address 
pointed  to  by  TXTTAB. 

5.  Increment  TXTTAB  by  one. 

6.  Store  a  3  into  the  low  byte  of  TEXTTP  since  the  end  of 
BASIC  is  two  bytes  beyond  the  start  of  BASIC  (with  no 
BASIC  program  in  memory)  and  RTS. 

Explanation 

To  use  MBU128,  place  your  ML  program  at  the  end  of  this 
routine  and  then  assemble  both.  The  code  at  MLBAS 
($1C01-$1C1D)  provides  you  with  a  one-line  BASIC  program 
which  SYSes  to  the  start  of  MBU128  at  7201  in  bank  0.  This 
line  reads 

10BANK0:SYS(PEEK(45)+256*PEEK(46)+32) 

If  you've  previously  used  the  GRAPHIC  command, 
BASIC  will  relocate  to  $4000.  If  this  is  the  case,  you'll  need  to 
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adjust  the  high  byte  for  the  line  link  (currently  at  $1C02)  to  64. 

When  you  run  this  BASIC  program  and  the  SYS  executes, 
MBU128  moves  the  start-of-BASIC  pointer  (TXTTAB)  above 
the  end  of  your  ML  program  (anywhere  from  1  to  255  bytes 
above).  At  the  same  time,  the  end-of-BASIC  pointer  in 
TEXTTP  is  adjusted  to  point  two  bytes  beyond  this.  The  start 
of  BASIC  moves  up  and,  in  the  process,  the  one-line  BASIC 
program  is  NEVVed. 

The  memory  location  preceding  the  BASIC  program  text 
must  contain  a  zero.  For  instance,  suppose  you  moved  the 
start  of  a  BASIC  program  to  the  address  8192.  You'd  place  a 
zero  in  8192,  and  TXTTAB,  or  the  start-of-BASIC  pointer, 
would  have  to  point  to  8193. 

A  BASIC  program  always  ends  with  three  zeros.  The  first 
one  designates  the  end  of  the  last  program  line,  while  the  next 
two  are  the  line  link  bytes.  You  can  merge  two  BASIC  pro- 
grams together  by  removing  these  last  two  zeros  and  storing  a 
second  BASIC  program  at  this  point.  If  you  do  this,  be  sure  to 
relink  the  lines  for  the  two  programs  by  JSRing  to  LINKPRG 
at  20303  and  point  TEXTTP  to  the  end  of  the  newly  merged 
program. 


Routine 


1C01 
1C01 

TXTTAB 
TEXTTP 

= 

45 

4624 

1C01 
1C03 
IC05 
1C07 
1C09 

IF 
OA 
FE 
30 
9E 

1C 
00 

02 
3A 
28 

C2 

MLBAS 

.BYTE 
BYTE 

.BYTE 
BYTE 
BYTE 

31.28 

10.0 

254.2 

48,58 

$9E,$28,$C2, 

icii 

32 

35 

36 

BYTE 

$32,$35,$36,! 

1C1B 
1C1D 

33 
29 

32 
00 

00 

8YTE 
.BYTE 

51,50 
$29,0,0.0 

1C21 

AE 

11 

12 

MBU128 

LDX 

TEXTTP+1 

1C24 

E8 

INX 

1C2S 
1C27 
1C2A 
1C2C 

86 
9E 
A9 
85 

2E 
11 

00 
2D 

12 

STX 
STX 
LDA 
STA 

TXTTAB+1 
TEXTTP+1 
#0 
TXTTAB 

1C2E 

A0 

02 

LDY 

#2 

;  start-of-BASIC  program  pointer 
;  end-of-BASIC  program  pointer 

;  Move  the  start  of  BASIC  above  your  ML 

;  program — program  runs  from  BASIC. 

;  line  link  to  7199 

;  line  number 

;  two-byte  token  for  BANK 

:  zero  and  colon 
28,$34,$35.$29,$AA 

;  SYS(PEEK(45)+ 
AC.$C2,$28,$34,$36,$29,$AA 

;  256*PEEK(46)+ 

;  offset  of  32  from  start  of  BASIC  text ) 

;  and  three  zeros  for  end  of  BASIC  text 

;  Move  BASIC  up. 

,-  load  the  high  byte  for  the  end  of  BASIC 

;  text 

;  add  one  to  move  BASIC  up  by  one  page 

;  beyond  this  program 

;  now  reset  the  start- 

;  and  end-of-BASIC  pointers  to  this  address 

;  set  low  byte  of  TXTTAB  so  that  it  points 

,-  to  SXX00  (start  of  BASIC 

;  is  now  1-255  bytes  beyond  the  end  of  this 

;  program) 

;  as  an  index  In  ZERLOP 
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1C30 

91 

2D            ZERLOP        STA 

(TXTTAB),Y 

;  pul  three  zeros  in  memory  pointed  to  by 

;  TXTTAB 

1C32 

88 

DEY 

1C33 

10 

FB 

BPL 

ZERLOP 

;  do  all  three 

1C35 

A2 

01 

LDX 

#1 

;  TXTTAB  increased  by  one  to  $XX01 

IC37 

86 

2D 

STX 

TXTTAB 

;  so  address  at  TXTTAB  and  on  either  side 
;  contains  a  zero 

1C39 

A2 

(13 

LDX 

#3 

;  end  of  BASIC  text  is  two  bytes  beyond 
;  start  of  BASIC 

1C3B 

8E 

10     12 

STX 

TEXTTP 

1C3E 

60 

RTS 

;  end  of  the  routine  to  move  memory 

;  Put  the  ML  routine  you  want  below  BASIC 
;  here 

See  also  MBU64. 
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Name 

Tune  player 

Description 

MELODY  provides  a  general  framework  for  playing  music.  By 
changing  certain  parameters  within  this  routine,  you  can  adapt 
it  to  play  any  number  of  simple  tunes. 

Prototype 

1.  Before  entering  this  routine,  set  up  a  table  of  notes  which 
index  values  from  a  two-byte  frequency  table  (NOTES),  a 
table  containing  the  relative  durations  for  each  note  in 
NOTES  (NDURTB),  and  a  table  of  the  two-byte  frequencies 
needed  for  the  tune  (FREQTB). 

2.  Set  a  note  counter  (NOTENM)  to  zero. 

3.  Clear  the  SID  chip  with  SIDCLR  and  select  the  necessary 
SID  chip  parameters  (volume,  attack/decay,  and 
sustain/release). 

4.  In  a  loop  (NOTELP),  load  the  frequency  for  each  note  and 
store  it  in  the  frequency  registers  for  voice  1. 

5.  Select  a  waveform  (sawtooth  in  the  example)  and  gate  it. 

6.  Load  the  note's  duration  and  cause  a  delay  based  on  it. 

7.  Start  the  release  cycle  by  ungating  the  waveform. 

8.  Increment  the  note  counter  and  determine  if  all  notes  have 
played.  If  so,  RTS.  Otherwise,  continue  NOTELP  to  play  the 
next  note. 

Explanation 

MELODY  plays  a  song  by  picking  out  notes  from  a  table 
containing  two-byte  frequencies  (FREQTB).  These  frequency 
values  are  the  same  ones  given  in  the  table  of  standard  notes 
in  your  programmer's  reference  guide. 

Currently,  the  values  in  FREQTB  represent  all  the  notes 
from  G-4  (6430)  through  A-5  (14335).  Alter  this  table  depend- 
ing upon  which  notes  are  used  in  your  song.  For  instance,  if 
your  song  ranged  from  G-2  to  F-3,  the  frequencies  in  FREQTB 
would  run  from  1607  to  2864. 

In  building  FREQTB,  you  really  only  need  to  list  the  actual 
note  frequencies  used  in  your  song.  But  it  generally  appears 
less  confusing  if  you  include  the  entire  range  in  the  song,  as 
we've  done  here.  Furthermore,  if  the  notes  used  are  many  or 
are  selected  from  a  wide  range,  you  might  let  NOTETB  gen- 
erate a  complete  note  table  (all  eight  octaves)  for  you. 

In  order  to  get  notes  from  FREQTB,  a  second  table  of  in- 
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dex  numbers  (NOTES)  is  required.  Each  note  selected  plays  for 
a  period  of  time  based  on  a  duration  value  given  in  yet  an- 
other table,  NDURTB.  The  actual  duration  of  each  note  is  the 
number  taken  from  NDURTB  times  eight  jiffies,  or  8/60  second. 

In  the  example  below  then,  the  first  note  in  NOTES,  or  G- 
4  with  a  frequency  of  6430,  plays  for  8  jiffies;  the  second  note, 
a  C-5  with  a  frequency  of  8583  plays  for  16  jiffies;  and  so  on. 

This  song  plays  in  voice  1  using  a  sawtooth  waveform. 
But  other  voices  or  waveforms  may  be  more  suitable  for  the 
song  you're  playing.  In  addition,  you  may  want  to  change  the 
other  SID  chip  parameters  such  as  the  volume  level,  or  the 
attack/decay  and  sustain/release  rates. 

For  each  song  played  with  this  routine,  you  need  to  work 
out  not  only  the  relative  time  each  note  plays  (in  NDURTB), 
but  also  the  overall  tempo  of  the  song.  The  number  of  jiffies 
specified  in  the  delay  loop  at  $C036  determines  a  song's 
tempo.  You  may  need  to  adjust  this  number,  currently  8,  up  or 
down  before  the  song  sounds  right. 

Routine 


cooo 

FRELOl 

- 

54272 

;  starting  address  for  the  SID  chip 

cooo 

FREHI1 

= 

54273 

;  voice  1  high  frequencv 

cooo 

VCREG1 

— 

54276 

;  voice  1  control  register 

cooo 

ATDCY1 

*» 

54277 

:  voice  1  attack/decay  register 

cooo 

SUREL1 

= 

54278 

;  voice  1  sustain/release  register 

cooo 

S1GVOL 

■" 

54296 

;  SID  chip  volume  register 

cooo 

JIFFLO 

= 

162 

;  low  byte  of  jiffy  clock 

cooo 

A9 

OS 

MELODY 

LDA 

#0 

;  Play  song. 

C002 

8D 

AB 

CO 

STA 

NOTENM 

;  set  pointer  to  first  note  In  table 

coos 

20 

AC 

CO 

JSR 

SIDCLR 

;  clear  the  SID  chip 

C008 

A9 

OF 

LDA 

#15 

;  set  the  volume  to  maximum 

C0OA 

8D 

18 

D4 

STA 

SIGVOL 

C00D 

A9 

1A 

LDA 

#S1A 

;  set  attack/decay 

C0OF 

8D 

OS 

D4 

STA 

ATDCY1 

C012 

A« 

IB 

LDA 

«!B 

;  set  sustain/release 

COM 

8D 

06 

D4 

STA 

SUREL1 

C017 

AE 

AB 

CO 

NOTELP 

LDX 

NOTENM 

;  get  the  note  number 

C01A 

BD 

51 

CO 

LDA 

NOTES,X 

;  get  index  for  FREQTB 

C01D 

0A 

ASL 

;  double  it  since  FREQTB  contains  two- 
;  byte  addresses 

C01E 

AA 

TAX 

;  to  Index  FREQTB 

COIF 

BD 

8D 

CO 

LDA 

FREQTB.X 

;  get  low  byte  of  note's  frequency 

C022 

8D 

00 

D4 

STA 

FRELOl 

;  store  it  in  voice  1 

C02S 

BD 

8E 

CO 

LDA 

FREQTB+1A 

;  get  high  byte  of  note's  frequency 

COM 

8D 

01 

D4 

STA 

FREH11 

;  store  it  in  voice  1 

C02B 

A9 

21 

LDA 

#%00100001 

;  gate  sawtooth  waveform 

C02D 

BD 

04 

D4 

STA 

VCREG1 

COM 

AE 

AB 

CO 

LDX 

NOTENM 

;  put  the  note  number  in  .X 

C033 

BC 

6F 

CO 

LDY 

NDURTB,X 

;  get  the  note's  duration  from  a  table 

C036 

A9 

08 

REPEAT 

LDA 

#8 

;  delay  for  number  of  Jiffies  in  .A 

C038 

65 

A2 

ADC 

JIFFLO 

C03A 

C5 

A2 

DELAY 

CMP 

IIFFLO 

:  hat  the  time  elapsed? 
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C03C 

DO 

FC 

BNE 

DELAY 

;  if  not,  continue  the  delay 

C03E 

88 

DEY 

C03F 

DO 

F5 

BNE 

REPEAT 

;  repeal  the  jiffy  delay  if  necessary 

C041 

A9 

20 

LDA 

#%001 00000 

;  ungate  waveform 

C043 

8D 

04 

D4 

STA 

VCREG1 

C046 

EE 

AB 

CO 

INC 

NOTENM 

;  increase  note  counter 

C049 

AD 

AB 

CO 

LDA 

NOTENM 

CMC 

C9 

IE 

CMP 

#NMNOTE 

;  see  if  all  notes  have  played 

C04E 

90 

C7 

BCC 

NOTELP 

;  if  not,  then  continue 

C050 

60 

RTS 

;  thaf  s  all 

C051 

00 

05 

05 

NOTES 

BYTE 

0,5,5,7,7,9,12,9,5.0.5,5,7,7.9,5 

;  table  of  notes 

C061 

00 

05 

05 

BYTE 

0,5.5,7,7,9, 12,9,5, 1 4,7, 10.9,5 

C06F 

NMNOTE 

= 

•  -  NOTES 

;  number  of  notes 

C06F 

01 

02 

01 

NDURTB 

.BYTE 

1,2.1.2.1.1,1,1.2,1.2,1,2,1.3.3 

;  lable  of  note  durations 

C07F 

01 

02 

01 

.BYTE 

1,2,1,2,1.1.1.13,3.2,1,3,3 

C08D 

IE 

19 

9C 

FREQTB 

.WORD  6430,6812,7217,7647.8101,8583.9094 

:  table  of  2-byte  frequency  values 

C09B 

A2 

25 

DF 

.WORD9634,10207.10814,11457.12139.12860,13625,14435 

COAB 

00 

NOTENM 

.BYTE 

0 

;  note  number  counter 
;  dear  the  SID  chip. 

COAC 

A9 

00 

SIDCLR 

LDA 

#0 

;  Gil  with  zeros 

COAE 

AO 

18 

LDY 

#24 

;  as  the  offset  from  FRELOl 

COBO 

99 

00 

D4 

S1DLOP 

STA 

FRELOl.Y 

;  store  zero  in  each  SID  chip  address 

COBS 

88 

DEY 

:  for  next  lower  address 

C0B4 

10 

FA 

BPL 

S1DLOP 

:  till  25  bytes 

C0B6 

60 

RTS 

;  we're  done 

See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  NOTETB,  SIDCLR, 
SIDVOL,  SIRENS. 
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Name 

Change  mixed-case  characters  to  all  lowercase 
Description 

MIXLOW  takes  a  letter  in  the  accumulator  and  returns  it  as 
lowercase  in  .A.  The  X  and  Y  registers  are  unaffected  by  the 
routine.  So,  you  can  access  MIXLOW  from  within  a  loop  in- 
dexed by  .X  or  .Y  without  needing  to  save  and  restore  the  in- 
dex register. 

In  a  word  processor,  this  routine  would  be  practical  for 
setting  up  a  search  function.  Let's  say  you  want  to  find  all 
occurrences  of  the  word  computer,  whether  the  lettering  is 
uppercase,  lowercase,  or  a  combination  of  the  two.  MIXLOW 
will  help  you  with  this  process,  converting  each  character  of 
the  specified  word  to  lowercase.  So,  if  Computer  and  COM- 
PUTER appear  in  your  document,  both  will  be  found. 

Prototype 

1.  Determine  whether  the  character  in  .A  is  less  than  the 
uppercase  range. 

2.  If  so,  then  RTS. 

3.  Determine  whether  the  character  is  less  than  CHR$(123), 
putting  it  in  the  first  uppercase  range,  97-122. 

4.  If  it  is,  subtract  32  to  put  it  in  the  lowercase  range  and  RTS. 

5.  If  the  character  value  exceeds  122,  check  to  see  whether  it's 
in  the  second  uppercase  range  of  193-218. 

6.  If  it  is,  convert  it  to  lowercase  by  ANDing  with  127  and 
RTS. 

Explanation 

The  example  routine  first  switches  in  lowercase/uppercase 
mode.  An  ASCII  string  (STRING)  in  mixed  case  is  read  in. 
Each  letter  of  the  string  is  converted  to  lowercase  and  printed 
with  CHROUT.  Before  exiting  the  routine,  the  SHIFT/ 
Commodore  key  combination  is  reenabled  to  allow  case 
switching. 

Note:  When  converting  characters  in  the  range  193-218  to 
lowercase,  we  AND  with  127.  This  effectively  subtracts  128,  but 
saves  a  byte  in  the  code  (as  opposed  to  using  SEC:  SBC  #128). 

Routine 


cooo 

CHROUT 

= 

65490 

cooo 

DSFTCM 

« 

8 

;  DSFTCM  =  U  on  the  128 

cooo 

ESFTCM 

= 

9 

;  ESFTCM  -  12  on  the  128 
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cooo 

A9 

OE 

LDA 

#14 

C002 

20 

D2 

FF 

JSR 

CHROUT 

C005 

A9 

08 

LDA 

SDSFTCM 

C007 

20 

D2 

FF 

JSR 

CHROUT 

COOA 

AO 

00 

LDY 

#0 

COOC 

B9 

37 

CO 

LOOP 

LDA 

STRING.Y 

COOF 

FO 

09 

BEQ 

FINISH 

con 

20 

20 

CO 

JSR 

MIXLOW 

C014 

20 

D2 

FT 

JSR 

CHROUT 

C017 

C8 

INY 

C018 

DO 

P2 

BNE 

LOOP 

COIA 

A9 

09 

FINISH 

LDA 

#ESFTCM 

C01C 

20 

D2 

FF 

JSR 

CHROUT 

COIF 

60 

RTS 

C020 

C9 

61 

MIXLOW 

CMP 

#97 

CU22 

90 

12 

BCC 

EXIT 

C024 

C9 

7B 

CMP 

#123 

C026 

BO 

01 

BCS 

SECSET 

C028 

38 

SEC 

C029 

E9 

20 

SBC 

#32 

C02B 

60 

RTS 

C02C 

C9 

CI 

SECSET 

CMP 

#193 

C02E 

90 

06 

BCC 

EXIT 

C03O 

C9 

DB 

CMP 

#219 

C032 

BO 

02 

BCS 

EXIT 

COM 

29 

7F 

AND 

#127 

COM 

60 

EXIT 

RTS 

C037 

C3 

48 

O 

STRING 

.ASC 

"ChAnCe 

C059 

00 

.BYTEO 

;  Convert  an  upper/lowercase  string  to  all 

;  lowercase. 

;  switch  lo  lowercase/uppercase  mode 

;  disable  case  switching  with 
!  SHIFT/Commodore  key 

;  Print  string  as  all  lowercase. 

;  as  an  index 

;  get  a  character  from  string 

;  is  it  a  zero  byte? 

;  convert  to  lowercase 

;  print  it 

:  next  character 

;  continue  printing 

:  enable  SHIFT/Commodore  key  case 

;  switching 


:  Convert  mixed  case  in  .A  to  all  lowercase. 

;  Return  in  .A. 

;  is  it  less  than  uppercase  A7 

;  yes,  so  exit 

;  is  it  greater  than  uppercase  Z? 

;  yes,  so  check  for  second  uppercase  set 

;  Character  is  In  ASCII  range  97-122. 

,-  so  subtract  32  to  put  it  in  range  65-90 

;  and  exit 

;  is  It  less  than  second  uppercase  A? 

;  yes,  so  exit 

;  is  It  greater  than  second  uppercase  Z? 

;  yes,  so  exit 

;  character  is  In  ASCII  range  193-218 

;  so  effectively  subtract  128  to  put  in  range 

;  65-90 


See  also  CNVERT,  MIXUPP,  SWITCH. 
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Name 

Convert  mixed  case  characters  to  all  uppercase 

Description 

MIXUPP  takes  the  letter  in  the  accumulator  and  returns  it  as 
uppercase  in  .A.  In  the  process,  .X  and  .Y  are  left  intact.  This 
routine  is  handy  anytime  you  want  only  uppercase  input — for 
instance,  when  filenames  are  requested  or  when  a  letter  re- 
sponse is  sought  (Y/N). 

Prototype 

1.  Determine  whether  the  character  in  .A  is  in  the  lowercase 
range,  65-90. 

2.  If  not,  RTS. 

3.  Otherwise,  add  32  to  put  it  in  the  uppercase  range,  97-122, 
and  RTS. 

Explanation 

The  example  routine  switches  in  the  lowercase/uppercase 
character  set,  accepts  individual  characters  with  GETIN,  con- 
verts them  to  uppercase  with  MIXUPP,  and  finally  prints 
them  with  CHROUT.  Pressing  RETURN  exits  the  routine.  In 
the  process,  case  switching  with  SHIFT/Commodore  key  is 
reenabled. 

Note:  A  CLC  is  not  required  before  32  is  added  in 
MIXUPP.  If  the  program  falls  through  BCS,  carry  will  already 
have  been  cleared. 

Routine 


cooo 
cooo 
cooo 
cooo 


C007 
C00A   20 
C00D    FO 
C00F 

con 

C013 
C016 
C019 


FO 
20 
20 


CHROUT 
GETIN 
DSFTCM 
ESFTCM 


COOO    A9   0E 
C002     20     D2   FF 
C005     A9   08 


20  D2  FF 
E4  FF 
FB 

C9    0D 
08 

21     CO 
D2    FF 


DO    EF 
C01B     A9    09 


LOOP 


Qun 


LDA 

JSR 

LDA 

)SR 

JSR 

BEQ 

CMP 

BEQ 
JSR 

JSR 

BNE 

LDA 


65490 
65508 


«14 

CHROUT 

SDSFTCM 

CHROUT 

GETIN 

LOOP 

#13 

QUIT 

MIXUPP 

CHROUT 

LOOP 

SESFTCM 


DSFTCM  =  11  on  the  128 
ESFTCM  -  12  on  the  128 

Convert  uppercase/lowercase  input  to  all 
uppercase;  quit  on  RETURN, 
switch  to  lowercase/uppercase  mode 

disable  SHIFT/Commodore  key  case 
switching 

get  a  character 

if  no  input,  wait 

is  it  RETURN? 

yes,  so  leave 

convert  to  all  uppercase 

and  print  it 

get  another  character 

enable  SHU- 1  /Commodore  key  case 

switching 


MEXUPP 


C01D 
C020 

20 
60 

D2    FF 

JSR 
RTS 

CHROUT 

C021 
C023 
C025 
C027 

C9 
90 
C9 
BO 

41 

Ob 
5B 
02 

MDCUPP 

CMP 
BCC 
CMP 
BCS 

#65 
EXIT 
#91 
EXIT 

C029 

69 

20 

ADC 

#32 

C02B 

60 

EXIT 

RTS 

;  Convert  ASCII  input  in  .A  to  all  uppercase. 

;  Return  value  in  .A. 

;  is  it  less  than  lowercase  a? 

;  yes,  so  exit 

;  is  it  greater  than  lowercase  z? 

;  yes,  so  exit 

;  Add  32  to  put  in  ASCII  range  97-122. 

;  note  that  carry  is  already  clear  if  we  fall 

;  through  prior  instruction 


See  also  CNVERT,  MIXLQW,  SWITCH. 


345 


MOVEDN 


Name 

Move  a  block  of  data  downward  in  memory 
Description 

Specifically  designed  to  move  blocks  of  data  down  in  memory, 
this  routine  can  be  used  to  move  other  machine  language 
routines,  or  text  and  numeric  data  tables.  Provided  the  source 
and  destination  blocks  don't  overlap,  MOVEDN  will  also 
move  memory  up. 

Prototype 

In  the  initialization  routine  (MDINIT): 

1.  Store  the  two-byte  origin  address  (here,  BLOCK1)  in  ZP  and 
the  two-byte  target,  or  destination,  address  (here,  BLOCK2) 
in  ZP+2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER  in  the 
equates)  in  .X  (low  byte)  and  .Y  (high  byte). 

In  MOVEDN: 

1.  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counte'r  (COUNTR). 

2.  Using  indirect  addressing  in  DOWNLP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block  (at  ZP+2). 

3.  On  the  128,  you  can  move  memory  from  one  bank  to  an- 
other. Define  BNKSRC  (source  bank  number)  and  BNKTAR 
(target  bank  number)  at  the  end  of  the  program  with  the 
appropriate  banks.  Replace  the  LDA  (ZP),Y  at  DOWNLP 
with  the  three  instructions  that  follow  it  in  the  listing  and 
the  STA  (ZP  +  2),Y  just  below  this  with  the  next  four 
instructions  (labeled  128  only). 

4.  Increase  both  zero-page  pointers  by  one  with  the  subroutine 
ADDONE. 

5.  Decrement  the  bytes  counter  (COUNTR),  continuing 
DOWNLP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

The  following  program  shows  how  MOVEDN  might  be  used 
in  a  word  processor  to  delete  text  from  the  screen. 

After  printing  a  message  to  the  screen,  the  program  waits 
for  a  keypress.  If  D  is  pressed,  a  portion  of  the  message  is  de- 
leted, and  the  program  ends. 
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When  you  press  D,  the  program  calls  the  subroutine 
MDINIT,  then  MOVEDN.  MDINIT  tells  MOVEDN  where  the 
source  and  target  blocks  begin  (in  ZP  and  ZP+2),  and  also 
how  many  bytes  to  move.  Upon  entering  MOVEDN,  the 
number  of  bytes  to  move  is  stored  to  a  two-byte  counter 
(COUNTR)  which  decrements  during  the  memory  transfer 
process.  At  the  same  time,  the  zero-page  pointers  to  the  source 
and  target  blocks  are  incremented.  When  COUNTR  reaches 
zero,  the  transfer  is  complete. 

Because  it  relies  on  zero-page  addressing,  on  the  128, 
MOVEDN  can  be  readily  modified  to  move  memory  from 
bank  to  bank.  To  accomplish  this,  you  need  two  Kernal 
routines:  INDFET,  which  performs  an  indirect  load  into  the 
accumulator  from  the  bank  in  .X,  and  INDSTA,  which  stores 
.A  indirectly  into  the  bank  in  .X.  To  implement  these  routines, 
replace  the  LDA  (ZP),Y  at  $C046  with  the  commented  instruc- 
tions that  follow  (DOWNLP  LDA  #ZP:LDX  BNKSROJSR 
INDFET)  and  replace  the  STA  (ZP+2),Y  at  $C048  with  LDX 
#ZP  +  2:STX  697:LDX  BNKTAR:JSR  INDSTA.  Also  include  the 
bank  numbers  for  the  source  (BNKSRC)  and  target  (BNKTAR) 
blocks,  defined  at  the  end  of  the  program. 

If  you  want  to  use  MOVEDN  to  move  memory  up,  before 
assembling  the  routine,  switch  the  definitions  of  BLOCK1  and 
BLOCK2  so  that  BLOCK  1  is  lower  in  memory.  Of  course,  in 
order  for  this  method  to  succeed,  the  two  memory  blocks  must 
not  overlap. 

Note:  Unlike  some  memory  move  routines  (such  as 
SWAPIT),  MOVEDN  has  no  error  checking.  It's  up  to  you  to 
make  sure  the  memory  blocks  you've  defined  in  the  equates 
are  in  the  proper  relative  position  in  memory. 


Routine 


cooo 

ZP 

CHROUT 

: 

251 
65490 

cooo 

PLOT 

= 

65520 

cooo 

GCTIN 

— 

65508 

cooo 

BLOCK  1 

= 

1267 

memory  block  1  (source) 

cooo 

BLOCK2 

— 

1262 

memory  block  2  (target) 

cooo 

NUMBER 

»■ 

757 

number  of  bytes  to  move  down 

cooo 

INDFET 

= 

65396 

Kemal  routine  to  load  indirectly  from  any 

bank  (128  only) 

cooo 

INDSTA 

»■ 

65399 

Kernal  routine  to  store  indirectly  to  any 

bank  (128  only) 

Print  a  message  to  the  screen.  Delete  a  word 

on  D. 

clear  the  screen 

cooo 

A9 

93 

CLRCHR 

LDA 

»147 

C002 

20 

D2    FF 

|SR 

CHROUT 
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C005 

A2 

05 

LDX 

#5 

C007 

AO 

IE 

LDY 

•30 

C009 

18 

PLOTCR 

CLC 

COOA 

20 

TO 

FF 

(5R 

PLOT 

COOD 

AO 

00 

LDY 

#0 

COO'F 

B9 

6D 

CO 

PRTLOP 

LDA 

TXTSTR.Y 

C012 

FO 

06 

BEQ 

CETKEY 

C014 

20 

D2 

FF 

|SR 

CHROUT 

C017 

C8 

INY 

C018 

DO 

F5 

BNE 

PRTLOP 

C01A 

20 

E4 

PF 

GETKEY 

JSR 

GETIN 

C01D 

FO 

EB 

BEQ 

GETKEY 

CO  IP 

C9 

44 

CMP 

#68 

C021 

DO 

F7 

BNE 

GETKEY 

C023 

20 

2A 

CO 

JSR 

MDINTT 

C026 

20 

3f 

CO 

JSR 

MOVEDN 

C029 

60 

RTS 

;  row  number  (sixth  row) 

;  column  number  (thirty-first  column) 

;  clear  carry  to  set  position 

;  position  cursor  at  (.Y,.X) 

|  as  an  index  in  PRTLOP 

I  get  a  character  from  TXTSTR 

j  exit  PRTLOP  on  zero  byte 

;  print  the  character 

;  for  next  character 

i  branch  always 

.  look  for  D 

;  if  no  keypress 

;  is  it  D? 

;  if  not  D,  get  another  keypress 

;  initialize  zero-page  pointers  and  get  number 

;  of  bytes  to  move 

;  move  bytes  down 


C02A 

A9 

F3             MDINTT        LDA 

#<BLOCKl 

C02C 

85 

FB 

STA 

ZP 

C02E 

A2 

04 

LDX 

#>BLOCKl 

COM 

86 

FC 

STX 

ZP+1 

C032 

A9 

EE 

LDA 

#<BLOCK2 

C034 

85 

FD 

STA 

ZP+2 

C036 

A2 

04 

LDX 

#>BLOCK2 

C038 

86 

FE 

STX 

ZP+3 

C03A 

A2 

F5 

LDX 

#<NUMBER 

C03C 

An 

02 

LDY 

#>NUMBER 

C03E 

60 

RTS 

;  Initialize  zero-page  pointers  to  BLOCK1  and 

;  BLOCK2.  Two  bytes  at  ZP  point 

;  to  source,  and  two  at  ZP+2  point  to  target 

;  Also  put  NUMBER  in  .X  and  Y. 

|  low  byte  of  BLOCK!  first 

;  then  high  byte 

I  and  again  for  BLOCK?. 


!  then  put  low  byte  of  number  of  bytes  to 
;  move  down  in  .X 
!  and  high  byte  in  .Y 


C03F 

9E 

6B 

CO    MOVEDN 

STX 

COUNTR 

C042 

8C 

6C 

CO 

STY 

COUNTR+1 

C045 

A0 

DO 

LDY 

#0 

C047 

Bl 

FB 

DOWNLP 

LDA 

<ZP),Y 

C049     91     FD 


STA       (ZP+2LY 


;  Move  bytes  down.  Enter  with  the  number 

;  of  bytes  to  move  in  .X  (low) 

;  and  .Y  (high).  Source  block  is  in  two  bytes 

;  at  ZP,  and  target  block  at  ZP+2. 

;  store  number  to  COUNTR,  low  byte  first 

:  then  high  byte 

;  Index  for  DOWNLP 

;  get  a  byte  from  source  block 

> 

;  On  the  L28,  substitute  the  next  three  lines 

;  (or  the  previous  line 

;  to  move  memory  from  bank  to  bank. 

;  DOWNLP  LDA  #ZP;  pot  zero-page 

;  pointer  lo  source  block  in  .A 

;  LDX  BNKSRC;  bank  number  for  source 

;  block 

;  JSR  INDFET;  load  indirectly  from  bank  .X 

;  beginning  at  source 

;  store  It  In  target  block 

;  Again,  on  the  128,  substitute  the  next  four 

;  lines  for  the  previous  line 

;  to  move  from  bank  to  bank. 

;  LDX  #ZP+2;  put  zero-page  pointer  to 

;  target  block  in  697 

;  STX  697 

;  LDX  BNKTAR;  bank  number  for  target 
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C04B  20  5E  CO 
C04E  CE  6B  CO 
C051      DO    F4 


JSR  ADDONE 
DEC  COUNTR 
BNE      DOWNLP 


C0S3 
C056 

CE   6C 
AD  6C 

CO 
CO 

DEC 
LDA 

COUNTR +1 
COUNTR +1 

C059 

C9 

FF 

CMP 

#255 

C05B 
COSD 

DO 

60 

EA 

BNE 
RTS 

DOWNLP 

C05E 
C060 

E6 

DO 

FB 

(12 

ADDONE 

INC 
BNE 

ZP 

INCTAR 

C062 
COM 

E6 
E6 

FC 
ED 

INCTAR 

INC 
INC 

ZP+1 
ZP+2 

C066 
C068 
C06A 

DO 
E6 
60 

02 
FE 

ADExrr 

BNE 
INC 
RTS 

ADExrr 

ZP+3 

C06B 

00 

00 

COUNTR 

WORDO 

C06D 
C097 

54 
00 

48 

49 

TXTSTR 

.ASC 

.BYTE 

"THIS  IS  LI> 
0 

;  block 

;  JSR  INDSTA;  store  Indtreclly  from  bank 

;  .X  beginning  at  target 

;  increase  ZP  pointers  by  one 

;  decrement  counter  low  byte 

;  If  low  byte  hasn't  turned  over,  continue 

;  moving  memory  down 

;  otherwise,  decrement  the  high  byte 

;  determine  whether  we've  moved  the  last 

;  page 

;  on  the  last  page,  high  byte  of  counter  goes 

;  from  0  through  255 

;  If  not  on  the  last  page,  continue 


;  Increment  zero-page  pointers  by  one. 

;  increment  low  byte  of  source 

;  if  it  hasn't  turned  over,  handle  target 

;  pointers 

;  Increment  high  byte  of  source  block 

;  do  the  same  for  target  pointers 

;  increment  low  byte  first 

;  if  it  hasn't  turned  over,  exit  ADDONE 

;  and  increment  high  byte,  if  necessary 


;  two-byte  counter  for  remaining  number  of 
;  bytes  to  move  down 
THIS  IS  LINE  6  AND  7.  DELETE  'LINE  ■  ON  D." 
;  terminator  byte 

;  BNKSRC  BYTE  0;  the  bank  number  where 
;  source  is  (128  only) 

;  BNKTAR  .BYTE  0;  the  bank  number  where 
j  target  is  (128  only) 


See  also  MVU128,  MVU64,  SWAPIT. 
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Name 

Move  sprite  to  an  absolute  (predetermined)  screen  location 
Description 

In  some  situations — board  games  or  menu  programs,  for  ex- 
ample— you  may  want  to  position  sprites  at  certain  fixed  loca- 
tions. When  the  sprite  moves,  it  doesn't  glide  smoothly  from 
one  spot  to  another;  it  jumps  directly  to  the  new  place.  This 
routine  uses  a  lookup  table  to  put  a  sprite  into  position. 

Prototype 

1.  Enter  the  routine  with  .X  holding  low  byte  of  the  x  co- 
ordinate, .A  holding  the  high  byte  of  the  x  coordinate  (1  or 
0),  and  .Y  holding  the  y  coordinate. 

2.  Store  the  values  in  the  appropriate  VIC  registers. 

Explanation 

The  framing  program  prints  a  numeric  grid  on  the  screen,  with 
the  numbers  1-9  in  a  3  X  3  square.  It  checks  for  a  keypress, 
and  when  any  of  the  numbers  1-9  is  pressed,  a  box-shaped 
sprite  is  moved  to  the  appropriate  position  on  the  grid.  Press 
the  zero  key  to  exit. 

The  MOVSAB  routine  is  very  simple — three  lines  plus  an 
RTS.  Most  of  the  example  program  is  spent  setting  up  the 
screen  and  creating  the  sprite  shape.  Note  the  message  at  the 
bottom.  The  17s  and  157s  are  cursor-down  and  cursor-left 
characters  used  to  print  the  screen  grid. 

Note:  This  routine  moves  only  one  sprite.  If  you  want  to 
handle  several,  you'll  need  an  additional  variable  that  in- 
dicates which  sprite  should  be  moved. 

The  128's  BASIC  7.0  has  a  variety  of  very  useful  com- 
mands for  controlling  sprites.  Unfortunately,  when  you're  try- 
ing to  control  sprites  from  ML,  BASIC  tends  to  get  in  the  way. 
To  disable  the  128's  various  sprite  commands,  enter  POKE 
4861,1  (or  any  other  non-zero  value)  before  you  SYS  to  this 


routine. 

Routine 

cooo 

SPCOLR 

afc 

33287 

;  sprite  0  color 

cooo 

spx 

= 

53248 

:  x  position 

cooo 

SPY 

= 

53249 

;  y  position 

cooo 

SPXM 

=■ 

53264 

;  MSB  bit  of  x  position 

cooo 

SPE 

= 

53269 

:  sprite  enable 

cooo 

SPP 

— 

2040 

;  pointer  to  sprite  zero 

cooo 

5PSHAPE 

= 

832 

;  SPSHAPE  =  3584  on  the  128— address  of 
:  shape  data 

cooo 

POINTR 

= 

13 

;  POINTR  =  56  cm  the  128  (56'64>— pointei 

350 


MOVSAB 


to  shape  data 

cooo 

PLOT 

= 

SFFFO                ; 

Kernal  plot  routine 

cooo 

CHROUT 

— 

$FFD2 

Kemal  print  routine 

cooo 

GETIN 

— 

$FFE4                  ; 

get  a  key 

cooo 

20 

3F 

CO 

JSR 

SETSPR             ; 

set  up  sprite 

C003 

20 

78 

CO 

JSR 

SCREEN             ,- 

print  numbers  1-9  on  screen 

C006 

20 

93 

CO 

MAIN 

JSR 

GETKEY            ; 

get  a  key  1-9 — the  number  1-9  is  in 

X 

C009 

EO 

00 

CPX 

#0                     ; 

is  it  a  zero? 

COOB 

DO 

01 

BNE 

MOVEIT 

no,  move  the  sprite 

COOD 

60 

RTS 

; 

yes,  quit  this  program 

COOE 

CA 

MOVEIT 

DEX 

; 

subtract  one,  so  it  works  right 

COOF 

BD 

2D 

CO 

LDA 

XLO,X                  ; 

get  the  low  byte  of  the  x  position 

C012 

8D 

CC 

CO 

STA 

TEMP                  ; 

save  it  temporarily 

C015 

BC 

36 

CO 

LDY 

YLO,X 

gel  tiie  y  position 

C018 

BD 

24 

CO 

LDA 

XHI.X 

and  the  high  byte  of  x 

COIB 

AE 

CC 

CO 

LDX 

TEMP 

now  the  real  x  position 

C01E 

20 

A4 

CO 

JSR 

MOVSAB          ; 

call  the  move  absolute  routine 

C021 

4C 

06 

CO 

JMP 

MAIN                  ; 

go  back  for  more 

C024 

00 

01 

01 

xm 

.BYTE 

0,1,1,0.1.1,0,1.1 

C02D 

E6 

06 

16 

XLO 

.BYTE 

246,6,22,246,6,22.246,6,22 

C036 

40 

40 

40 

YLO 

BYTE 

64,64.64,80.80.80,96,96.96 

C03F 

A9 

01 

SETSPR 

LDA 

#%0O000001      | 

rum  on  sprite  0 

C041 

8D 

15 

DO 

STA 

SPE                      ; 

setting  bit  0  in  sprite-enable 

C044 

A9 

07 

LDA 

#7                     ; 

color  yellow 

C046 

8D 

27 

DO 

STA 

SPCOLR            ; 

into  the  color  register 

C049 

A9 

00 

LDA 

#0                     ; 

position  zero 

C04B 

8D 

00 

DO 

STA 

SPX                     ; 

in  x  low  byte 

C04E 

8D 

10 

DO 

STA 

SPXM                  ; 

In  x  high  byte 

C051 

8D 

01 

DO 

STA 

SPY                     ; 

and  y  location 

C054 

A9 

00 

LDA 

«0                     ; 

zero  to  clear  out  the  shape 

C056 

AO 

40 

LDY 

#64 

C058 

99 

40 

03 

CLSP 

STA 

SPSHAPE.Y      ; 

clear  it  out 

C05B 

88 

DEY 

C05C 

10 

FA 

BPL 

CLSP 

all  63  bytes 

COSE 

A2 

OA 

LDX 

#10                   ; 

ten  lines 

C060 

AO 

00 

LDY 

#0 

start  at  zero 

C062 

A9 

FF 

CREATE 

LDA 

#255 

C064 

99 

40 

03 

STA 

SPSHAPE.Y 

C067 

C8 

INY 

C068 

A9 

CO 

LDA 

#192 

C06A 

99 

40 

03 

STA 

SPSHAPE.Y 

C06D 

C8 

INY 

C06E 

C8 

INY 

C06F 

CA 

DEX 

CO70 

DO 

FO 

BNE 

CREATE 

C072 

A9 

OD 

LDA 

#P01NTR 

set  the  pointer 

C074 

8D 

F8 

07 

STA 

SPP 

C077 

60 

RTS 

C078 

A9 

93 

SCREEN 

LDA 

#147 

clear  screen  character 

C07A 

20 

D2 

FF 

JSR 

CHROUT 

print  it 

C07D 

AO 

1C 

LDY 

#28 

getting  ready  to  plot — twenty-eighth 
column 

C07F 

A2 

02 

LDX 

#2 

second  row 

C081 

18 

CLC 

clear  carry  to  plot 

C082 

20 

FO 

FF 

ISR 

PLOT 

now  the  cursor  is  ready 

C085 

AO 

00 

LDY 

#0 

print  the  screen 

C087 

B9 

AE 

CO 

PLOOP 

LDA 

MESSAGE.Y 

C08A 

FO 

06 

BEQ 

QPLP 

if  it's  zero,  quit 

C08C 

20 

D2 

FF 

JSR 

CHROUT 

else  print  it 
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C08F 

C8 

INY 

C090 
C092 

DO 
60 

F5 

QPLP 

BNE 
RTS 

PLOOP 

;  (branch  always) 

C093 

20 

E4. 

FF 

GETKEY 

JSR 

GET1N 

;  get  a  key 

C096 

FO 

FB 

BEQ 

GETKEY 

;  no  key  pressed,  go  back 

C098 

C9 

30 

CMP 

#48 

;  lower' than  ASCII  0? 

C09A 

90 

F7 

BCC 

GETKEY 

;  yes.  go  back 

C09C 

C9 

3A 

CMP 

•58 

;  higher  lhan  ASCII  9? 

C09E 

BO 

F3 

BCS 

GETKEY 

;  yes,  fry  again 

COAO 

29 

OF 

AND 

#15 

;  strip  off  the  extra  stuff 

C0A2 

AA 

TAX 

;  and  transfer  from  .A  to  .X 

COA3 

60 

RTS 

;  we're  done  here 

C0A4 

MOVSAB 

_ 

• 

;  the  main  routine 

C0A4 

8D 

10 

DO 

STA 

SPXM 

;  most  significant  bit 

C0A7 

8E 

00 

DO 

STX 

SPX 

:  the  x  position 

COAA 

8C 

01 

DO 

STY 

SPY 

;  the  y  position 

COAD 

60 

RTS 

;  all  done 

COAE 

31 

20 

32 

MESSAGE 

ASC 

"1  2  3" 

' 

C0B3 

11 

11 

9D 

.BYTE 

17,17,157,157,157.157,157 

COBA 

34 

20 

35 

ASC 

"4  5  6" 

COBF 

11 

11 

9D 

BYTE 

17,17,157,157,157,157,157 

C0C6 

37 

20 

38 

.ASC 

"7  8  9" 

COCB 

00 

BYTE 

0 

COCC 

00 

TEMP 

■  BYTE 

0 

See  also  SPRINT. 
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Name 

Set  the  colors  for  multicolor  mode 

Description 

In  multicolor  mode,  you're  allowed  to  have  the  background 
color  plus  three  foreground  colors  (instead  of  one).  This  rou- 
tine sets  up  the  additional  colors. 

Prototype 

In  a  loop,  read  the  three  color  values  from  MTCOLS  and  store 
them  beginning  at  location  53281  (BGCOLO). 

Explanation 

To  set  multicolor-mode  colors,  choose  three  color  values  for 
the  background  color  registers  (53281-53283)  and  define  them 
in  MTCOLS  at  the  end  of  the  program.  The  program  below  is 
just  a  program  fragment.  For  a  complete  example  routine,  see 
MTCMOD. 

Routine 


cooo 

BGCOLO 

= 

53281 

;  text  background  color  register  0 

COM) 

A2 

02 

MTCCOL 

LDX 

#2 

;  as  an  index 

COM 

BD 

10 

CO 

COLOOP 

IDA 

MTCOLS.X 

;  gel  each  color  value 

C005 

9D 

21 

DO 

STA 

BCCOLO.X 

;  assign  it  to  a  register 

coos 

CA 

DEX 

;  for  next  register 

C009 

10 

F7 

BPt 

COLOOP 

;  do  all  three 

COOB 

60 

RTS 

cooc 

08 

09 

0A 

COLORS 

.BYTE 

8.9,10,14 

;  color  orange,  brown,  light  ted.  1 

CO  10 

OF 

05 

03 

MTCOL5 

BYTE 

15,5,3 

;  color  light  gray,  green,  cyan 

See  also  XBCCOL,  XBCMOD,  MTCMOD. 
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Name 

Turn  multicolor  mode  on  or  off 

Description 

Setting  bit  4  in  location  53270  (SCROLX)  enables  multicolor 
mode,  which  applies  in  both  text  or  bitmap  mode.  The  pro- 
gram below  uses  MTCMOD  and  MTCCOL  to  select  multi- 
color text  mode  and  set  character  colors  for  this  mode. 

Prototype 

1.  Load  the  contents  of  the  horizontal  fine-scrolling/control 
register  at  53270  (SCROLX)  into  the  accumulator. 

2.  ORA  with  %000 10000  to  turn  on  bit  4  and  store  the  result 
back  into  the  register.  (To  turn  off  multicolor  mode,  AND 
the  contents  of  SCROLX  with  %  1 1 1 0 1 1 1 1 .) 

Explanation 

It's  true  that  bit  4  of  SCROLX  enables  multicolor  mode.  But  in 
text  mode,  each  individual  character  must  have  a  value  greater 
than  7  in  its  color  RAM  nybble  before  the  character  actually 
displays  in  multicolor.  When  this  occurs,  the  horizontal  resolu- 
tion of  each  character  is  cut  in  half.  Instead  of  having  eight 
separate  pixels  across  that  can  be  one  of  two  colors,  the 
character  is  represented  horizontally  by  four  groups  of  double- 
width  pixels.  And  the  color  of  each  double-width  pixel  is 
taken  from  one  of  four  locations,  depending  on  its  bit  pattern: 

00  Background  color  register  0  at  53281 

01  Background  color  register  1  at  53282 

10  Background  color  register  2  at  53283 

11  Bits  0-2  of  corresponding  color  RAM  nybble  (55296-56319) 

To  see  this  effect,  run  the  example  program  below.  This 
program  prints  the  characters  A-Z  four  times  in  multicolor 
mode,  varying  color  RAM  on  each  pass.  Looking  at  the  results 
should  convince  you  that  the  built-in  character  set  was  not  in- 
tended to  be  used  with  multicolor  mode.  To  take  advantage  of 
this  feature  in  text  mode,  you'll  need  to  design  your  own  four- 
color  characters  with  a  routine  such  as  CHRDEF. 

If  you  turn  on  bitmapping  (see  BITMAP)  at  the  same  time 
multicolor  mode  is  active,  again  double-width  pixels  will  have 
the  effect  of  halving  horizontal  screen  resolution.  But  in  bit- 
map mode,  the  color  sources  for  the  double-width  pixels  differ 
from  text  mode.  Color  sources  for  the  four  possible  bit  patterns 
are  as  follows: 
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00  Background  color  register  0  at  53281 

01  High  nybble  of  corresponding  color  byte 

1 0  Low  nybble  of  corresponding  color  byte 

11  Bits  0-3  of  corresponding  color  RAM  nybble  (55296-56319) 

Note:  On  the  128,  location  216,  or  GRAPHM,  is  copied 
into  SCROLX  during  the  screen-setup  portion  of  the  IRQ  inter- 
rupt routine.  You  can  prevent  this  altogether  by  storing  a  255 
in  GRAPHM.  If  you  allow  the  IRQ  routine  to  copy  GRAPHM, 
select  multicolor  mode  from  this  register  by  setting  bit  7. 

The  program  below  uses  the  first  approach.  So,  128  users 
should  include  the  instructions  LDA  #$FF:STA  GRAPHM  just 
prior  to  activating  multicolor  mode  in  $C005. 

Routine 

i  text  background  color  register  0 
;  scroll/control  register 


;  COLOR  =  241  on  the  128— text  foreground 

;  color  register 

;  mode  dag  for  40-column  screen  (128  only) 

;  Display  characters  A-Z  four  times  in 
:  multicolor  mode.  Change  foreground 
:  text  color  each  time.  Exit  on  keypress. 


cooo 

BGCOL0 

= 

53281 

cooo 

SCROLX 

— 

53270 

cooo 

CHROUT 

= 

65490 

cooo 

GET1N 

= 

65508 

cooo 

COLOR 

"■ 

646 

cooo 

GRAPHM 

= 

216 

COOO 

A9 

93 

CHRCLR 

LDA 

#147 

:  clear  the  screen 

C002 

20 

D2 

FF 

)SR 

CHROUT 

:  LDA  #$FF;  disable  screen-setup  portion  of 
i  IRQ  routine  (add  for  128  only) 
;  STA  GRAPHM;  (128  only) 

C005 

20 

3B 

CO 

JSR 

MTCMOD 

;  turn  on  multicolor  mode 

C008 

20 

41 

CO 

J5R 

MTCCOL 

;  assign  multicolor  mode  colors 

C0OB 

A2 

03 

LDX 

#3 

;  print  A-Z  four  times 

C00D 

BD 

4D 

CO 

AZLOOP 

LDA 

COLORS.X 

;  get  each  text  foreground  color 

C010 

8D 

86 

02 

STA 

COLOR 

;  store  in  the  register 

C013 

A9 

41 

LDA 

#65 

;  begin  with  A 

C015 

20 

D2 

FF 

PRTLOP 

JSR 

chrout 

;  display  characters  A-Z 

CO  18 

18 

CLC 

;  for  next  character  code 

C019 

69 

01 

ADC 

m 

C01B 

C9 

5B 

CMP 

#91 

;  is  it  Z  plus  1? 

C01D 

DO 

F6 

BNE 

PRTLOP 

;  and  continue 

C01F 

A9 

0D 

LDA 

*13 

;  carriage  return 

C021 

20 

D2 

TF 

JSR 

CHROUT 

;  print  it  twice 

C024 

20 

D2 

FF 

JSR 

CHROUT 

C027 

CA 

DEX 

;  for  next  A-Z  printing 

C028 

10 

E3 

BPL 

AZLOOP 

C02A 

20 

E4 

FF 

CETKEY 

JSR 

GETIN 

;  wait  for  a  keypress 

C02D 

F0 

FB 

BEQ 

GETKEY 

;  if  no  keypress,  then  wait 

C02F 

AD 

16 

DO 

LDA 

SCROLX 

:  turn  off  multicolor  mode 

C032 

29 

EF 

AND 

#%111011U 

C034 

8D 

16 

DO 

STA 

SCROLX 

;  reset  register 

C037 

60 

RTS 

:  Tum  on  (or  off)  multicolor  mode. 
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MTCMOD 


C038 
C03B 


C03D 
C040 


AD  16 
09     10 


8D 
60 


DO    MTCMOD 


16     DO 


LDA 
ORA 


STA 
RTS 


SCROtX  ;  gel  current  register  value 

#%O0O10O00       ;  turn  on  bit  4  (turn  off  with  AND 

I  %i i  10111 n 
SCROLX  ;  and  net  the  register 


C041 
C043 
C046 
C049 
C04A 
C04C 

C04D 
C051 


A2 

BD 

9D 

CA 

10 

60 

08 
OF 


02 
51 

21 

F7 


09 

05 


0A 

03 


MTCCOL 

COLOOP 


COLORS 
MTCOLS 


LDX 
LDA 
STA 
DEX 
BPL 
RTS 

BYTE 
.BYTE 


#2 

MTCOLS.X 

BGCOL0.X 

COLOOP 


8.9,10,14 
15,5,3 


;  Assign  colors  to  multicolor  color  registers 

;  53281-53283. 

;  as  an  index 

:  get  each  color  value 

;  assign  it  to  a  register 

;  for  next  register 

;  do  all  three 


;  colors — orange,  brown,  light  red,  light  blue 
;  colors — light  gray,  green,  cyan 


See  also  XBCCOL,  XBCMOD,  MTCCOL. 
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Name 

Multiply  two  numbers  with  successive  adds 

Description 

One  way  to  multiply  two  numbers  is  to  add  one  number  to  it- 
self over  and  over.  This  technique  works  best  on  single  bytes. 
As  the  numbers  get  larger,  the  time  used  by  the  routine  in- 
creases to  the  point  where  it  becomes  very  slow. 

Prototype 

1.  Before  calling  the  routine,  store  in  memory  the  numbers  to 
be  multiplied. 

2.  Zero  out  the  two-byte  total. 

3.  Load  the  two  numbers  into  .A  and  .X. 

4.  If  either  number  is  zero,  exit  the  routine. 

5.  Decrement  .X  and  exit  when  it  hits  zero. 

6.  Add  the  accumulator  to  the  first  number. 

7.  If  the  carry  flag  is  set,  indicating  that  the  low  byte  over- 
flowed, increment  the  high  byte. 

8.  Loop  back  to  step  5. 

Explanation 

The  framing  routine  just  gets  two  keypresses  and  stores  the 
ASCII  values  of  the  characters  in  Bl  and  B2.  Press  Q  to  quit, 

Within  MULAD1,  the  two  bytes  of  TOTAL  are  zeroed  out; 
then  the  numbers  in  Bl  and  B2  are  multiplied.  If  either  num- 
ber equals  zero,  the  routine  ends  (with  zeros  still  in  TOTAL), 
because  zero  times  any  number  is  zero.  As  .X  counts  down  to 
zero,  the  accumulator  is  repeatedly  added  to  the  number  in  B2. 

Note:  This  approach  to  multiplying  works  reasonably  well 
when  the  two  numbers  are  byte-sized  (0-255).  If  you  need  to 
multiply  larger  numbers,  repeated  addition  becomes  very  slow. 
For  example,  multiplying  20,000  by  20,000  would  require 
20,000  iterations.  Even  at  machine  language  speeds,  this 
would  take  some  rime.  For  multiplying  larger  numbers,  see 
MULSHF. 


Routine 

cooo 

LINPRT 

- 

$BDCD 

;  LINPRT  =  $8E32  on  ihe  128— ROM 
;  routine  lo  prinl  a  number 

cooo 

GETIN 

= 

$FFE4 

cooo 

CHROUT 

— 

$FFD2 

; 

;  gel  a  key 

COOO    20 

E4 

EF 

MAIN 

ISR 

GETIN 

C003     F0 

FB 

BEQ 

MAIN 

;  wait  until  there's  one  there 

C005    C9 

51 

CMP 

*81 

i  check  for  Q  (quit) 

C007    F0 

3D 

BEQ 

QUIT 

C009     8D 

6D 

CO 

STA 

Bl 

;  store  it  in  byte  1 
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cooc 

20 

E4 

FF    M2 

JSR 

GETIN 

get  another  key 

COOF 

FO 

FB 

BEQ 

M2 

C011 

C9 

51 

CMP 

#81 

check  Q  again 

C013 

FO 

31 

BEQ 

QUIT 

C015 

8D 

6E 

CO 

SIA 

B2 

store  in  byte  2 

C018 

AE 

6D 

CO 

LDX 

Bl 

COIB 

A9 

00 

IDA 

#0 

CO  ID 

20 

CD 

BD 

JSR 

UNPRT 

print  number  1 

CO20 

A9 

2A 

LDA 

#42 

the  •  character 

C022 

20 

D2 

FF 

JSR 

CHROUT 

print  it 

C025 

AE 

6E 

CO 

LDX 

B2 

second  number 

C028 

A9 

00 

LDA 

#0 

C02A 

20 

CD 

BD 

JSR 

UNPRT 

print  it,  also 

C02D 

A9 

3D 

LDA 

#61 

equal  sign 

C02F 

20 

D2 

FF 

JSR 

CHROUT 

print  it 

C032 

20 

47 

CO 

JSR 

MULAD1 

multiply  the  numbers 

C035 

AE 

6F 

CO 

LDX 

TOTAL 

low  byte 

C038 

AD 

70 

CO 

LDA 

TOTAL+1 

high  byte 

C03B 

20 

CD 

BD 

JSR 

UNPRT 

print  it 

C03E 

A9 

OD 

LDA 

#13 

<RETURN> 

C04O 

20 

D2 

FF 

JSR 

CHROUT 

print  and 

C043 

4C 

00 

CO 

TMP 

MAIN 

go  back 

C046 

60 

QUIT 

RTS 

C047 

A9 

00 

MULAD1 

LDA 

#0                       , 

clear  out 

C049 

8D 

6F 

CO 

STA 

TOTAL 

low  byte  of  total 

CMC 

8D 

70 

CO 

STA 

TOTAL+1 

and  high  byte 

C04F 

AE 

6D 

CO 

LDX 

Bl 

the  counter  for  repeated  adds 

COS2 

FO 

18 

BEQ 

MULEND 

If  zero,  no  addition 

C054 

IB 

CLC 

C055 

AD 

6E 

CO 

LDA 

B2 

second  number  (which  will  be  added) 

C058 

FO 

12 

BEQ 

MULEND 

if  zero,  no  operation  is  necessary 

C05A 

CA 

MULLOP 

DFJC 

decrement  .X  first,  in  case  ifs  a  1 

C05B 

FO 

OC 

BEQ 

MULSTR 

if  zero,  store  the  result  in  total  (low  byte) 

C05D 

IB 

CLC 

get  ready 

C05E 

6D 

BE 

CO 

ADC 

B2 

and  add  .A  to  B2 

C061 

90 

F7 

BCC 

MULLOP 

if  carry  is  clear,  no  overflow  to  the  high 

byte 

else  add  one  to  high  byte 

C063 

EE 

70 

CO 

INC 

TOTAL+1         , 

C066 

4C 

5A 

CO 

JMP 

MULLOP          j 

and  go  back 

C069     8D    6F     CO    MULSTR       STA       TOTAL 
CMC    60  MULEND     RTS 


C06D  00 
C06E  00 
C06F     00     00 


Bl 
B2 

TOTAL 


.BYTE  0 
.BYTE  0 
.BYTE    0,0 


store  the  low  byle  (high  byte  is  OK) 
and  leave  the  routine 


See  also  MULAD2,  MULFP,  MULSHF. 


MULAD2 


Name 

Multiply  two  numbers  with  repeated  addition  (optimized 
version) 

Description 

This  routine  is  basically  the  same  as  MULAD1,  but  the  small- 
er number  is  placed  in  the  X  register  to  speed  up  the  DEX 
loop.  The  larger  number  is  repeatedly  added  to  itself,  and  the 
result  is  stored  in  memory. 

Prototype 

1.  Start  by  storing  the  two  numbers  in  memory. 

2.  Store  zeros  in  the  two  bytes  of  TOTAL. 

3.  Initialize  .Y  to  zero  on  the  assumption  that  the  first  num- 
ber is  larger. 

4.  Load  .X  with  B2  and  compare  it  with  Bl. 

5.  If  B2  is  smaller,  branch  forward  to  step  7. 

6.  Otherwise,  load  .X  with  Bl  and  change  .Y  to  1. 

7.  Load  .A  from  Bl,  indexed  by  .Y. 

8.  Decrement  .X  and  branch  out  of  the  routine  when  it's 
zero. 

9.  Add  the  accumulator  to  B1,Y. 

10.  Increment  the  high  byte  of  TOTAL  whenever  the  carry  flag 
is  set. 

Explanation 

The  routine  MULAD1  is  simpler  than  this  one,  but  MULAD2 
is  faster  in  certain  situations.  Take  the  example  of  252  X  3. 
The  simpler  version  of  MULAD  might  calculate  it  by  adding 
252  to  itself  3  times.  Or  it  might  add  3  to  itself  252  times.  Ob- 
viously, 3  additions  execute  faster  than  252. 

MULAD2  checks  the  size  of  the  two  numbers  and  puts  the 
smaller  into  .X  for  the  main  loop.  The  Y  register  is  used  as  an 
offset  into  the  table  of  numbers;  its  value  is  either  zero  or  one. 

Note:  As  with  MULAD1,  the  larger  the  values,  the  longer 
the  time  needed  to  repeatedly  add  the  two  numbers.  For  val- 
ues larger  than  255,  MULSHF  is  preferable. 

Routine 


cooo 


cooo 
cooo 


L1NPRT 

GETIN 
CHROUT 


COOO    20    E4    FF    MAiN 
C003     F0     FB 
C005     CS    51 


SBDCD 

=  SFEE4 

SFFD2 

ISR  GETIN 
BEQ  MAIN 
CMP      ff81 


;  UNPRT  -  S8E32  on  the  128— ROM 
;  routine  to  print  a  number 


get  a  key 

wait  until  there's  one  there 

check  for  Q  (quit) 
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C007 

FO 

3D 

C009 

BD 

77 

CO 

COOC 

20 

E4 

FF    M2 

COOF 

FO 

FB 

COll 

C9 

51 

COI3 

FO 

31 

C015 

SD 

78 

CO 

C018 

AE 

77 

CO 

COIB 

A9 

00 

CO  ID 

20 

CD 

BD 

C020 

A9 

2A 

C022 

20 

D2 

FF 

C025 

AE 

78 

CO 

C028 

A9 

00 

C02A 

20 

CD 

BD 

C02D 

A9 

3D 

C02F 

20 

D2 

FF 

C032 

20 

47 

CO 

C03S 

AE 

79 

CO 

C038 

AD 

7A 

CO 

C03B 

20 

CD 

BD 

C03E 

A9 

OD 

C040 

20 

D2 

FF 

C043 

4C 

00 

CO 

C046 

60 

QUIT 

C047 

A9 

00 

MULAD2 

C049 

8D 

79 

CO 

C04C 

8D 

7  A 

CO 

BEQ 

STA 

JSR 

BEQ 

CMP 

BEQ 

STA 

LDX 

LDA 

JSR 

LDA 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 

JSR 

LDX 

LDA 

JSR 

LDA 

JSR 

JMP 

RTS 


C04F  A8 

COSO  AE  78     CO 

C0S3  FO  21 

C0S5  EC  77     CO 

C058  90  07 

C05A  AE  77     CO 

COSD  FO  17 

C05F  AO  01 


TAV 
LDX 
BEQ 
CPX 


BEQ 
LDY 


COW  CA  LOOP 

C065  FO  OC 

C067  IB 

C068  79  77     CO 

C06B  90  F7 

COSD  EE  7A    CO 

C070  4C  64     CO 

C073  8D  79     CO    MULSTR 


C076  60 

C077  00 

C078  00 

C079  00     00 


MULEND      RTS 


QUIT 
Bl 

GET1N 

M2 

*81 

QUIT 

B2 

El 

#0 

LINPRT 

«42 

CHROUT 

B2 

#0 

LINPRT 

#61 

CHROUT 

MULAD2 

TOTAL 

TOTAL+ 1 

LINPRT 

•  13 

CHROUT 

MAIN 


LDA      #0 
STA      TOTAL 
STA       TOTAL+1 


B2 

MULEND 

Bl 

BCC      GOAHEAD 
LDX      Bl 

MULEND 

#1 


C061     B9    77     CO    GOAHEAD  LDA      B1,Y 


DEX 

BEQ  MULSTR 

CLC 

ADC  B1,Y 

BCC  LOOP 

INC  TOTAL+1 

JMP  LOOP 

STA  TOTAL 


Bl 
B2 
TOTAL 


BYTE  0 
.BYTE  0 
BYTE    0,0 


;  store  it  in  byte  1 
;  get  another  key 

;  check  Q  again 

;  store  in  byte  2 


print  number  1 
the  ■  character 
print  it 
second  number 

print  it  also 

equal  sign 

print  it 

multiply  the  numbers 

low  byte 

high  byte 

print  it 

<RETURN> 

print  and 

go  back 


clear  out 

low  byte  of  TOTAL 

and  high  byte 

zero  into  -Y  also 

check  B2 

if  zero,  quit  - 

is  it  smaller  than  Bl? 

yes,  continue 

else,  Bl  is  the  counter 

if  zero,  no  need  to  multiply 

and  .Y  is  one  instead  of  zero 

get  the  bigger  number  for  adding 

check  for  possibility  .X  is  one 

If  zero,  store  the  low  byte 

else 

add  .A  to  B] 

if  carry  clear,  OK 

or  add  to  the  high  byte 

store  the  low  byte 
and  return 


See  also  MULAD1,  MULFP,  MULSHF. 
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Name 

Multiply  two  floating-point  numbers 

Description 

The  example  program  multiplies  two  numbers  in  floating-point 
format.  It  relies  heavily  on  ROM  routines. 

Prototype 

1.  Put  one  number  in  floating-point  accumulator  1  (FAC1). 

2.  Put  the  other  in  FAC2. 

3.  Call  the  FMULT  routine.  The  result  is  in  FAC1. 

Explanation 

The  framing  program  sets  up  the  numbers  10,000  and  11,111 
in  the  two  floating-point  accumulators  and  multiplies  them. 
The  answer  is  printed  to  the  screen. 

The  various  ROM  routines  include  GIVAYF  (translate  an 
integer  from  .A  and  .Y  to  a  floating-point  number  in  FAC1), 
MOVEF  (move  the  contents  of  FAC1  to  FAC2),  FMULT  (mul- 
tiply FAC1  by  FAC2),  and  FOUT  (convert  FAC1  to  ASCII 
numbers). 

Most  of  the  time,  you  can  write  programs  using  integer 
values  only.  But  if  you  find  the  need  for  floating-point  num- 
bers, it's  generally  easier  to  use  the  built-in  ROM  routines  in- 
stead of  writing  your  own.  For  a  complete  list  of  ROM 
routines  and  documentation  on  how  they  work,  see  Mapping 
the  Commodore  64  and  Mapping  the  Commodore  128  (both  from 
COMPUTE!  Publications). 

Routine 


cooo 

ZP 

«■ 

$FB 

cooo 

CHROUT 

«• 

SFFD2 

cooo 

FMULT 

— 

$BA30 

FMULT  =  S8A0B  on  the  128— multiply 
FAC2  and  FAC1;  result  In  FAC1 

cooo 

MOVEF 

= 

$BC0F                 J 

MOVEF  =  $8C3B  on  the  128— move  FAC1 
WFAC2 

cooo 

GIVAYF 

■ 

SB391 

GIVAYF  =  SAF03  on  the  128— convert 
integer  to  floating  point 

cooo 

FOUT 

$BDDD 

FOUT  =  S8E42  on  the  128— convert  FAC1 
to  ASCn  string 

Convert  the  numbers  10000  and  11111  to 
floating  point  and  multiply. 

cooo 

A9 

27 

LDA 

«>  10000 

high  byte  of  10000 

C002 

A0 

10 

LDY 

#<10000 

low  byte 

C004 

20 

91 

B3 

JSR 

GIVAYF 

convert  it;  now  it's  in  FAC1 

C007 

20 

OF 

BC 

JSR 

MOVEF 

move  FAC1  to  FAC2 

C00A 

A9 

2B 

LDA 

#>1UU 

high  byte  of  11111 

cooc 

A0 

67 

LDY 

#<1111J 

low  byte 
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LUUt 

ttl 

yi 

1)3 

JSR 

GIVAYF 

;  convert  it 

;  FAC2  now  holds  10000,  and  FAC1  holds 

;1U11. 

con 

20 

29 

CO 

ISR 

MULFP 

;  multiply  them,  with  the  result  in  FAC1 

C014 

20 

DD 

BD 

JSR 

FOUT 

i  convert  to  ASCII 

C017 

85 

FB 

STA 

ZP 

;  pointer 

C019 

84 

FC 

STY 

ZP+1 

:  to  the  string 

C01B 

AO 

00 

LDY 

#0 

C01D 

Bl 

FB 

PRTLOP 

LDA 

(ZP),Y 

COIF 

DO 

01 

BNE 

PRNIT 

C021 

60 

RTS 

C022 

20 

D2 

FF 

PRNIT 

JSR 

CHROUT 

C025 

C8 

INY 

C026 

DO 

F5 

BNE 

PRTLOP 

C028 

60 

RTS 

C029 

20 

30 

BA   MUIFP 

JSR 

FMULT 

;  multiply  FAC2  by  FAC1 

C02C 

60 

RTS 

;  the  remit  i>  in  FACl 

See  also  MULAD1,  MULAD2,  MULSHF. 
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Name 

Multiply  two  unsigned  integer  values  using  bit  shifts 

Description 

MULSHF  is  a  little  more  complex — and  more  difficult  to 
understand — than  the  routines  that  multiply  with  successive 
additions  (MULAD1  and  MULAD2),  but  it's  much  faster  if 
you  have  large  numbers  to  multiply. 

Prototype 

1.  Start  with  the  two  numbers  to  be  multiplied  in  Bl  and  B2 
(16  bits  each). 

2.  Store  zeros  in  the  32  bits  of  TOTAL. 

3.  Copy  B2  to  WORK,  a  temporary  storage  area. 

4.  Store  the  number  of  bits  to  shift  in  COUNTR. 

5.  Shift  WORK  to  the  left. 

6.  If  the  carry  flag  is  clear,  skip  step  7. 

7.  If  it's  set,  add  Bl  to  TOTAL. 

8.  Decrement  the  counter.  If  not  zero,  multiply  TOTAL  by  two 
with  right  shifts. 

9.  If  it  is  zero,  exit.  Otherwise,  branch  back  to  step  5. 

Explanation 

An  expanded  diagram  of  multiplying  two  four-bit  numbers 
may  be  helpful: 

1  111.0 

B2  1PJ1 

S4  1110 

S3  1110 

S2  0000 

SI  1110 
TOTAL     10011010 

Start  with  the  TOTAL  equal  to  zero.  Shift  B2  to  the  left, 
and  a  one  appears  in  the  carry  flag.  That  means  it's  time  to 
add  Bl  to  the  total,  which  becomes  SI  (00001110).  There's 
more,  so  shift  the  total  to  the  left  (00011100).  Shift  B2  left 
again.  This  time  there's  a  zero,  so  skip  the  addition,  but  shift 
TOTAL  left  again  to  become  subtotal  2— S2  (00111000).  Shift 
B2  left  again,  and  carry  is  set;  so  add  1110  (01000110)  and 
shift  it  left  (10001100).  Finally,  shift  B2  the  final  time,  and 
carry  is  set,  so  add  one  more  time  (10011010),  but  don't  shift 
the  total  to  the  left  because  it's  the  last  addition. 

By  the  same  logic,  multiplying  16-bit  numbers  requires  16 
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shifts.  Bl  and  B2  each  have  16  bits,  so  the  total  needs  32  bits. 
Note  in  the  example  above  that  multiplying  two  4-bit  numbers 
yields  an  8-bit  result.  In  general,  when  you  multiply  two  num- 
bers of  a  given  size,  the  largest  possible  result  will  need  dou- 
ble the  number  of  bits.  (Multiplying  two  8-bit  numbers  results 
in  a  number  that  may  be  as  large  as  16  bits.) 
Routine 


cooo 

AO 

03 

MULSHF 

LDY 

#3 

;  four  byles 

C002 

A9 

00 

LDA 

#0 

;  zero  out  TOTAL 

C004 

99 

5C 

CO 

ZOUT 

STA 

TOTAL,Y 

;  store  11 

C007 

88 

DEY 

;  count  down 

COOS 

10 

FA 

BPL 

ZOUT 

;  and  loop  back 

COOA 

AD 

38 

CO 

LDA 

B2 

;  copy  B2  to  WORK 

COOD 

8D 

SA 

CO 

STA 

WORK 

C010 

AD 

39 

CO 

LDA 

B2+1 

C013 

8D 

5B 

CO 

STA 

WORK+1 

C016 

\9 

10 

LDA 

#16 

;  there  are  16  shifts,  so 

C018 

BD 

55 

CO 

STA 

COUNTR 

;  set  up  a  counter 

C01B 

OE 

5A 

CO 

MU1LP 

ASL 

WORK 

;  shift  the  low  byte 

C01E 

2E 

5B 

CO 

ROL 

WORK+1 

;  into  the  high  b vie 

C021 

90 

ID 

BCC 

BIGSHF 

;  if  (he  bit  is  off,  skip  the  add 

C023 

18 

CLC 

;  clear  carry  before  add 

C024 

AD 

S6 

CO 

LDA 

Bl 

;  low  byte 

C027 

6D 

SC 

CO 

ADC 

TOTAL 

;  add  to  TOTAL  (low) 

C02A 

8D 

5C 

CO 

STA 

TOTAL 

;  store  It 

C02D 

AD 

57 

CO 

LDA 

Bl+1 

;  second  byte  of  four 

C030 

6D 

5D 

CO 

ADC 

TOTAL+1 

;  add  it 

C033 

8D 

SO 

CO 

STA 

TOTAL+1 

;  store  It 

C036 

90 

08 

BCC 

BIGSHF 

;  if  carry  clear,  branch  forward 

C038 

EE 

5E 

CO 

INC 

TOTAL+2 

;  else  add  1  to  third  byte 

C03B 

DO 

03 

BNE 

BIGSHF 

;  if  not  zero,  skip  the  fourth 

C03D 

EE 

5F 

CO 

LNC 

TOTAL+3 

;  else,  get  the  fourth 

COM 

CE 

55 

CO 

BICSHF 

DEC 

COUNTR 

;  count  down 

C043 

DO 

01 

BNE 

SFLTFIT 

;  shift  it  if  there's  more 

CMS 

60 

RTS 

;  else,  quit 

C046 

OE 

5C 

CO 

SHiFrr 

ASL 

TOTAL 

;  multiply  by  2 

C049 

2E 

5D 

CO 

ROL 

TOTAL+1 

;  all.. 

C04C 

2E 

5E 

CO 

ROL 

TOTAL+2 

;  four... 

C04F 

2E 

a 

CO 

ROL 

TOTAL+3 

;  bytes 

C052 

4C 

IB 

CO 

JMP 

MULLP 

;  repeat  it  again 

C055 

00 

COUNTR 

.BYTE 

0 

C056 

7D 

00 

Bl 

BYTE 

125,0 

;  value  of  1 25 

C058 

58 

02 

B2 

-BYTE 

88,2 

:  value  of  600 

C05A 

00 

00 

WORK 

.BYTE 

0,0 

C05C 

00 

00 

00 

TOTAL 

-BYTE 

0.0.0,0 

See  also  MULAD1,  MULAD2,  MULFP. 
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Name 

Move  a  block  of  data  upward  in  memory 

Description 

MVU64  moves  a  block  of  data  in  memory  from  a  lower  to  a 
higher  address  on  the  64,  even  if  the  two  blocks  overlap.  This 
routine  can  be  used  to  relocate  other  machine  language 
routines,  as  in  the  program  below,  or  to  move  text  and 
numerical-data  tables.  Assuming  your  source  and  destination 
blocks  don't  overlap,  you  could  also  move  memory  down  with 
this  routine. 

Prototype 

1.  Store  the  ending  address  for  the  source  block  (BLOCK1)  in 
ZP  and  the  ending  address  for  the  target  block  (MEMSIZ  — 1) 
inZP  +  2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER,  as  cal- 
culated by  the  assembler)  in  .X  (low  byte)  and  .Y  (high 
byte). 

3.  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counter  (COUNTR). 

4.  Using  indirect  addressing  in  UPLOOP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block(atZP+2).  ' 

5.  Decrease  both  zero-page  pointers  by  one  with  the  sub- 
routine SUBONE. 

6.  Decrement  the  bytes  counter  (COUNTR)  continuing 
UPLOOP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

In  the  program  below,  MVU64  moves  a  relocatable  ML  pro- 
gram (the  16-byte  CYCLE)  to  the  top  of  BASIC.  To  guarantee 
that  CYCLE  moves  up  in  memoiy,  assemble  this  program  in 
the  cassette  buffer  at  828. 

In  moving  memory,  MVU64  works  backwards  in  memory 
from  the  end  of  the  source  block,  transferring  a  byte  at  a  time. 
Each  byte,  loaded  from  the  source  block,  is  in  turn  stored  in 
the  next-lowest  position  in  the  target  block,  until  the  entire 
block  has  been  transferred. 

In  this  program,  we're  locating  CYCLE  at  the  top  of 
BASIC  memory,  so  we  use  the  top-of-BASIC  pointer,  or 
MEMSIZ,  to  determine  the  end  of  the  target  block.  Since 
MEMSIZ  actually  points  to  the  byte  beyond  the  highest  free 
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byte  in  the  BASIC  text  area  (normally,  40960),  we  subtract  one 
before  storing  it  to  ZP+2. 

Once  CYCLE  is  positioned  at  the  top  of  BASIC,  MEMSIZ 
is  adjusted  to  protect  the  relocated  program  from  BASIC.  At 
the  same  time,  its  SYS  address  is  printed.  To  satisfy  yourself 
that  CYCLE  has  properly  relocated,  look  at  the  16  bytes  of 
memory  beginning  with  the  SYS  address,  or  simply  SYS  to  it. 

If  you  want  to  use  MVU64  to  move  memory  down, 
switch  the  source  and  target  block  addresses  stored  in  zero 
page.  In  other  words,  store  the  ending  address  for  the  source 
block  in  ZP+2,  and  the  ending  address  for  the  target  block  in 
ZP.  For  this  approach  to  be  successful,  the  two  memory  blocks 
must  not  overlap. 

NOTE:  Unlike  some  memory-move  routines  (see  SWAPIT), 
MVU64  lacks  error  checking.  So  it's  up  to  you  to  make  sure 
the  relative  positions  of  the  two  memory  blocks  fulfill  the 
requirements  of  the  routine. 

There  is  a  BASIC  ROM  routine  at  $A3BF  (about  50  bytes 
in  length)  on  the  64  which  will  move  memory  up.  Much  like 
MVU64,  if  the  source  and  destination  blocks  don't  overlap,  it 
also  can  move  memory  down.  To  implement  it,  load  $5F-$60 
with  the  starting  address  of  the  source  block,  load  $5A-$5B 
with  the  source  block's  ending  address  plus  1,  and  load 
$58-$59  with  the  destination  block's  ending  address  plus  1. 
Then  JSR  to  $A3BF. 

Routine 


;  BASIC  two-byte  number  output 
;  border -color  register 
;  top-of-BASIC  pointer 

;  Move  a  relocatable  ML  program  to  the  lop 

;  of  BASIC  memory, 

;  initialize  zero-page  pointers  and  get  number 

;  of  bytes  to  move 

;  move  the  program  up 

i  as  an  index  in  PRTLOP 

;  get  a  character  from  SYSMSG 

!  if  a  zero  byte,  then  exit  PRTLOP 

;  print  the  character 

;  for  next  character 

:  branch  always 

;  for  addition 

;  get  the  low  byte  of  relocated  ML  program 

I  add  one  since  decremented  in  SUBONE  one 

;  rime  too  many 

;  at  the  same  time,  protect  the  ML  program 

;  from  BASIC 


033C 

ZP 

= 

251 

033C 

GETIN 

= 

65508 

033C 

CHROUT 

= 

65490 

033C 

UNPRT 

m 

48589 

033C 

EXTCOL 

= 

53280 

033C 

MEMSIZ 

~ 

55 

033C 

20 

60 

03 

JSR 

MUINIT 

033F 

20 

7A 

03 

J9R 

MVU64 

0342 

A0 

00 

LDY 

#0 

0344 

B9 

A8 

03 

SYSLOP 

LDA 

SYSMSCY 

0347 

F0 

06 

BEQ 

EXTTPR 

0349 

20 

D2 

FF 

JSR 

CHROUT 

034C 

C8 

1NY 

034D 

DO 

F5 

BNE 

SYSLOP 

034F 

18 

EXTTPR 

CLC 

0350 

A5 

FD 

LDA 

ZP+2 

0352 

69 

01 

ADC 

#1 

0354 

85 

37 

STA 

MEMSIZ 

366 


MVU64  (64  only) 


0356  AA  TAX 

0357  A5  FE  LDA 
0359  69  00  ADC 
035B  85  38  STA 
035D  4C    CD   BD  NUMOUT    JMP 


0360  A9  D6 

0362  85  FB 

0364  A2  03 

0366  86  FC 


0368 

38 

0369 

A5 

37 

036B 

E9 

01 

036D 

85 

FD 

036F 

A5 

38 

0371 

E9 

00 

0373 

85 

m 

0375 

A2 

10 

0377 

AO 

00 

0379 

60 

MUTNIT 


LDA 
STA 
LDX 
STX 


ZP+3 
#0 

MEMS1Z+ 1 
UNPRT 


*<BLOCKI 
ZP 

*>BLOCKl 
ZP+1 


SEC 

LDA 

MEMS1Z 

SBC 

#1 

STA 

ZP+2 

LDA 

MEMS1Z+ 1 

SBC 

40 

STA 

ZP+3 

LDX 

■kNUMBER 

LDY 

*>NUMBER 

RTS 

;  for  low  byte  of  UNPRT 

:  get  the  high  byte  of  relocated  program 

;  add  the  carry  flag  value 

;  print  the  SYS  address  and  RTS 

:  Initialize  ZP  pointers  lo  end  of  BLOCK  1  and 

!  top  of  BASIC.  Two  bytes  at 

;  ZP  point  to  source,  and  two  at  ZP+2  point 

;  to  target.  Also,  put  number  of 

;  bytes  to  move  in  .X  and  ,Y. 

;  low  byte  of  BLOCK1  first 

;  then  high  byte 

:  Now  store  ending  address  of  target  block  in 

;  ZP+2.  ZP+3. 

!  Subtract  one  from  top-of-BASIC  pointer  so 

J  it  points  to  available  storage. 

;  for  subtraction 

:  subtract  one  from  low  byte 

;  and  store  result  in  zero  page 

j  get  the  high  byte  for  top-of-BASIC  pointer 

;  to  subtract  carry 

;  and  store  the  result 

;  put  low  byte  of  number  of  bytes  to  move  up 

;in  .X 

;  and  high  byte  in  Y 


037A 
037D 
0380 
0382 
0384 

8E 
8C 
A0 
Bl 
91 

A6 
A7 

IK) 
FB 
FD 

03 
03 

MVTJ64 
UPLOOP 

STX 
STY 
LDY 
LDA 
STA 

COUNTR 

COUNTR+1 

#0 

(ZP),Y 

(ZP+2),Y 

0386 
0389 
038C 

20 

CE 
DO 

99 
A  6 
F4 

03 

03 

JSR 
DEC 

BNE 

SUBONE 
COUNTR 
UPLOOP 

038E 
0391 

CE 

AD 

A  7 
A7 

03 
03 

DEC 

LDA 

COUNTR+1 
COUNTR+1 

0394 
0396 
0398 

C9 
DO 

60 

FF 
EA 

CMP 

BNE 
RTS 

#255 
UPLOOP 

0399 
039B 

OS 

DO 

FB 

02 

SUBONE 

DEC 
BNE 

ZP 
DECTAR 

039D  C6  FC  DEC  ZP+1 

039F  C6  FD  DECTAR      DEC  ZP+2 

03A1  DO  02  BNE  SBEXTT 

03A3  C6  FE  DEC  ZP+3 

03A5  60  SBEXTT         RTS 


;  Move  bytes  up.  Enter  with  the  number  of 

;  bytes  to  move  in  .X  (low)  and 

;  ,Y  (high).  End  of  source  block  is  in  two 

;  bytes  at  ZP,  and  target  in  ZP+2. 

;  First  store  number  to  COUNTR. 

;  store  number  to  COUNTR,  low  byte  first 

;  high  byte's  in  .Y 

;  as  an  index  in  UPLOOP 

;  get  a  byte  from  end  of  source  block 

;  store  it  at  the  end  of  target  block  (top  of 

;  BASIC) 

;  decrease  ZP  pointers  by  one 

;  decrement  counter  low  byte 

,-  if  low  byte  hasn't  turned  over,  continue 

;  moving  memory  up 

;  otherwise,  decrement  the  high  byte 

;  check  the  high  byte  to  see  if  we've 

:  reached  the  last  page 

;  on  ihe  last  page,  high  byte  goes  0-255 

;  if  not  last  page,  continue 


;  Decrement  zero-page  pointers  by  one. 

;  decrement  low  byte  of  source 

;  if  it  hasn't  turned  over,  handle  target 

;  pointers 

;  decrement  high  byte 

;  do  the  same  for  target  pointers 

;  if  hasn't  turned  over,  exit  SUBONE 

;  decrement  high  byte,  if  necessary 
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03A6  00 
03A8  54 
03C6     00 


03C7  20 

03CA  F0 

03CC  C9 

03CE  FO 

03D0  EE 

II3D.3  38 

03D4  BO 

03D6  60 

03D7 


00  COUNTR       WORD 

4F     20     SYSMSG       .ASC 
.BYTE 


0  .-  two-byte  counter  for  remaining  #  of  bytes 

;  to  move  down 
"TO  RUN  RELOCATED  PROGRAM,  SYS  " 

;  SYS  message 
0  ;  terminator  byte 


E4     FF    CYCLE  JSR 

FB  BEQ 

0D  CMP 

06  BEQ 

20     DO  INC 
SEC 

Fl  BCS 

BLOCK1  RTS 

NUMBER  - 


GETIN 
CYCLE 

#13 

BLOCK1 

EXTCOL 

CYCLE 


;  Relocatable  program  to  cycle  border  color 

;  on  a  keypress.  Quit  on  RETURN. 

;  check  for  a  keypress 

;  no  keypress 

;  quit  on  RETURN 

;  otherwise,  cycle  border  color 
;  to  always  cause  a  branch 

;  last  byte  of  cycle  routine  is  BLOCK] 


BLOCK1  -  CYCLE  +  1 

;  let  assembler  calculate  number  of  bytes  in 
;  cycle 


See  also  MOVEDN,  MVU128,  SWAPIT. 
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Name 

Move  a  block  of  data  upward  in  memory 

Description 

MVU128  is  practically  identical  to  the  routine  MVU64  in  form 
and  in  function.  Both  routines  move  a  chunk  of  memory  from 
a  lower  address  to  a  higher  address.  And  both  can  be  used  to 
move  memory  down,  provided  the  two  memory  blocks — source 
and  destination — don't  overlap. 

Prototype 

This  is  a  two-part  routine.  In  the  initialization  routine 
MUINIT: 

1.  Store  the  ending  address  for  the  source  block  (BLOCK1)  in 
ZP  and  the  ending  address  for  the  target  block  (FRERAM) 
inZP  +  2. 

2.  Store  the  number  of  bytes  to  move  down  (NUMBER,  as  cal- 
culated by  the  assembler)  in  .X  (low  byte)  and  .Y  (high 
byte). 

In  MVU128: 

1 .  Store  the  number  of  bytes  to  move,  currently  in  .X  and  .Y, 
into  a  two-byte  counter  (COUNTR). 

2.  Using  indirect  addressing  in  UPLOOP,  transfer  bytes  from 
the  source  memory  block  (at  ZP)  to  the  target  memory 
block(atZP+2). 

3.  You  can  move  memory  up  from  one  bank  to  another  by  de- 
fining BNKSRC  (source  bank  number)  and  BNKTAR  (target 
bank  number)  at  the  end  of  the  program.  Replace  the  LDA 
(ZP),Y  at  UPLOOP  with  the  three  instructions  that  follow  it 
in  the  listing  (currently  in  the  form  of  comments)  and  the 
STA  (ZP+2),Y  just  below  this  with  the  next  four  instruc- 
tions (also  given  as  comments). 

4.  Decrease  both  zero-page  pointers  by  one  with  the  sub- 
routine SUBONE. 

5.  Decrement  the  bytes  counter  (COUNTR),  continuing 
UPLOOP  until  all  bytes  from  the  source  block  have  been 
moved.  Then  RTS. 

Explanation 

The  example  program  is  much  like  the  one  that  illustrates 
MVU64.  In  both  cases,  we're  moving  the  relocatable  ML  rou- 
tine, CYCLE,  higher  in  memory.  The  only  difference  is  that  in 
this  case  we're  moving  it  to  the  top  of  a  protected  RAM  area, 
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which  begins  at  $1300  (normally,  just  below  BASIC),  whereas 
with  MVU64,  CYCLE  was  moved  to  the  top  of  BASIC  RAM. 
Rather  than  storing  the  end  of  BASIC  pointer  (minus  1)  in 
ZP  +  2,  here  we  load  ZP+2  with  FRERAM  (7167). 

In  both  programs,  the  basic  description  of  the  two 
routines  themselves  is  the  same.  MVU64  has  a  more  thorough 
explanation. 

Since  MVU128  also  uses  zero-page  addressing,  the  routine 
can  be  adapted  to  move  memory  from  bank  to  bank.  This  re- 
quires the  Kernal  routines  INDFET  and  INDSTA.  INDFET  per- 
forms an  indirect  load  into  the  accumulator  from  the  bank  in 
.X,  while  INDSTA  stores  .A  indirecdy  into  the  bank  in  .X.  To 
implement  these  routines,  replace  the  LDA  (ZP),Y  at  $0C3D 
with  the  commented  instructions  that  follow  (UPLOOP  LDA 
#ZP:LDX  BNKSRCJSR  INDFET)  and  replace  the  STA  (ZP+2),Y 
at  $0C3F  with  LDX  #ZP+2:STX  697:LDX  BNKTAR:JSR  INDSTA. 
Also  include  the  bank  numbers  for  the  source  (BNKSRC)  and 
target  block  (BNKTAR),  defined  at  the  end  of  the  program. 

Note:  Because  this  routine  doesn't  check  to  see  whether 
the  two  memory  blocks  are  positioned  properly  in  memory,  be 
sure  the  memory  block  in  ZP  is  lower  in  memory  than  the 
block  addressed'  by  ZP +2. 


Routine 


ocoo 

ZP 

■= 

251 

ocoo 

GETIN 

•> 

65508 

ocoo 

INDFET 

= 

65396 

Kernal  routine  to  load  indirectly  from  any 

bank 

Kernal  routine  to  store  indirectly  to  any 

ocoo 

INDSTA 

- 

65399 

bank 

ocoo 

CHKOUT 

- 

65490 

ocoo 

EXTCOL 

= 

53280 

border  color  register 

ocoo 

LINPRT 

= 

36402 

ocoo 

FRERAM 

7167 

top  of  a  free  memory  area  protected  from 
BASIC 

Move  a  relocatable  ML  program  up  to  the 
top  of  free  RAM  area  at  $1300. 

ocoo 

20 

20 

0C 

)SR 

MUINTT 

initialize  zero-page  pointers  and  get  number 
of  bytes  to  move 

0C03 

20 

35 

OC 

ISR 

MVU128 

move  the  program  up 

OC06 

A0 

00 

LDY 

«0 

as  an  index  in  PRTLOP 

0C08 

B9 

63 

OC 

SYSLOP 

LDA 

SYSM5G.Y 

get  a  character  from  SYSMSG 

0C0B 

F0 

06 

BEQ 

EXITPR 

if  a  zero  byte,  then  exit  PRTLOP 

0C0D 

20 

D2 

FF 

JSR 

CHROUT 

print  the  character 

ocio 

C8 

1NY 

for  next  character 

oca 

DO 

F5 

BNE 

SYSLOP 

branch  always 

0C13 

18 

EXITPR 

CLC 

for  addition 

OCH 

A5 

FD 

LDA 

ZP+2 

get  the  low  byte  of  relocated  ML  program 

0C16 

69 

01 

ADC 

#1 

add  1  since  decremented  in  SUBONE  one 
time  too  many 

0C18 

AA 

TAX 

for  low  byte  of  LINPRT 
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0C19     A5    FE  LDA      ZP  +  3 

0C1B    69    00  ADC     #0 

0C1D    4C    32     8E     NUMOUT     JMP       LINPRT 


0C20  A9  91 

0C22  85  FB 

0C24  AI  OC 

0C26  86  FC 


ii<"  28  A9  FF 

0C2A  85  FD 

0C2C  A9  IB 

0C2E  85  FE 

0C30  A2  10 

0C32  AO  00 

IH  34  60 


MULMT 


LDA  #<BLOCKl 

STA  ZP 

LDX  #>BLOCKl 

STX  ZP+1 


LDA  #<FRERAM 

STA  ZP+2 

LDA  #>FRERAM 

STA  ZP+3 

LDX  #<NUMBER 

LDY  #>NUMBER 
RTS 


0C35     8E    61     OC    MVU128 
0C38     BC    62     OC 


STX 
STY 


COUNTR 
COUNTR+1 


0C3B     AO    00 
0C3D    Bl     FB 


LDY       #0 
UPLOOP       LDA      (ZP),Y 


0C3F     91      FD 


STA       (ZP+2),Y 


0C41  20     54  OC 

0C44  CE   61  OC 

0C47  DO    F4 

0C49  CE    62  OC 

0C4C  AD  62  OC 


JSR  SUBONE 

DEC  COUNTR 

BNE  UPLOOP 

DEC  COUNTR+1 

LDA  COUNTR+1 


gel  the  high  byte  of  relocated  program 

add  the  carry  Hag  value 

print  the  SYS  address  and  RTS 

Initialize  ZP  pointers  to  end  of  BLOCK1  and 

FRERAM.  Two  bytes  at 

ZP  point  to  source,  and  two  at  ZP+2  point 

to  target.  Also,  put  number  of 

bytes  to  move  in  .X  and  .Y. 

low  byte  of  BLOCK1  first 

then  high  byte 

Now  store  ending  address  of  target  block 

in  ZP+2,  ZP+3. 

get  low  byte  of  top  of  free  RAM 

and  store  it 

get  high  byte  of  top  of  free  RAM 

and  store  It 

put  low  byte  of  number  of  byles  to  move 

up  in  .X 

and  high  byte  in  .Y 


Move  bytes  up.  Enter  with  the  number  of 

bytes  to  move  in  X  (low)  and 

,Y  (high).  End  of  source  block  is  in  two 

bytes  at  ZP.  and  target  in  ZP+2. 

First  store  number  to  COUNTR. 

store  number  to  COUNTR,  low  byte  first 

high  byte's  in  .Y 

as  an  index  in  UPLOOP 

get  a  byte  from  end  of  source  block 

Substitute  the  next  three  lines  for  the 

previous  line 

to  move  memory  from  bank  to  bank. 

UPLOOP  LDA  #ZP;  put  zero  page  pointer 

to  end  of  source  in  .A 

LDX  BNKSRC;  bank  number  for  source 

JSR  INDFET;  load  indirectly  from  bank  .X 

at  the  end  of  source 

store  it  at  the  end  of  target  block  (top  of 
BASIC) 

Again,  substitute  the  next  four  lines  for 

the  previous  line 

to  move  from  bank  to  bank. 

LDX  #ZP+2;  put  zero-page  pointer  to 

target  address  in  697 

STX  697 

LDX  BNKTAR:  bank  number  for  target 

JSR  INDSTA;  store  indirectly  from  bank 

.X  at  end  of  target 

decrease  ZP  pointers  by  one 

decrement  counter  low  byte 

if  low  byte  hasn't  turned  over,  continue 

moving  memory  up 

otherwise,  decrement  the  high  byte 

check  the  high  byte  to  see  whether  we've 
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0C4F 

es 

FF 

CMP 

#2SS 

0CS1 
0C53 

DO 
60 

EA 

BNE 

RTS 

UPLOOP 

0C54 
0C56 

C6 

DO 

FB 

02 

SUBONE 

DEC 

BNE 

ZP 
DECTAR 

0C58 
0C5A 
0C5C 
0C5E 
0C60 

cs 

C6 

DO 
C6 

60 

FC 
FD 
02 
FE 

DECTAR 
SBEXIT 

DEC 
DEC 
BNE 
DEC 
RTS 

ZP+1 
ZP+Z 
SBEXIT 
ZP+3 

0C61 

00 

CIO 

COUNTR 

.WORDO 

0C63     54     4F     20     SYSMSG 
0C81     00 


;  reached  the  last  page 

:  on  the  last  page,  high  byte  goes  from  0  to 

;25S 

;  If  not  last  page,  continue 


;  Decrement  zero-page  pointers  by  one. 

;  decrement  low  byte  of  source 

;  if  it  hasn't  turned  over,  handle  target 

;  pointers 

;  decrement  high  byte 

:  do  the  same  for  target  pointers 

;  if  hasn't  turned  over,  exit  SUBONE 

;  decrement  high  byte,  if  necessary 


: 

;  two-byte  counter  for  remaining  number  of 

:  bytes  to  move  down 
.ASC      "TO  RUN  RELOCATED  PROGRAM.  SYS  " 

;  SYS  message 
BYTE   0  ;  terminator  byte 

;  BNKSRC  .BYTE  0;  the  bank  number  where 

:  source  is 

,  BNKTAR  BYTE  0;  the  bank  number  where 

;  target  is 

;  Relocatable  program  to  cycle  border  color 
;  on  a  keypress.  Quit  on  RETURN. 


0C82 

20 

E4 

FF 

CYCLE 

JSR 

GETIN 

:  check  for  a  keypress 

0C85 

F0 

F8 

BEQ 

CYCLE 

;  no  keypress 

0C87 

C9 

0D 

CMP 

#13 

;  quit  on  RETURN 

0C89 

F0 

06 

BEQ 

BLOCK1 

0C8B 

EE 

20 

DO 

INC 

EXTCOL 

:  otherwise,  cycle  border  color 

0C8E 

38 

SEC 

.  to  always  cause  a  branch 

0C8F 

B0 

Fl 

BCS 

CYCLE 

0C91 

60 

BLOCK1 

RTS 

;  last  byte  of  cycle  routine  is  BLOCK1 

0C92 

NUMBER 

=a 

BLOCK1  - 

-  CYCLE  +  1 

;  let  assembler  calculate  number  of  bytes  in 
;  cycle 

See  also  MOVEDN,  MVU64,  SWAPIT. 
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Name 

Set  up  an  NMI  interrupt  routine 

Description 

NMIINT  redirects  the  NMI  interrupt  vector  to  your  own  rou- 
tine. This  lets  you  wedge  a  custom  routine  into  the  normal 
NMI  interrupt  handler. 

Prototype 

Store  the  address  of  your  custom  NMI  routine  into  the  NMI 
interrupt  vector  and  return  to  the  calling  program. 

Explanation 

The  following  program  shows  how  to  insert  your  own  NMI 
interrupt  routine  (here,  WEDGE).  Once  NMIINT  has  stored 
the  address  of  your  routine  into  the  NMI  interrupt  vector  at 
792,  anytime  an  NMI  interrupt  occurs — for  instance,  when 
you  press  RESTORE — your  routine  will  execute  before  the  nor- 
mal interrupt  handler  is  serviced. 

In  this  case,  within  WEDGE,  the  cursor,  border,  and  back- 
ground colors  for  the  screen  are  reset  to  the  default  values  de- 
fined at  the  end  of  the  program  (in  DCOLOR,  DEXTCL,  and 
DBGCOL).  Currently,  the  background  and  border  colors  de- 
fault to  black  while  the  cursor  becomes  light  blue.  If  you'd 
prefer  different  colors,  substitute  the  appropriate  color  values 
found  in  the  table  under  COLFIL. 

The  64  requires  that  certain  registers — specifically,  the  A, 
X,  and  Y  registers — be  maintained  while  the  NMI  interrupt  is 
being  serviced.  At  the  outset  of  WEDGE,  then,  these  registers 
are  saved  on  the  stack.  And  at  the  end  of  the  routine,  they're 
restored. 

The  128  also  maintains  these  registers,  along  with  the  cur- 
rent bank  configuration,  while  the  NMI  interrupt  is  serviced. 
But  on  the  128,  these  registers  are  actually  saved  prior  to 
jumping  through  the  NMI  interrupt  vector.  Consequently,  you 
don't  have  to  worry  about  maintaining  them  yourself  during 
the  custom  interrupt  routine. 

Routine 

vector  lo  nonmaskable  interrupt  routine 

NMINOR  -  64064  on  the  128— normal 

NMI  handler  routine 

COLOR  =  241  on  the  128— current  text 

foreground  color 

border  color  register 

screen  background  color  register 


C0Q0 

cooo 

NMTVEC 
NMINOR 

" 

792 
65095 

cooo 

COLOR 

- 

646 

cooo 
cooo 

EXTCOL 

BGCOL0 

- 

53280 
53281 
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COOO     A9    OB 


C002 
COOS 
C007 


8D    18     03 
A9    CO 
8D    19 


03 


CCOA    60 


COOB  48 

COOC  8A 

COOD  48 

COOE  98 

COOF  48 


NMIINT       LDA  #<WEDGE 

STA  NMIVEC 

LDA  #>WEDGE 

STA  NMIVEC+1 
RTS 


WEDGE         PHA 

TXA 
PHA 
TYA 


C010 
CO  13 
C016 
C019 


AD  2A    CO 
8D    86     02 
AD  2B 
8D    20 


TXTCOL 

CO 

DO    BORCOL 


C01C  AD  2C   CO 

COIF  8D    21      DO    BCKCOL 

C022  68 

C023  A8 

C024  68 

C025  AA 

C026  68 

C027  4C    47     FE 


LDA 
STA 
LDA 
STA 
LDA 
STA 
PLA 

TAY 
PLA 
TAX 
PLA 
JMP 


DCOLOR 

COLOR 

DEXTCL 

EXTCOL 

DBGCOL 

BGCOL0 


NM1NOR 


COM  OE 
C02B  00 
C02C    00 


DCOLOR 
DEXTCL 
DBGCOL 


.BYTE    14 
BYTE    0 
.BYTE    0 


;  Set  default  screen,  border,  cursor  color  on 
;  RESTORE  key. 

;  redirect  NMI  vector  to  our  routine,  low 
;  byte  first 

;  then  high  byte 

,-  we're  done 

;  Restore  default  colors. 

;  push  ,A.  .X,  and  Y  onto  the  stack  (not 

;  necessary  on  the  128) 

;  push  .X 

;  push  .Y 

;  Now  restore  colors. 
;  cursor  first 

;  then  border  color 

:  and  lastly,  screen  color 

;  restore  the  registers  Y,   X,  and  A  (not 
;  necessary  on  the  128) 
;  .Y  first 
;  then  X 

;  and  finally  -A 

;  go  to  normal  NMI  handler 

;  default  cursor  color  of  light  blue 
;  default  border  color  of  black 
;  default  screen  color  of  black 


See  also  IRQINT,  RAS64,  RAS128. 
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Name 

Create  a  table  of  standard  frequencies  (eight  octaves  of  12 
notes  each) 

Description 

NOTETB  generates  a  full  table  of  two-byte  frequencies 
representing  the  range  of  notes  played  by  the  SID  chip.  Once 
this  table  has  been  created,  you  can  play  musical  tunes  using 
notes  from  the  table. 

Prototype 

1.  Set  up  a  frequency  table  (OCT7TB)  containing  the  12  stan- 
dard notes  in  the  highest  octave  (octave  7)  and  set  aside 
168  bytes  below  this  for  octaves  0-6  (FREQTB). 

2.  Position  ZP  at  the  beginning  of  OCT7TB,  and  ZP  +  2  at  the 
start  of  what  will  be  the  sixth  octave  in  FREQTB  (24  bytes 
below  OCT7TB). 

3.  Divide  each  two-byte  note  in  OCT7TB  by  2  and  store  the 
result  in  FREQTB  as  the  corresponding  note  in  the  next 
lower  octave. 

4.  Repeat  Step  3,  beginning  with  notes  from  the  next  lower  oc- 
tave each  time,  until  FREQTB  is  complete. 

5.  Return  from  the  routine. 

Explanation 

Each  time  you  drop  down  an  octave,  the  frequency  for  each 
note  within  that  octave  is  half  the  value  of  the  corresponding 
note  in  the  octave  above  it.  NOTETB  uses  this  fact  to  generate 
the  standard  note  table  (FREQTB).  Starting  with  notes  from 
the  highest  octave,  or  octave  7,  two-byte  frequencies  for  each 
note  in  the  octave  below  are  calculated  based  on  the  preceding 
octave.  This  continues  until  the  entire  table — eight  octaves  of 
12  notes  each — is  constructed. 

When  NOTETB  is  added  to  your  music-playing  routines, 
you  can  index  frequencies  from  the  table  it  generates  by  note 
number  without  having  to  type  in  all  the  frequencies  yourself. 

For  instance,  if  you  look  at  the  program  for  MELODY, 
you'll  see  it  uses  a  frequency  table  containing  15  notes  (also 
labeled  FREQTB).  Frequencies  within  this  table  include  all  the 
notes  from  G-4  through  A-5.  In  order  to  reference  the  fre- 
quencies in  this  table,  a  second  table  of  note  numbers 
(NOTES)  is  required. 

In  this  case,  15  frequency  values  is  not  many  to  type 
yourself.  But  if  you  were  playing  more  than  one  song  or  music 
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which  had  a  wider  range  of  notes,  you'd  be  better  off  allowing 
NOTETB  to  build  the  frequency  table  for  you. 

The  frequencies  in  the  note  table  created  by  NOTETB  are 
the  same  as  those  in  the  note  table  provided  in  the  64  and  128 
Programmer's  Reference  Guides.  Both  tables  contain  96  notes. 
As  a  result,  you  can  use  the  tables  in  these  reference  guides  to 
choose  the  appropriate  note  numbers  for  your  music. 

The  only  difference  in  the  tables  in  the  reference  guides 
and  the  one  created  by  NOTETB  (FREQTB)  is  in  the  note- 
numbering  system  used  to  index  the  various  frequencies.  In 
FREQTB,  the  note  numbers  run  continuously  from  0-95.  The 
note  numbers  in  the  reference  guide  tables,  on  the  other  hand, 
jump  by  5  after  each  octave.  Consequently,  the  numbers  range 
from  0-123.  To  convert  a  note  number  from  the  reference 
guide  tables  to  the  number  indexing  the  equivalent  note  in 
FREQTB,  use  the  following  formula: 

NN  =  PRGNN  -  OCTAVE  *  5 

In  this  formula,  PRGNN  represents  the  note  number  taken 
from  the  table  in  the  reference  guide;  OCTAVE,  the  octave 
number  for  the  note  (0-7);  and  NN,  the  number  for  the  same 
note  in  FREQTB. 

For  example,  middle  C  (C-4)  in  the  reference  guide  tables 
is  note  number  64.  To  index  this  same  note  in  FREQTB,  use 
the  number  64  —  4  *  5,  or  44. 


Routine 


cooo 


ZP 


251 


cooo 

A9 

E8 

NOTETB 

IDA 

#<OCT7TB 

C002 

85 

FB 

STA 

ZP 

COM 

A9 

CO 

LDA 

#>OCT7TB 

C006 

85 

FC 

STA 

ZP+1 

C008 

A9 

DO 

LDA 

#<OCT7TB-24 

COOA 

85 

FD 

STA 

ZP+2 

CO0C 

A9 

CO 

LDA 

#>OCT7TB-24 

COOE 

85 

FE 

STA 

ZP+3 

C010 

A2 

U7 

LDX 

#7 

C012 

AO 

17 

OCTLOP 

LDY 

#23 

C014 

Bl 

FB 

1NLOOP 

LDA 

(ZP),Y 

C016 

4A 

LSR 

C017 

91 

FD 

STA 

(ZP+2),Y 

C019 

88 

DEY 

Create  FREQTB  by  dividing  each  note  in 
next  higher  octave  by  2. 
position  ZP  at  beginning  of  seventh 
octave  (OCT7TB) 


position  ZP+2  at  beginning  of  sixth 
octave 


Index  for  the  octaves  0-6 

position  pointer  on  high  byte  of  highest 

note  in  octave 

get  the  high  byte  of  each  note  in  octave 

divide  it  by  2 

store  as  the  high  byte  of  the  note  in  the 

next  lower  octave 

decrement  pointer  so  It  addresses  the  low 

byte  of  the  note 
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CO!  A 

Bl 

FB 

C01C 

6A 

COID 

91 

FD 

COIF 

38 

CO20 

10 

F2 

C022 

38 

C023 

AS 

FB 

C025 

E9 

18 

C027 

85 

FB 

C029 

A  5 

FC 

C02B 

E9 

00 

C02D 

85 

FC 

C02F 

18 

COM 

AS 

FD 

C032 

E9 

18 

C034 

85 

FD 

C036 

AS 

FE 

C038 

E9 

n 

C03A 

85 

FE 

C03C 

CA 

C03D 

DO 

D3 

C03F 

hO 

LDA      (ZF),Y  ;  get  the  low  byte  of  each  note  in  the 

;  octave 
ROR  ;  divide  it  by  2,  handling  carry  from  LSR 

STA       (ZP+2),Y  ;  store  as  the  low  byte  of  the  note  in  the 

;  next  lower  octave 
DEY  ;  so  pointer  addresses  high  byte  on  the  next 

;  pass 
BFL      INLOOP  ;  do  until  all  12  two-byte  notes  are  handled 

,  Now  subtract  24  so  ZP  and  ZP+2  point  to 

;  next-lower  octaves. 

;  subtract  24  from  ZP 

;  low  byte  first 


SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 
DEX 
BNE 
RTS 


ZP 

#24 

ZP 

ZP+1 

#0 

ZP+1 

ZP+2 

#24 

ZP+2 

ZP+3 

#0 

ZP+3 

OCTLOP 


;  then  high  byte 


;  now  subtract  24  from  ZP+2 
;  low  byte  first 


;  then  high  byte 


;  for  next  lower  octave 

;  seven  octaves  complete  frequency  table 


CQE8     IE     86     18     OCT7TB 
C0F4    AC   BD   F3 


FREQTB         =  •  ;  reserve  room  for  lower  seven  octaves 

*=         *+168  ;  seven  octaves  of  12  two-byte  notes 

;  OCT7TB  is  table  of  standard  two-byte 
;  frequencies  from  the  seventh  octave. 
.WORD  34334,36376,38539.40830,43258.45830 
.WORD48556.51443,54502,57743,61176.64814 


See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  MELODY,  SIDCLR, 
SIDVOL,  SIRENS. 
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Name 

Print  two-byte  integer  values 

Description 

NUMOUT  prints  a  two-byte  integer  value  in  the  range 
0-65535  to  the  screen  (or  to  the  current  output  device).  This 
general  integer-printing  routine  is  good  for  printing  scores  in 
games.  It  can  also  be  useful  for  debugging  programs.  Suppose 
you  want  to  know  the  effect  your  program  is  having  on  a  two- 
byte  address  while  the  program  is  running.  NUMOUT  makes 
monitoring  these  locations  a  snap. 

Prototype 

1.  Enter  with  .X  containing  the  low  byte  and  .A,  the  high  byte 
of  the  two-byte  integer  value  to  be  printed. 

2.  JMP  to  LINPRT  to  print  the  number  and  return. 

Explanation 

Relying  on  the  BASIC  ROM  routine  LINPRT  keeps  NUMOUT 
short  and  simple.  If  you're  working  on  a  128,  be  sure  to 
change  the  address  of  LINPRT  to  36402. 

Warning:  If  you  use  NUMOUT  in  a  loop,  index  the  loop 
by  .Y  rather  than  by  .X,  since  its  setup  necessarily  changes  the 
contents  of  the  X  register. 

Routine 


cooo 

C000  AE   0C  CO 

C003  AD  OD  CO 

C006  4C    09  CO 


UNPRT         = 


48589 


LDX       1NTGER 
IDA       INTGER  -r 1 
IMP      NUMOUT 


COOT     4C    CD  BD   NUMOUT    JMP       LINPRT 

C00C    55     00  INTCER         .WORD  85 


UNPRT  =  36402  on  Ihe  128 

low  byte  of  integer  85 

high  byte  of  85 

print  the  number  and  RTS 

Print  the  two-byte  integer  in  -X  (low  byte) 

and  .A  (high  byte). 

print  the  number  and  RTS 

integer  85 


See  also  BYTASC,  CNUMOT,  FACPRD,  FACPRT. 
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Name 

Open  a  sequential/program  file 

Description 

Anytime  you  want  to  read  or  write  data  to  the  disk  in  the 
form  of  either  a  sequential  or  a  program  file,  this  is  the  first 
routine  you'll  need.  OPENFL  opens  a  designated  channel  to 
the  disk  for  data  transfer. 

Prototype 

1.  On  the  128,  set  the  bank  to  15  in  the  program  which  calls 
OPENFL  (see  READBF  or  WRITBF). 

2.  OPEN  1,8,2  with  a  sequential  or  program  filename 
(SETLFS,  SETNAM,  OPEN).  Then  return  to  the  calling 
program. 

3.  On  the  128,  prior  to  SETNAM,  load  the  accumulator  with 
the  bank  for  the  opened  file  and  load  the  X  register  with 
the  bank  containing  the  program  filename.  Then  JSR  to 
SETBNK. 

Explanation 

In  the  example  routine  as  it's  given,  we've  opened  the  sequen- 
tial file  SEQUENTIAL  for  reading  (,S,R).  To  open  a  program 
file  for  reading,  add  the  suffix  ,P,R  to  the  filename.  If  the  file 
that  you  open  is  to  be  written  to,  add  the  suffix  ,S,W  or  ,P,W 
to  the  filename,  depending  on  whether  it's  a  sequential  file  or 
program  file. 

The  logical  file  number  assigned  to  the  open  channel  be- 
low is  1.  Any  number  from  1  through  255  will  suffice,  but  it's 
best  to  use  numbers  less  than  128.  File  numbers  above  127 
may  cause  line  feed  characters  to  be  sent  with  each  carriage 
return  when  performing  a  write  operation. 

For  data  transfers,  any  secondary  address  in  the  range 
2-14  can  be  used.  The  device  number  value  depends  on  how 
your  drive  is  configured,  but  usually  it's  device  8  unless  you 
have  more  than  one  drive. 

On  the  128,  the  program  calling  OPENFL  must  set  the 
computer  to  bank  15  since  Kemal  routines  are  being  used  by 
this  routine.  Also  be  sure  to  set  the  bank  number  where  the 
file  is  opened  with  BNKNUM  and  indicate  to  the  routine  the 
bank  containing  the  filename  by  defining  BNKFNM. 

Note:  Disk  error  checking  can  be  incorporated  into  this 
routine,  if  needed.  At  the  outset,  OPEN  the  error  channel. 
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Add  DERRCK  to  the  end  of  the  program  and  JSR  to  it  just 
after  the  JSR  OPEN  instruction. 

Warning:  Using  OPENFL  just  opens  a  file,  either  sequen- 
tial or  program,  for  a  read  or  write  operation — no  data  is  ac- 
tually transferred.  Complete  example  programs  that  read  or 
write  data  to  disk  are  offered  elsewhere  (see  READBF  to  read 
a  file,  WRITBF  to  write  one). 

Routine 


cooo 
cooo 
eooo 
cooo 

SETLFS 
SETNAM 
OPEN 
SETBNK 

= 

65466 
65469 

65472 
65384 

cooo 

MMUREG 

= 

65280 

cooo 

OPENFL 

• 

LDA 

#1 

logical  file  1 

C002 

A2 

08 

LDX 

#8 

disk  drive  device  number 

C004 

AO 

02 

LDY 

#2 

secondary  address  (2-14  are  OK) 

C0O6 

20 

BA 

FF 

JSR 

SETLFS 

set  file  parameters 

Include  the  following  three  instructions 

on  the  128. 

LDA  BNKNUM;  bank  number  for  data 

LDX  BNKFNM;  bank  containing  the 

ASCII  filename 

JSR  SETBNK 

C009 

Ay 

09 

LDA 

#FNLENG 

length  of  filename 

CO0B 

A2 

16 

LDX 

#<FILENM 

address  of  filename 

C00D 

AO 

CO 

LDY 

#>FILENM 

C00F 

20 

BD 

FF 

JSR 

SETNAM 

set  up  filename 

C012     20     CO    FF 


C015     60 


JSR        OPEN 


RTS 


Kemal  bank  number  for  OPEN  and 

filename  (128  only) 

MMU  configuration  register  (128  only) 

OPENFL  opens  a  sequential  or  program  file 
for  reading  or  writing. 

Set  the  128  to  bank  15  in  the  main 
program  (see  READBF  or  WRITBF). 

Open  channel  15  here  if  you  Include  error 
checking  (DERRCK). 


open  the  file  for  data  transfer 

Insert  JSR  DERRCK  here  for  disk  error 
checking. 

return  to  main  program 

JSR  DERRCK;  Insert  if  including  error 
checking. 
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C016     30    3A   S3    F1LENM        .ASC 


COIF 


FNL£NC 


"0:SEQUENT1AL,S,R" 

:  sequential  filename  to  open  for  a  read 

:  ,S.R  is  optional  with  sequential  file  reads. 

:  Change  to  "0:PROGRAM,P.R"  to  open  a 

;  program  file  for  reading. 
•-FTLENM         ;  length  of  filename 

Include  the  next  two  variables  on  the  128. 
BNKNUM  .BYTE  0;  bank  number  where 
data  is  found 

BNKFNM  .BYTE  0;  bank  number  where 
ASCII  filename  is  located 


See  also  READBF,  READFL. 
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Name 

Open  a  printer  channel 

Description 

OPENPR  opens  a  channel  to  the  printer  for  subsequent 
output. 

Prototype 

1.  OPEN  the  printer  channel  with  the  parameters  4,4,0 
(SETLFS  and  OPEN). 

2.  Direct  output  to  channel  4 — load  .X  with  the  printer  file 
number  and  JMP  to  CHKOUT. 

Explanation 

In  the  example  program,  the  printer  is  opened  as  channel  4. 

For  an  entire  printer  program,  see  PRTOUT  for  printing 
individual  characters  or  PRTSTR  for  printing  strings. 

Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255,  while  the  device 
number  is  usually  4  (all  Commodore  printers  are  normally  de- 
vice 4).  Some  printers  can  also  use  5  as  a  device  number.  The 
Commodore  1520  printer/plotter  is  device  6. 

For  Commodore  printers,  the  secondary  address  sends 
information  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7,  on  the  other  hand,  causes  them  to  print  in  uppercase  and 
lowercase.  Some  printers  require  a  value  of  255  (for  no 
secondary  address)  here.  It  is  best  to  consult  your  printer  man- 
ual and  interface  manual  to  determine  the  exact  significance 
this  parameter  will  have  with  your  printer. 

Routine 


cooo 
cooo 
cooo 

SETLFS 

OPEN 

CHKOUT 

= 

65466 
65472 
65481 

cooo 

C002 

A9 
A2 

04 

(M 

OPENPR 

LDA 

LDX 

#4 
#4 

COM 

A0 

00 

LDY 

#0 

;  Open  a  file  to  the  printer  as  4,4,0. 

;  logic j I  tile  4 

;  device  number  for  printer  (change  if 

;  printer  uses  another  number) 

;  secondary  address 

;  A  value  of  0  here  causes  Commodore 

;  printers  to  print  in  uppercase/graphics. 

;  A  value  of  7  here  causes  Commodore 

;  printers  to  print  in  uppercase/lowercase. 

;  A  value  of  255  is  required  by  some 

;  printers  (meaning  no  secondary  address). 
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C006 

20 

BA   FF 

JSR 

SETLFS 

;  set  values 

C009 

20 

CO   FF 

jSR 

OPEN 

;  open  a  file  to  printer 

COOC 

A2 

04 

LDX 

#4 

COOE 

4C 

C9    FF 

JMP 

chkout 

;  direct  ontput  to  file  4 

See  also  CLOSFL,  PRTOUT,  PRTSTR. 
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Name 

Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 

Description 

If  you've  drawn  a  series  of  lines  or  shapes  on  the  hi-res 
screen,  you  can  call  this  routine  and  fill  in  an  enclosed  shape 
with  a  solid  color. 

Prototype 

1.  Enter  with  a  hi-res  location  specified  in  STARTX  and 
STARTY. 

2.  Convert  STARTX/STARTY  to  a  memory  location  on  the  hi- 
res screen  and  a  bitmask.  Push  the  three  bytes  on  the 
pseudostack. 

3.  Begin  the  fill:  Pull  a  bitmask  and  memory  location  from  the 
pseudostack.  If  the  stack  is  empty,  exit  the  routine. 

4.  Move  to  the  left,  looking  for  an  edge  of  the  enclosing 
shape. 

5.  Begin  setting  bits,  moving  to  the  right  until  a  right-hand 
edge  (or  the  edge  of  the  screen)  is  discovered. 

6.  While  the  fill  is  proceeding,  PEEK  the  bitmap  locations 
above  and  below.  Look  first  for  an  open  (zero)  bit. 

7.  When  a  zero  is  found,  push  that  location  and  the  bitmask 
on  the  pseudotack  and  set  the  FINDUP  or  FINDDN  flag  to 
search  for  ones. 

8.  If  searching  for  a  one,  flip  the  FIND  flag  again  (but  don't 
save  the  address).  Continue  flipping  the  flag  as  you  check 
the  bits  above  and  below. 

9.  When  the  main  line  is  Filled,  go  back  to  step  3. 

Explanation 

The  routine,  as  it's  written,  uses  no  Kernal  or  ROM  routines, 
so  it  will  work  on  both  64s  and  128s  without  modification.  A 
note  of  interest  to  128  owners:  In  a  test  of  this  machine  lan- 
guage fill  routine  against  the  128's  BASIC  7.0  PAINT  com- 
mand, the  BASIC  command  took  an  average  of  70  seconds  to 
fill  most  of  the  screen,  while  the  routine  below  took  only  10 
seconds. 

Drawing  a  straight  line  from  left  to  right  isn't  difficult. 
The  heart  of  the  PAINT  routine  moves  to  the  left  until  it  finds 
an  edge.  Then  it  turns  on  pixels  until  it  finds  a  right-hand 
edge  of  the  outline  being  filled. 

Simultaneously  with  the  fill,  the  routine  checks  the  pixels 
above  and  below,  using  two  zero-page  locations  (ZU  and  ZD) 
that  move  in  step  with  the  fill.  Consider  just  the  pixel  above. 
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We  begin  by  looking  for  a  zero.  If  ZU  (plus  the  bitmask) 
points  to  a  one  (a  pixel  that's  turned  on),  it's  either  the  top 
edge  of  the  figure  or  it's  a  previously  filled  line.  We  ignore  all 
pixels  that  are  on,  at  least  at  the  beginning. 

But  if  ZU  points  to  a  zero,  then  it  will  eventually  have  to 
be  filled.  So  the  address  from  ZU  and  the  current  bitmask 
(which  rotates  from  right  to  left,  from  %  10000000  to 
%00000001)  are  saved  on  the  pseudostack.  Now  that  we've 
found  a  zero,  we  can  ignore  any  more  zeros  that  pop  up.  The 
FINDUP  flag  is  switched.  Now  we're  searching  for  a  one,  be- 
cause the  fill  routine  will  stop  at  an  edge. 

While  we're  looking  for  ones,  we  ignore  zeros.  When  we 
find  a  pixel  that  is  on,  we  have  to  flip  the  FINDUP  flag  again, 
to  start  looking  for  zeros.  When  a  zero  is  discovered,  save  the 
address  and  mask,  and  flip  the  flag  again.  The  process  contin- 
ues until  the  primary  line  runs  up  against  an  edge.  At  that 
point,  we  go  back  to  the  stack  and  start  another  fill.  As  long  as 
there  are  more  addresses,  the  paint  routine  is  active. 

The  pseudostack  is  just  an  empty  area  of  memory  used  to 
save  the  addresses.  It  follows  the  program,  but  you  can  change 
its  location  easily  enough.  For  most  shapes,  a  stack  of  two 
pages  (512  bytes)  should  suffice. 

To  use  this  routine  in  your  own  programs,  you'll  need  to 
change  the  variables  at  the  end  of  the  program.  Store  the  first 
and  last  bytes  of  the  bitmap  area  in  BITMAP  and  BITMAX. 
The  example  assumes  the  hi-res  screen  runs  from  8192  to 
16191.  Store  a  zero  into  FINDL  if  you're  changing  zeros  to 
ones.  Put  a  255  there  to  clear  bits  from  one  to  zero.  And  store 
a  two-byte  x  location  in  STARTX  (0-319)  and  a  one-byte  y 
location  in  STARTY  (0-199)  before  you  JSR  to  PAINT. 


Routine 


cooo 

SP 

= 

3 

cooo 

ZU 

— 

$F9 

cnoo 

ZL 

= 

$FB 

cooo 

ZD 

= 

$FD 

cooo 

A9 

F8 

LDA 

#<STACK 

;  copy  the  stack  address 

C002 

85 

03 

STA 

SP 

I  to  SP  (stack  pointer) 

C004 

A9 

CI 

LDA 

#>STACK 

C006 

85 

04 

STA 

SP+1 

;  high  byte 

coos 

20 

79 

CO 

JSR 

CONVERT 

;  change  STARTX  and  STARTY  to  memory 
1  location  in  the  bitmap 

C00B 

AD 

F4 

CI 

BIGLOOP 

LDA 

FINDL 

;  copy  the  FINDL  mask  to 

C00E 

8D 

F5 

CI 

STA 

FINDUP 

;  the  up  mask 

con 

8D 

» 

CI 

STA 

FINDDN 

.-  and  the  down  mask 
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COH  20  E8  CO  |SR  PULLZL 

C017  90  01  BCC  NOTDONE 

C019  60  RTS 

C01A  20  16  CI     NOTDONE  JSR  LEFTZL 

C01D  20  9A  CI  JSR  SETZUZD 


C020 

PAINT 

_ 

■ 

C020 

AO 

00 

LDY 

#0 

set  the  index  to  zero 

C022 

Bl 

FB 

LDA 

IZL),Y 

get  the  byte 

C024 

AA 

TAX 

save  in  .X 

C025 

4D 

F4 

Cl 

EOR 

FINDL 

fix  zeros  or  ones 

C028 

2D 

EC 

CI 

AND 

MASK 

look  at  the  bit 

C02B 

DO 

49 

BNE 

ENDPNT 

we  hit  an  edge,  so  quit 

C02D 

8A 

TXA 

get  the  byte  back 

C02E 

4D 

EC 

a 

EOR 

MASK 

and  flip  the  bit 

C031 

91 

FB 

STA 

<ZL),Y 

which  is  stored  on  the  bitmap 

Now  check  the  pixels  above  and  below 

C033 

AD 

FS 

a 

CKUP 

LDA 

FINDUP 

get  the  search  pattern 

C036 

AA 

TAX 

put  it  into  X 

C037 

51 

F9 

EOR 

(ZU),Y 

fix  zeros  or  ones 

C039 

2D 

EC 

Cl 

AND 

MASK 

is  It  what  we  want? 

C03C 

DO 

10 

BNE 

CKDOWN 

no,  check  the  ZD  pixel 
Found  one,  but  is  it  off  or  on? 

C03E 

EC 

F4 

Cl 

CPX 

FINDL                ; 

if  it's  not  the  6ame 

C041 

DO 

03 

BNE 

XORUP 

move  forward 

C043 

20 

C4 

CO 

JSR 

PUSHZU 

else,  push  ZU  on  the  pseudostack  to 
handle  later 

C046 

AD  F5 

Cl 

XORUP 

LDA 

FINDUP 

the  FINDUP  flag 

C049 

49 

FF 

EOR 

#$FF 

gets  flipped 

C04B 

8D 

F5 

Cl 

STA 

FINDUP 

and  stored 

C04E 

AD  F6 

a 

CKDOWN 

LDA 

FINDDN 

check  the  down  flag 

C051 

AA 

TAX 

save  it 

C052 

AO 

00 

LDY 

#0 

.Y  was  altered  by  CKUP 

C0S4 

51 

FD 

EOR 

(ZD),Y 

C056 

2D 

EC 

Cl 

AND 

MASK 

same  as  above 

C059 

DO 

ID 

BNE 

ZIBBL 

ifsOK 

Check  the  down  bit.  Off  or  on? 

C05B 

EC 

F4 

Cl 

CPX 

FINDL 

is  it  the  same? 

COSE 

DO 

03 

BNE 

XORDN             ( 

no,  skip  it 

C060 

20 

CA 

CO 

JSR 

PUSHZD 

yes,  save  the  address 

C063 

AD  F6 

Cl 

XORDN 

LDA 

FINDDN 

C066 

49 

FF 

EOR 

#$FF 

switch  FINDDN  to  its  opposite 

C068 

8D 

F6 

Cl 

STA 

FINDDN 

C06B 

211 

SB 

Cl 

ZIBBi 

JSR 

RIGHTZL 

move  ZL  right  a  pixel 

C06E 

BO 

U6 

BCS 

ENDPNT           , 

CS  means  the  line  is  done 

C070 

20 

9A 

Cl 

JSR 

SETZUZD 

we're  OK,  so  do  more 

C073 

1C 

20 

CO 

JMP 

PAINT                j 

and  go  back 

C076 

4C 

OB 

CO 

ENDPNT 

JMP 

BIGLOOP 

CD79 

CONVERT 

1 
• 

C079 

AD 

Fl 

Cl 

LDA 

BITMAP+1      , 

high  byte  of  BITMAP  address 

C07C 

85 

FC 

STA 

ZL+1 

goes  into  high-byte  of  ZL  pointer 

C07E 

AD 

EF 

a 

LDA 

STARTY 

y-position  (0-199) 

C081 

AS 

TAY 

stash  into  ,Y 

C082 

29 

07 

AND 

#7 

get  the  bottom  three  bits 

C084 

85 

FB 

STA 

ZL 

store  in  low-byte  of  ZL 

C086 

9« 

TYA 

get  it  back 

C087 

4A 

LSR 

shift  right 

C088 

4  A 

LSR 

three  times 

C089 

4A 

LSR 

C08A 

AS 

TAY 

back  into  .Y 

pull  ZL  from  the  stack 

carry  clear  means  there  is  more 

if  carry  set,  quit  and  RTS 

move  left  to  find  an  edge 

set  values  for  ZU  and  ZD  (up  and  down) 
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C08B 

FO 

10 

BEQ 

CONVX 

;  if  zero,  skip  ahead  lo  do  .X  and 
;  x-coardinate 

COBD 

18 

Y320 

CLC 

C08E 

A9 

40 

LDA 

#<320 

;  else  add  320 

COW 

65 

FB 

ADC 

ZL 

;  to  ZL 

C092 

85 

FB 

STA 

ZL 

;  store  it 

C094 

A9 

01 

LDA 

#>320 

C096 

65 

FC 

ADC 

ZL+1 

;  high-byte,  too 

C098 

85 

FC 

STA 

ZL  +  1 

C09A 

ss 

DEY 

;  count  down 

C09B 

DO 

FO 

BNE 

Y320 

;  and  branch  hack 

C09D 

AD 

ED   CI 

CONVX 

LDA 

STARTX 

;  low  byte  of  x-position 

COAO 

AA 

TAX 

;  save  in  .X  for  a  moment 

COA1 

29 

F8 

AND 

#%nmooo 

;  strip  the  three  low  bits 

C0A3 

18 

CLC 

C0A4 

65 

FB 

ADC 

ZL 

;  add  to  ZL 

C0A6 

85 

FB 

STA 

ZL 

;  store 

COA8 

AD 

EE    CI 

LDA 

STARTX+1 

;  gel  the  high-byte 

COAB 

65 

FC 

ADC 

ZL+1 

;  add  to  the  high-byte 

COAD 

85 

FC 

STA 

ZL+1 

;  save  it 

COAF 

A9 

80 

LDA 

#%10O0OOO0 

;  prepare  mask 

GOBI 

SD 

EC    CI 

STA 

MASK 

C0B4 

8A 

TXA 

;  get .X  back 

COBS 

29 

07 

AND 

#%O0OO0111 

;  positions  0-7 

C0B7 

FO 

07 

BEQ 

conextt 

;  if  0,  skip  it 

C0B9 

AA 

TAX 

;  else  count  down 

COBA 

4E 

EC    CI 

CMASKL 

LSR 

MASK 

;  move  MASK  right 

COBD 

CA 

DEX 

;  .X  minus  1 

COBE 

DO 

FA 

BNE 

CMASKL 

;  branch  back 

COCO 

20 

C7    CO 

CONEXIT 

JSR 

PUSHZL 

;  push  the  ZL  and  MASK  bytes  on  the 
;  pseudostack 

COC3 

60 

RTS 

;  and  we're  done 

;  As  we  leave,  the  location  and  the  mask 
;  of  the  STARTX  and  STARTY  points  are 
;  on  the  stack. 

C0C4 

A2 

01 

PUSHZU 

LDX 

#1 

C0C6 

2C 

.BYTE 

S2C 

;  BIT  hides  next  instruction 

C0C7 

A2 

03 

PUSHZL 

LDX 

#3 

C0C9 

2C 

.BYTE 

S2C 

COCA 

A2 

05 

PUSHZD 

LDX 

#5 

COCC 

AO 

02 

LDY 

#2 

;  three  bytes  (0-2) 

COCE 

AD 

EC    CI 

LDA 

MASK 

;  gel  the  mask 

C0D1 

91 

03 

STA 

(SP),Y 

;  store  indirect  to  SP,  which  points  to  stac 

COD3 

88 

DEY 

; .  Y  is  now  1 

C0D4 

B5 

F9 

PSHLP 

LDA 

ZTJ.X 

,-  get  a  byte  from  ZU,  ZL,  or  ZD 

C0D6 

91 

03 

STA 

(SP).Y 

COD8 

CA 

DEX 

C0D9 

88 

DEY 

CODA 

10 

F8 

BPL 

PSHLP 

;  count  1  to  0  to  minus 

;  Now  adjust  the  stack  pointer  SP. 

CODC  18 

CLC 

CODD 

A9 

03 

LDA 

#3 

;add3 

CODF 

65 

03 

ADC 

SP 

;  add  to  SP 

COE1 

85 

03 

STA 

SP 

;  store  it 

C0E3 

90 

02 

BCC 

PSHOUT 

;  carry  clear,  we're  done 

C0E5 

E6 

04 

INC 

SP  +  1 

C0E7 

60 

PSHODT 

RTS 

;  Finished.  Quit  this  routine. 

C0E8 

38 

PULLZL 

SEC 

;  first  count  SP  down  by  3 

COE9 

A5 

03 

LDA 

SP 

;  low  byte 

COEB 

E9 

03 

SBC 

#3 

;  minus  3 

COED 

S3 

03 

STA 

SP 

;  store  it 
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COEF 

A5 

04 

LDA 

SP+1 

;  high  byte 

COF1 

E9 

DO 

SBC 

#0 

;  minus  zero  (or  one  if  carry  clear) 

C0F3 

85 

04 

STA 

SP+1 

;  remember  it 

C0F5 

C9 

CI 

CMP 

#>STACK 

;  check  the  high  byte 

C0F7 

90 

IB 

BCC 

ABORT 

;  branch  if  the  stack  is  empty 

COF9 

DO 

06 

BNE 

NOABORT 

;  if  not  equal,  keep  going 

COFB 

A  5 

03 

LDA 

SP 

;  SP-high  and  STACK-high  are  equal,  so 
;  check  low  byte 

COFD 

C9 

FS 

CMP 

#<STACK 

;  against  STACK 

COFF 

90 

13 

BCC 

ABORT 

;  abort  if  STACK  is  higher  (equal  is  OK) 

C101 

AO 

02 

NOABORT  LDY 

#2 

C103 

Bl 

03 

LDA 

ISP),Y 

;  get  the  mask 

C105 

8D 

EC 

CI 

STA 

MASK 

;  store  it 

C108 

88 

DEY 

;  count  down 

C109 

Bl 

03 

LDA 

(SP),Y 

ClOB 

85 

FC 

STA 

ZL+1 

;  high  byte  of  screen  address 

ClOD 

88 

DEY 

C10E 

Bl 

03 

LDA 

(SP),Y 

;  low  byte 

CllO 

85 

FB 

STA 

Zl 

CI  12 

18 

CLC 

;  clear  carry  means  OK 

C113 

60 

RTS 

cm 

38 

ABORT         SEC 

;  set  carry  means  not  OK 

C115 

60 

RTS 

cm 

OE 

EC 

CI 

LEFTZL        ASL 

MASK 

;  more  the  bit  in  MASK  to  the  left 

C119 

90 

1A 

BCC 

LEFTOK 

;  within  the  byte,  if  s  OK 

CUB 

6E 

EC 

CI 

ROR 

MASK 

;  put  the  bit  back  in  position  7,  just  in  case 
;  Better  check  for  a  left  edge. 

CUE 

20 

45 

CI 

JSR 

CHECKEDGE 

cm 

90 

01 

BCC 

DECZL 

:  carry  clear  means  OK 

C123 

60 

RTS 

;  else,  return  because  we've  hit  the  left 
;  edge  of  the  screen 

C124 

AS 

FB 

DECZL          LDA 

ZL 

;  subtract 

C126 

E9 

07 

SBC 

#7 

;  7  (really  subtract  8,  because  carry  is  clear) 

CI  28 

85 

FB 

STA 

ZL 

;  store  it 

C12A 

A5 

FC 

LDA 

ZL+1 

;  high  byte 

02C 

E9 

00 

SBC 

#0 

;  adjust 

C12E 

85 

FC 

STA 

ZL+1 

;  and  store 

a30 

A9 

01 

LDA 

#1 

;  and  put  a  ttOOOOOOOl 

C132 

8D 

EC 

ci 

STA 

MASK 

;  into  mask 

C135 

UEFTOK        - 

• 

;  now  check  the  bit 

C135 

AO 

00 

LDY 

#0 

C137 

Bl 

Fn 

LDA 

(ZL),Y 

;  get  the  byte 

CI39 

4D 

F4 

a 

EOR 

FINDL 

;  flip  the  bits  to  get  what  we're  looking  for 

C13C 

2D 

EC 

Cl 

AND 

MASK 

;  check  the  bitmap  bit 

C13F 

FO 

D5 

BEQ 

LEFTZL 

;  if  zero,  do  more 

C141 

20 

6B 

a 

JSR 

RiGErrzL 

;  else  move  ZL  to  the  right 

C144 

60 

RTS 

;  and  quit 

C145 

A5 

FB 

CHECKEDCE  LDA 

ZL 

;  low  byte 

C147 

A  A 

TAX 

;  save  it 

C148 

29 

38 

AND 

#%ooiiiooo 

;  check  bits  3-5 

C14A 

DO 

IB 

BNE 

NOPROB 

;  no  problem,  we're  done 

C14C 

8A 

TXA 

;  check  more 

C14D 

29 

CO 

AND 

#%1100OO00 

,-  get  the  two  high  bits 

C14F 

8D 

F7 

CI 

STA 

TEMP 

;  and  save  in  temp 

C152 

A5 

FC 

LDA 

ZL+1 

;  high  byte 

C1S4 

29 

IF 

AND 

#%ooomn 

;  mask  off  the  three  high  bits 

C156 

2E 

F7 

Cl 

ROL 

TEMP 

;  move  into  .A 

CI  59 

2  A 

ROL 

C15A 

2E 

F7 

Cl 

ROL 

TEMP 

;  two  bits 

C15D 

2A 

ROL 

C15E 

FO 

09 

BEQ 

PROB 

;  see  if  it's  divisible  by  five 

C160 

38 

SEC 

PAINT 


C161 

E8 

05 

DUNNO 

SBC 

#5 

;  subtract  5 

C163 

FO 

04 

BEQ 

PROB 

;  zero  means  a  problem 

C165 

BO 

FA 

BCS 

DUNNO 

;  carry  set  means  more 

C167 

18 

NOPROB 

CLC 

;  no  problem 

C168 

60 

RTS 

C169 

n 

PROB 

SEC 

;  problem/left  edge 

C16A 

go 

RTS 

C16B 

RIGHTZL 

m 

a 

;  this  routine  moves  ZL  right  one  pixel 

C16B 

•IE 

EC   CI 

LSR 

MASK 

C16E 

BO 

01 

BCS 

RTEDGE 

;  If  the  bit  rotated  into  the  carry  flag,  check 
;  for  the  edge 

C170 

60 

RTS 

;  else,  if  s  OK 

cm 

A5 

FB 

RTEDGE 

LDA 

ZL 

;  low  byte 

C173 

69 

07 

ADC 

#7 

;  really  add  8 — carry  is  set 

C175 

85 

FB 

STA 

ZL 

;  store  It 

CI  77 

90 

02 

BCC 

SKPHI 

;  skip  the  high  byte 

C179 

E6 

FC 

INC 

ZL+1 

;  unless  ZL  has  overflowed 

C17B 

20 

45     CI 

SKPHI 

JSR 

CHECKEDGE 

;  see  if  we're  at  an  edge 

C17E 

90 

13 

BCC 

RTOK 

;lfsOK 

CI  80 

AS 

FB 

LDA 

ZL 

;  or  not  OK 

C182 

E9 

08 

SBC 

#8 

;  Implied  carry  set 

C184 

85 

FB 

STA 

ZL 

;  subtract  8  from  low  byte 

C186 

A5 

FC 

LDA 

ZL+1 

;  plus 

C188 

E9 

00 

SBC 

#0 

;  maybe 

C18A 

83 

FC 

STA 

ZL+1 

;  the  high  byte 

C18C 

A9 

01 

LDA 

#%00000001 

;  and  put  the  one  bil 

C18E 

8D 

EC   CI 

STA 

MASK 

;  at  (he  edge  of  mask 

C191 

38 

SEC 

;  set  carry  means  finish 

CI  92 

60 

RTS 

;  this  ends  the  RIGHTZL  routine 

C193 

A9 

80 

RTOK 

LDA 

#%10000000 

;  set  up  mask 

C39S 

8D 

EC   CI 

STA 

MASK 

C198 

18 

CLC 

;  clear  carry  signals  all  is  well 

C199 

60 

RTS 

;  end  on  a  positive  note 

C19A 

SETZUZD 

- 

• 

:  first  set  ZU  (the  pointer  to  the  pixel 
;  above  ZL) 

C19A 

AS 

FC 

LDA 

ZL+1 

;  high  byte 

C19C 

A8 

TAY 

C19D 

85 

FA 

STA 

ZU+1 

C19F 

85 

FE 

STA 

ZD+1 

;  and  ZD 

C1A1 

A5 

FB 

LDA 

ZL 

;  low  byte 

C1A3 

AA 

TAX 

;  save  in  .X 

C1A4 

85 

F9 

STA 

ZU 

C1A6 

85 

FD 

STA 

ZD 

CIA8 

29 

07 

AND 

#7 

;  check  for  eight-byte  edge,  top  or  bottom 

C1AA 

FO 

09 

BEQ 

FTXZU 

;  if  ZL  b  divisible  by  8 

C1AC 

C9 

07 

CMP 

#7 

C1AE 

FO 

1C 

BEQ 

fwzd 

;  or  one  less  than  8 

C1B0 

C6 

F9 

DEC 

zu 

;  else  ZU  is  one  less 

C1B2 

E6 

FD 

INC 

ZD 

;  and  ZD  is  one  more 

C1B4 

60 

RTS 

C1B5 

E6 

FD 

FDCZU 

INC 

ZD 

;  ZD  is  OK.  INC  it. 

C1B7 

8A 

TXA 

C1B8 

38 

SEC 

C1B9 

E9 

39 

SBC 

#<313 

;  move  back  a  line 

C1BB 

85 

F9 

STA 

ZD 

C1BD 

98 

TYA 

;  high  byte 

C1BE 

E9 

01 

SBC 

#>313 

C1C0 

85 

FA 

STA 

ZU+1 

C1C2 

CD  Fl     CI 

CMP 

BITMAP+1 

;  check  if  if  s  too  low 

C1C5 

BO 

04 

BCS 

FXZOK 

;  no,  go  to  the  end 
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PAINT 


C1C7 

86 

F9 

STX 

ZtJ 

too  low,  put  ZL  into  ZU 

C1C9 

S4 

FA 

STY 

ZU+1 

C1CB 

6(1 

FXZOK 

RTS 

C1CC 

C6 

F9 

FIX2D 

DEC 

zu 

ZD  is  OK.  DEC  it. 

C1CE 

8A 

TXA 

low  byte  of  ZL/ZD 

C1CF 

18 

CLC 

CI  DO 

61 

39 

ADC 

#<313 

move  up  a  line 

C1D2 

85 

FD 

STA 

ZD 

C1D4 

98 

TYA 

high  byte 

C1DS 

69 

01 

ADC 

#>313 

C1D7 

85 

FE 

STA 

ZD  +  1 

C1D9 

CD 

F3     CI 

CMP 

BITMAX+1 

check  if  it's  too  high 

C1DC 

90 

OD 

BCC 

FXDOK 

no,  go  to  the  end 

C1DE 

DO 

07 

BNE 

TOOHI 

if  carry  Is  set  and  if  s  not  equal,  it's  too 

high 

Ifs  equal,  so  check  the  low  byte. 

C1E0 

AD  FI     Ci 

LDA 

BITMAX 

C1E3 

CS 

FD 

CMF 

ZD 

C1E5 

BO 

04 

BCS 

FXDOK 

if  BrrMAX  >-  ZD,  don't  worry,  else  drop 

through 

too  high,  put  Zt  into  ZU 

C1E7 

36 

FD 

toohi 

STX 

ZD 

C1E9 

84 

FE 

STY 

ZD+1 

C1EB 

60 

FXDOK 

RTS 

CI  EC 

00 

MASK 

.BYTE 

0 

mask  (or  turning  bits  on/off 

C1ED 

AO 

00 

STARTX 

.WORD  160 

starting  location  for  fill  (x-position  = 

0-319) 

CiEF 

65 

STARTY 

BYTE 

101 

starting  location  (y-position  —  0-199) 

C1F0 

00 

20 

BITMAP 

.WORD8192 

start  of  the  bitmap.  $2000 

C1F2 

3F 

3F 

BITMAX 

.WORD  16191 

C1F4 

00 

FINDL 

BYTE 

0 

set  to  2ero  If  changing  zeros  to  ones,  or  255 
if  1  to  0 

C1F5 

00 

FINDUF" 

.BYTE 

0 

C1F6 

00 

FINDDN 

.BYTE 

0 

C1F7 

00 

TEMP 

.BYTE 

0 

C1F8 

STACK 

= 

• 

See  also  BITMAP,  CLRHRF,  CLRHRS,  HRCOLF,  HRPOLR,  HRSETP. 
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PASFMV  (64  only) 


Name 

Pass  values  from  BASIC  to  ML  using  the  FRMEVL  routine 

Description 

This  is  the  most  versatile  of  the  techniques  that  pass  a  value 
from  BASIC  to  ML. 

Prototype 

1.  Call  the  COMMA  routine  to  find  a  comma. 

2.  Call  the  FRMEVL  routine  to  calculate  the  value  between 
commas  (the  result  is  stored  in  the  floating-point 
accumulator). 

3.  Use  the  number  as  you  wish. 

Explanation 

FRMEVL  evaluates  a  formula  by  calling  various  BASIC  func- 
tions and  stripping  away  the  parentheses.  FRMEVL  can  figure 
out  what  ABS(INT(Y/2))  +  SQR(X  *  2  -  Z  4-  3)  really  means. 

The  example  routine  adds  two  integers.  You  pass  the  val- 
ues to  the  ML  routine  by  adding  commas  and  formulas  after 
the  SYS.  For  example,  SYS  49152,1,2  will  print  the  number  3; 
SYS  49152,SQR(9),(1  +  3*7)  will  print  the  number  25  (3  +  22). 

The  three  key  ROM  routines  are  COMMA,  which  looks 
for  the  next  comma;  FRMEVL,  which  evaluates  the  formula; 
and  QINT,  which  converts  a  floating-point  number  to  an 
integer. 

Routine 


cooo 

HI 

«= 

100 

;  high  byte  after  QINT 

cooo 

LO 

= 

101 

;  low  byte 

cooo 

COMMA 

= 

$AEFD 

;  routine  that  looks  for  a  comma 

cooo 

FRMEVL 

= 

$AD9E 

;  evaluate  expression 

cooo 

QINT 

= 

$BC9B 

;  convert  floating-point  number  in  FAC1  to 
;  integer 

cooo 

LINPRT 

— 

SBDCD 

;  print  an  integer 

cooo 

20 

FD 

AE 

PASFMV 

JSR 

COMMA 

;  look  for  a  comma 

C003 

20 

9E 

AD 

JSR 

FRMEVL 

;  evaluate  the  expression 

C006 

20 

9B 

BC 

ISR 

QINT 

:  convert  the  FP  number  to  a  four-byte 
,  Integer 

C009 

A5 

65 

LDA 

LO 

;  low  byte 

COOB 

6D 

32 

CO 

5TA 

TOTAL 

;  store  it 

COOE 

A5 

64 

LDA 

HI 

;  high  byte 

C010 

8D 

33 

CO 

STA 

TOTAL+1 

;  is  saved  also 

C013 

20 

FD 

AE 

JSR 

COMMA 

;  get  the  next  number 

C016 

20 

9E 

AD 

JSR 

FRMEVL 

;  and  figure  it  out 

C019 

20 

?B 

BC 

|SR 

QINT 

;  convert 

coic 

18 

CLC 

CO  ID 

AS 

65 

LDA 

LO 

;  get  the  low  byte 

COIF 

6D 

32 

CO 

ADC 

TOTAL 

;  add  It 
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PASFMV  (64  only) 


C022  8D  32    CO 

C025  AA 

C026  A5  64 

C028  6D  33    CO 

C02B  8D  33    CO 

C02E  20  CD   BD 

C031  60 


C032     00     00  TOTAL  .BYTE    0.0 

See  also  GOTOBL,  PASMEM,  PASREG,  PASUSR. 


STA 

TOTAL 

TAX 

;  place  it  in  ,X 

LDA 

HI 

;  add  in 

ADC 

TOTAL+1 

;  the  high  byte,  also 

STA 

TOTAL+1 

ISP. 

UNPRT 

:  print  the  number 

RTS 
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Name 

Pass  values  from  BASIC  to  ML  by  POKEing  to  free  memory 

Description 

Although  this  technique  limits  the  values  you  can  pass  to 
numbers  in  the  range  0-255,  it's  one  of  the  simplest  ways  to 
pass  numbers  back  and  forth  from  BASIC  to  ML.  Use  PEEK 
and  POKE  in  BASIC,  LDA  and  STA  in  ML. 

Prototype 

1.  In  BASIC,  POKE  a  value  to  a  free  memory  location.  Then 
SYS  to  the  machine  language  routine. 

2.  In  the  ML  program,  LDA  (or  LDX  or  LDY)  the  number  and 
handle  it  as  you  wish. 

Explanation 

The  example  is  relatively  simple.  In  BASIC,  POKE  828  with  a 
number  0-255,  then  SYS  49152.  A  delay  loop,  based  on  the 
number  in  location  828,  will  execute  (MEM,  in  the  example). 
The  maximum  delay  is  255  jiffies,  or  about  four  seconds. 
While  the  delay  loop  is  running,  the  border  color  flashes  very 
quickly. 

Routine 


3 

J1F 
MEM 

- 

$A2 
828 

;  low  byte  of  jiffy  clock  (both  64  and  128) 
;  free  RAM  In  (he  cassette  buffer  for  the  64; 
;  use  another  free  memory  location  on  the 
i  128 
;  border  color  register 

cooo 

BORCOL 

- 

53280 

cooo 

78 

PASMEM 

SE1 

;  turn  oil  interrupts  while  the  routine  is  set 

C001 

AD  20 

DO 

LDA 

BORCOL 

;  up 

;  get  the  border  color 

C004 
COOT 
C00A 
COOC 
C00D 
C0OF 

8D    21 

AD  3C 

FO     OE 

18 

65     A2 

58 

CO 

03 

STA 

LDA 

BEQ 

CLC 

ADC 

CLI 

TEMP 
MEM 
QUIT 

Iff 

;  save  it 

;  get  the  value 

;  If  the  delay  is  zero,  don't  do  anything 

;  prepare  to  add 

;  to  the  current  jiffy  value 

;  interrupts  now  on 

C010 
C012 
COH 

C017 

C5    A2 

FO     06 
EE    20 
4C    10 

DO 
CO 

LOOP 

CMP 
BEQ 
INC 
JMP 

JIF 
QUIT 
BORCOL 
LOOP 

;  compare  .A  to  the  dock 
;  if  they're  equal,  end  the  delay 
;  flashing  effect  for  the  border 
:  go  back 

; 

;  restore  the  border  color 
;  and  end 

C01A 
CO  ID 
C020 

AD  21 
8D    20 
60 

CO 
DO 

qltt 

LDA 
STA 
RTS 

TEMP 
BORCOL 

C021     00  TEMP  BYTE    0 

See  also  GOTOBL,  PASFMV,  PASREG,  PASUSR. 
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Name 

Pass  values  to  an  ML  program  directly  through  the  registers 
Description 

By  POKEing  to  locations  780-783  (64  only),  you  can  set  the 
values  that  the  registers  .A,  .X,  .Y,  and  the  processor  status  .P, 
respectively,  will  hold  at  the  beginning  of  a  routine  called  with 
the  BASIC  statement  SYS.  BASIC  itself  handles  the  task  of 
transferring  the  contents  of  these  locations  into  the  proper  reg- 
isters. An  equivalent  technique  for  the  128  is  simply  to  include 
the  desired  values,  separated  by  commas,  following  the  SYS 
address. 

Prototype 

1.  Before  SYSing  to  the  routine,  POKE  the  desired  register  val- 
ues into  780-783. 

2.  In  the  routine,  handle  the  values  as  needed. 

Explanation 

The  example  routine  saves  A,  clears  the  carry  flag,  JSRs  to  the 
Kernal  PLOT  routine,  and  then  prints  the  character  in  A.  To 
call  it  from  BASIC,  assuming  you  want  to  print  the  letter  C  at 
row  20,  column  3,  use  this  syntax: 

POKE  780,67:  POKE  781,19:  POKE  782,2:  SYS  49152    Commodore  64 
SYS  3072,67,19,2    Commodore  128 

The  64  routine  is  at  49152,  and  the  128  routine  is  at  3072. 
After  returning  from  the  ML  program,  you  can  find  the  pre- 
vious values  of  A,  .X,  .Y,  and  .P  by  PEEKing  locations 
780-783  on  the  64,  or  by  using  RREG,  the  Read  REGister 
statement,  on  the  128. 


Routine 

cooo 
cooo 


cooo 
cooo 

C001 
C002 
C005 
C006 
C009 


CHROUT       = 
PLOT 

PASREG 


48 
18 
20 
68 
20 
60 


F0     FF 


D2    FF 


PHA 

CLC 

JSR 

PLA 

JSR 

RTS 


$FFD2 

$FFF0 


PLOT 
CHROUT 


;  .A,  .X,  and  .Y  should  already  hold  values 

,  save  .A.  because  plot  mighl  affect  il 

!  get  ready  to  plot 

;  x  and  y  position  are  set 

:  get .A  back 

;  print  it 


See  also  GOTOBL,  PASFMV,  PASMEM,  PASUSR. 
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PASUSR 


Name 

Pass  values  from  BASIC  to  ML  via  the  USR  function 

Description 

In  BASIC,  you  can  include  a  line  such  as  X  =  USR(G),  where 
the  value  of  the  variable  G  is  sent  (as  a  floating-point  value)  to 
a  machine  language  routine  stored  in  memory.  The  ML  routine 
can  then  pass  another  floating-point  value  back  to  the  BASIC 
program,  where  it  will  be  assigned  to  the  variable  X. 

Prototype 

1 .  Set  up  the  USR  function  by  POKEing  the  address  of  your 
ML  routine  into  locations  785-786  (locations  4633-4634  on 
the  128). 

2.  Calculate,  transform,  or  otherwise  use  the  value  in  the  float- 
ing-point accumulator. 

Explanation 

The  example  routine  takes  three  values.  If  the  value  passed  is 
1,  the  screen  is  cleared.  If  it's  2,  the  cursor  color  is  changed  to 
white.  If  it's  3,  the  string  HELLO  is  printed.  The  QINT  BASIC 
ROM  routine  converts  the  floating-point  value  to  an  integer  to 
be  handled  by  the  ML  program. 

After  assembling  the  program  to  49152,  POKE 
785,0:POKE786,192  to  set  up  the  pointer.  On  the  128,  sub- 
stitute POKE  4633,0:  POKE  4634,12  (these  are  the  low  and 
high  bytes  of  $0C00).  You'll  also  need  to  change  HI  and  LO  to 
102  and  103,  and  QINT  to  $8CC7  on  the  128.  Use  PASUSR 
from  BASIC  with  a  statement  of  the  form  Z  =  USR(l)  or 
USR(2)  or  USR(3). 

Routine 


cooo 

HI 

= 

100 

HI  =  102  on  the  128— high  byte  after 

QINT 

cooo 

LO 

i= 

101 

LO  =  103  on  the  128— low  byte 

cooo 

QINT 

m 

SBC9B 

QINT  -  $8CC7  on  the  128— convert 
floating-point  number  In  FAC1  to  integer 

cooo 

CHROUT 

= 

SFFD2 

Kemal  print  routine 

cooo 

20 

9B 

BC    PASUSR 

JSR 

QINT 

convert  FAC1  to  an  Integer 

C003 

A6 

t>5 

LDX 

LO 

get  the  low  byte 

COOS 

Ffl 

IB 

BEQ 

DONE 

if  zero,  quit 

C0O7 

E0 

04 

CPX 

#4 

if  It's  greater  than  3 

C009 

BO 

17 

BCS 

DONE 

skip  ahead  and  quit 

C00B 

CA 

DEX 

count  down  3-2-1 

COOC 

DO 

05 

BNE 

MORE! 

if  it  wa»  2  or  3,  keep  going 

C00I: 

A9 

93 

FN1 

IDA 

#147 

clear  screen 

C010 

4C 

D2 

FF 

IMP 

CHROUT 

print  it  (implied  RTS) 

C013 

CA 

MORE1 

DEX 

count  down  again 
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C014  DO    05 

C016  A9    05  FN2 

C018  4C     D2    FF 

C01B  AO    00  MORE2 

C01D  B9     2A    CO    ULOOP 

C020  DO    01 

C022  60  DONE 

C023  20     D2    FF     PRINIT 

C026  C8 

C027  4C    ID    CO 

C02A  48     45     4C    GREET 

C02F  OD    00 


BNE 

MORE2 

LDA 

#5 

JMP 

CHROUT 

LDY 

#0 

LDA 

GREET.Y 

BNE 

PRINIT 

RTS 

JSR 

CHROUT 

INY 

JMP 

ULOOP 

.ASC 

•'HELLO" 

.BYTE 

13,0 

if  not  zero,  move  ahead 
code  for  <white> 
print  it  (RTS  built  in) 

get  a  character 
if  zero 
then  quit 

else  print  It 

loop  counts  forward 

and  go  back  for  more 


See  also  GOTOBL,  PASFMV,  PASMEM,  PASREG. 
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PLOTCR 


Name 

Set  the  cursor  location 

Description 

PLOTCR  lets  you  locate  characters  anywhere  on  the  screen 
without  requiring  you  to  use  the  cursor  characters.  It  relies  on 
the  Kernal  routine  PLOT  to  position  the  cursor  for  subsequent 
printing. 

Prototype 

1.  Enter  this  routine  with  the  desired  cursor  position  in  .X 
(row)  and  .Y  (column). 

2.  Clear  the  carry  flag. 

3.  JSR  to  the  Kernal  routine  PLOT  and  RTS  (or  simply  JMP  to 
PLOT). 

Explanation 

In  the  example  program,  the  cursor  is  positioned  in  the  fifth 
column  of  the  fourth  row,  and  an  £  is  printed. 

The  X  register  should  contain  the  appropriate  row  number 
minus  one,  while  .Y  contains  the  column  number  less  one.  If 
you  are  working  within  a  window  on  the  128,  the  row  and 
column  values  are  relative  to  the  top  and  left  sides  of  the  win- 
dow rather  than  to  the  screen  borders. 

Note:  Using  .X  for  the  row  and  .Y  for  the  column  is  back- 
ward from  what  you  might  think.  In  most  Cartesian  co- 
ordinate systems,  x  is  the  horizontal  axis  (columns)  and  y  is 
the  vertical  axis  (rows).  The  Kernal  PLOT  routine  is  just  the 
opposite. 

Warning:  Be  sure  to  clear  the  carry  flag  before  accessing 
PLOT.  Otherwise,  if  carry  is  set,  PLOT  will  return  the  current 
cursor  position  in  .X  and  .Y  (used  in  FINDCR). 

Routine 

C000  PLOT  =         65520  ;  Kemal  cuisor  position  routine 

C000  CHROUT      -  65490 

;  Print  an  E  at  (4,5). 
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PLOTCR 


cooo 

A'' 

93 

CLRCHR 

LDA 

#147 

C002 

20 

D2 

FF 

|SR 

CHROUT 

coos 

A2 

03 

LDX 

#3 

C007 

AO 

04 

LDY 

#4 

C009 

20 

12 

CO 

ISR 

PLOTCR 

COOC 

A9 

45 

LDA 

»69 

COOE 

20 

D2 

FF 

JSR 

CHROUT 

con 

60 

RTS 

C012 

18 

PLOTCR 

CLC 

C013 

20 

FO 

FF 

JSR 

PLOT 

C016 

60 

RTS 

;  clear  the  screen 

>  fourth  row 

;  filth  column 

;  position  the  cursor 

;  print  E 


PoslHon  the  cursor  at  (,Y..X). 
dear  carry  to  set  position 
position  cursor 


See  also  FINDCR. 
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Name 

POKE  RAM  under  ROM  /  PEEK  RAM  under  ROM 

Description 

When  you  turn  on  the  64,  the  8K  BASIC  interpreter  ROM  at 
40960  and  the  8K  operating  system  Kemal  ROM  at  57344  are 
selected.  But  under  both  of  these  8K  areas  is  free  RAM  which 
you  can  access  by  altering  the  contents  of  the  memory 
configuration  register  at  location  1. 

These  areas  of  free  memory  can  be  used  in  many  ways: 
You  can  store  your  ML  programs  there  so  that  they  are  in- 
visible to  BASIC,  or  you  can  use  the  space  as  a  data  storage 
area  for  disk  copying,  word  processing,  and  sorting  routines. 

With  the  aid  of  two  routines,  POKRUR  and  PEKRUR,  the 
example  program  demonstrates  how  the  area  of  memory  un- 
der BASIC  ROM  can  be  used  as  a  buffer  for  storing  the  first 
two  screen  lines. 

Prototype 

In  POKRUR: 

1.  In  the  subroutine  TXTPTR,  store  the  address  of  memory  to 
be  transferred  (or  the  origin  address)  in  ZP;  store  the  ad- 
dress of  the  target  buffer  in  RAM  under  ROM  in  ZP+2. 

2.  Using  the  subroutine  NUMMOV,  store  the  number  of  bytes 
to  transfer  (defined  as  NUMBER  at  the  end  of  the  program) 
in  BUFCTR. 

3.  With  the  subroutine  MOVEIT,  transfer  memory  from  the 
origin  address  in  ZP  to  the  target  address  in  ZP+2. 

In  PEKRUR: 

1.  Push  the  current  RAM/ROM  configuration  register  in  loca- 
tion 1  on  the  stack. 

2.  Select  in  RAM  under  BASIC  ROM  at  40960. 

3.  Using  the  subroutine  TXTPTR,  store  the  address  of  the 
buffer  in  RAM  under  ROM  in  ZP,  and  the  destination  ad- 
dress of  regular  RAM  in  ZPH-  2. 

4.  Fetch  the  number  of  bytes  to  move  (NUMBER)  and  store 
this  value  in  BUFCTR  with  NUMMOV. 

5.  With  MOVEIT,  transfer  memory  from  the  address  in  ZP  to 
the  address  in  ZP+2. 

6.  Restore  the  RAM/ROM  configuration  register  in  location  1. 
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Explanation 

If  you  POKE  into  the  8K  of  memory  at  40960  or  at  57444, 
whatever  you  POKE  is  always  stored  into  the  underlying 
RAM.  PEEKing  these  areas  of  memory,  on  the  other  hand,  will 
return  either  the  contents  of  ROM  or  of  the  RAM  underneath, 
depending  on  the  state  of  the  configuration  register.  These 
principles  are  illustrated  by  POKRUR  and  PEKRUR  in  the 
program  that  follows. 

The  program  inserts  an  IRQ  interrupt  routine  that  allows 
you  to  save  or  retrieve  the  first  two  screen  lines  (text  only) 
placed  in  a  buffer  area  at  40960.  The  IRQ  routine  WEDGE 
checks  for  two  keys,  Fl  and  F3. 

If  the  user  presses  Fl,  POKRUR  saves  text  from  the  top 
two  screen  lines.  A  border  color  change  indicates  a  successful 
save.  When  F3  is  pressed,  PEKRUR  recalls  these  lines. 

POKRUR  and  PEKRUR  have  three  subroutines  in  com- 
mon: TXTPTR,  NUMMOV,  and  MOVEIT.  Zero-page  address- 
ing is  used  in  MOVEIT  to  transfer  bytes  from  the  screen  to  the 
buffer  or  vice  versa.  In  this  subroutine,  memory  is  always 
moved  from  the  address  in  ZP,  or  the  origin  address,  to  the 
address  in  ZP  +  2,  or  the  destination  address. 

And  this  is  where  TXTPTR  comes  into  play.  This  sub- 
routine sets  the  zero-page  pointers  according  to  the  direction 
of  the  move.  In  order  to  do  this,  a  0  or  a  2  must  be  in  the  X 
register.  If  you're  performing  a  save  (.X  =  0),  TXTPTR  initially 
points  ZP  to  TEXT  at  1024,  and  ZP  +  2  to  BUFFER  at  40960. 
Conversely,  if  you're  retrieving  the  buffer  (.X  =  2),  it  points 
ZP  to  BUFFER  and  ZP+2  to  TEXT. 

The  third  subroutine,  NUMMOV,  takes  the  number  of 
bytes  to  move — in  this  case,  80 — from  NUMBER  and  stores 
this  value  in  a  counter  (BUFCTR)  used  by  MOVEIT. 

There's  little  more  to  POKRUR  than  these  three  sub- 
routines. After  the  text  is  stored,  exit  the  routine  through  the 
normal  IRQ  interrupt  handler. 

PEKRUR  is  slightly  more  involved.  Before  fetching  the 
two  screen  lines  in  the  buffer,  save  the  contents  of  the 
configuration  register  at  location  1  so  that  you  can  later  restore 
it.  Next,  select  RAM  under  ROM  at  40960  by  turning  off  bit  0 
in  location  1,  and  execute  the  three  subroutines  (TXTPTR, 
NUMMOV,  and  MOVEIT). 

To  finish  the  routine,  restore  the  memory  configuration 
register  and  again  exit  through  the  interrupt  service  routine. 
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Note:  Follow  the  same  procedure  in  accessing  RAM  under 
Kernal  ROM.  The  only  difference  is  that  you  flip  bit  1  rather 
than  bit  0  in  location  1 .  Also,  since  the  interrupt-service  rou- 
tine is  handled  in  the  Kernal  area,  you  must  turn  off  interrupts 
with  SEI  before  you  access  the  RAM  under  ROM. 

Routine 


cooo 

ZP 

251 

cooo 

TRQVEC 

788 

cooo 

[RQNOR        - 

59953 

cooo 

LSTX 

197 

cooo 

EXTCOL 

53280 

cooo 

TEXT 

1024 

cooo 

BUFFER 

40960 

COOO    78 


C001  A9  0D 

C003  8D  14     03 

C006  A9  CO 

C008  8D  15     03 

C00B  58 


SETUP 


SEI 


LDA  #<W£DGE 

STA  IRQVEC 

LDA  B>WEDGE 

STA  IRQVEC +  1 
CLI 


C00C    60 


WEDGE 


COOD  A5  C5 

COOF  C9  04 

C011  FO  07 

C013  C9  05 

C015  FO  14 

C017  4C  31     EA    EXIT 


C01A    EE    20     DO    POKRUR 
C01D    A2    00 
COIF     20     43     CO 


LDA  LSTX 

CMP  *4 

BEQ  POKRUR 

CMP  #5 

BEQ  PEKRUR 

IMP  IRQNOR 


C022  20  5B  CO 
C025  20  68  CO 
C028     4C    17     CO 


INC 

LDX 

JSR 

JSR 
JSR 
JMP 


C02B  AS  01 

C02D  48 

C02E  29  FE 

C030  85  01 

C032  A2  02 

0034  20  43     CO 


EXTCOL 

#0 

TXTPTR 

NUMMOV 

MOVETT 

EXIT 


PEKRUR       LDA      1 


PHA 

and  #%umuo 

STA  I 

LDX  #2 

JSR  TXTPTR 


vector  to  IRQ  interrupt  routine 

normal  IRQ  interrupt  service  routine 

last  key  pressed 

border  color  register 

location  of  text  to  be  stored 

text  storage  buffer  under  BASIC  ROM 

Insert  IRQ  interrupt  wedge  to  store  the  top 

two  screen  lines  in  RAM 

under  BASIC  ROM  with  Fl  key  F3  brings 

back  the  two  lines  in  the  buffer. 

disable  IRQ  interrupts  to  change  IRQ  vector 

Then  store  the  address  of  our  routine  into 

IRQ  vector. 

low  byte  first 

then  high  byte 

We've  reset  the  vector.  Now  reenable  IRQ 
interrupts  and 
exit  setup. 

fetch  the  last  keypress 

is  It  Fl? 

save  the  top  two  screen  lines 

is  it  F3? 

recall  the  two  screen  lines 

service  the  standard  IRQ  routines 

POKRUR  stores  the  number  of  byles  in 

number  to  RAM  under  BASIC  ROM. 

change  border  color  lo  indicate  buffer 

storage 

so  ZP  points  to  TEXT  (origin),  ZP+2  to 

BUFFER  (target) 

set  up  zero-page  pointers  to  TEXT  and 

BUFFER 

get  number  of  bytes  to  move 

store  TEXT  in  BUFFER 

to  standard  IRQ  interrupt  routines 

PEKRUR  gets  the  number  of  bytes  in 
number  from  RAM  under  BASIC  ROM. 
store  the  current  RAM/ROM 
configuration  on  the  stack 

select  RAM  under  BASIC  ROM  by 
turning  off  bit  0 

so  two  bytes  at  ZP  point  to  BUFFER 

(origin),  ZP+2  to  TEXT  (target) 

set  up  zero-page  pointers  to  BUFFER  and 

TEXT 
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C037  20  SB     CO 

C03A  20  68     CO 

C03D  68 

C03E  85  01 

C040  4C  17     CO 


C043  A9    00 

C045  95     FB 

C047  E8 

C048  A9    04 

C04A  95     FB 

C04C  CA 

C04D  8A 

C04E  49     02 

C050  AA 

C051  A9    00 

C053  95     FB 

C055  E8 

C056  A9    AO 

C058  95     FB 

C05A  60 


TXTPTR 


JSR  NUMMOV 

JSR  MOVEIT 
PLA 

STA  1 

JMP  EXIT 


LDA  #<TEXT 

STA  ZP,X 

INX 

LDA  #>TEXT 

STA  ZP.X 


«2 


TXA 

EOR 

TAX 

LDA      #<BUFFER 

STA       ZP.X 

INX 

LDA      *>BUFFER 

STA       ZP.X 

RTS 


;  fetch  the  number  of  bytes  to  move 

;  recall  TEXT  from  BUFFER 

;  restore  RAM/ROM  configuration 

;  take  care  of  normal  IRQ  routines 

;  Set  origin  and  target  pointers.  Enter  with 

;  .X  =  0  to  point  ZP  to  TEXT. 

;  ZP+2  to  BUFFER.  Enter  with  .X  =  2  to 

;  point  ZP  to  BUFFER,  ZP+2  to  TEXT. 

j  gel  low  byte  of  TEXT 

;  store  to  ZP  (If  .X  was  0)  or  ZP+2  (if  X 

!  was  2) 

:  for  high  byte 

:  get  high  byte  of  TEXT 

;  store  to  ZP+1  (if  ,X  was  0)  or  ZP+3  (if  .X 

i  was  2) 

;  set  index  back  to  0  (if  ,X  was  0)  or  2  (if  .X 

;  was  2) 

;  change  .X  from  0  to  2  or  vice  versa 

;  get  low  byte  of  BUFFER 

;  store  to  ZP+2  (if  .X  was  0)  or  ZP  (if  .X 

;  was  2) 

;  for  high  byte 

;  get  high  byte  of  buffer 

:  store  to  ZP+3  (if  .X  was  0)  or  ZP+ 1  (if  .X 

i  was  2) 


C05B  AD  8A  CO  NUMMOV    LDA  NUMBER 

C05E  8D    8C  CO  STA  BUFCTR 

C061  AE   8B  CO  LDX  NUMBER +1 

C064  8E    8D  CO  STX  BUFCTR +1 

C067  60  RTS 


C068  A0  00 
C06A  Bl  FB 
C06C    91     FD 


C06E  E6  FB 

C070  DO  02 

C072  E6  FC 

C074  E6  FD 

C076  DO  02 


MOVETT        LDY       #0 
MOVELP       LDA       (ZP),Y 

STA       (ZP+2),Y 


INC       ZP 
BNE      INCTAR 


INCTAR 


INC  ZP+1 
INC  ZP+2 
BNE       LENCHK 


;  Store  number  of  bytes  to  transfer  in 
;  BUFCTR. 
;  low  byte  first 

;  then  high  byte 


MOVEIT  moves  bytes  from  address  in  ZP  to 
address  In  ZP+2. 
as  an  index  in  MOVELP 
get  a  byte  from  origin  (TEXT  or  BUFFER) 
and  move  it 

Increment  zero-page  pointers  for  both  origin 
and  target 

Increment  the  origin  ZP  pointers  first 
increment  low  byte 

if  low  byte  hasn't  turned  over,  increment 
target  pointers 
increment  high  byte 

increment  the  low  byte  of  the  target  pointer 
if  low  byte  hasn't  turned  over,  skip  over 
:  high-byte  increment 


POKRUR/PEKRUR  (64  only) 


C078  E6    FE  INCZP2 

C07A  CE   8C   CO    LENCHK 

C07D  DO   EB 

C07F  CE    8D    CO 

C082  AD  8D    CO 

C085  C9    EF 

C087  DO    El 

C089  60 


C08A    50     00 
C08C    00     00 


NUMBER 
BUFCTR 


INC       ZP+3 
DEC      BUFCTR 
BNE       MOVELP 

DEC  BUFCTR +1 

LDA  BUFCTR +1 

CMP  #255 

BNE  MOVELP 

RTS 

.WORD  80 
WORD0 


;  increment  high  byle  of  target  pointer 

;  decrement  low  byte  of  buffer  counter 

;  if  not  equal,  more  of  the  buffer  remains,  so 

;  continue  moving 

;  otherwise,  decrement  high  byte  of  buffer 

;  counter 

;  continue  moving  until  last  page  of  buffer 

|  has  transferred 

;  high  byte  goes  from  0  through  255  on  last 

ipage 

;  we've  yet  to  reach  last  page,  so  continue 


;  number  of  bytes  to  transfer 

;  two-byte  counter  for  remaining  number  of 

;  bytes  to  move 
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Name 

POKE  to  screen  and  color  memory 

Description 

With  POKSCR,  you  can  position  a  series  of  colored  characters 
beginning  at  any  location  on  the  text  screen. 

Prototype 

1 .  Define  the  screen  codes  of  the  characters  you  want  to  place 
on  the  screen  (as  SCODE)  and  their  corresponding  color 
values  (as  COLVAL). 

2.  Set  SCREEN  equal  to  the  first  screen  position  where  the 
characters  will  be  placed. 

3.  Load  the  accumulator  with  the  low  byte  of  SCREEN  and  .X 
with  its  high  byte.  Then  JSR  to  LOCATE. 

4.  In  LOCATE,  store  the  starting  text  position  in  zero  page. 
Calculate  the  starting  color-RAM  position  and  store  it  in 
zero  page  as  well. 

5.  Using  zero-page  addressing,  store  the  screen  codes  in  text 
memory  and  colors  in  color  RAM. 

Explanation 

The  following  program  puts  the  message  LINE  3  at  the  begin- 
ning of  line  3  on  the  text  screen.  Each  character  within  the 
message  is  shown  in  a  different  color  (except  for  the  space). 

The  subroutine  LOCATE  puts  the  initial  text  position 
(SCREEN)  and  color-RAM  position  for  the  message  in  zero 
page.  The  proper  color  memory  address  is  determined  by 
performing  a  two-byte  addition  of  SCREEN  to  OFFSET,  where 
OFFSET  represents  the  difference  between  text  and  color 
memory. 

POKSCR  can  easily  be  modified  to  store  screen  codes 
elsewhere  in  screen  memory.  Put  the  list  of  screen  codes  for 
your  characters  in  SCODE  and  the  color  of  each  in  COLVAL. 
Change  SCREEN  to  the  desired  screen  location.  Then  count 
the  number  of  screen  codes  and  replace  the  six  within 
POKELP  with  this  number. 

For  a  table  of  color  values,  see  COLFIL. 

Routine 


cooo 

OFFSET 

- 

54272 

;  o(f9ei  to  color  RAM 

CQOO 

SCREEN 

= 

1104 

:  starting  screen  position  where  characters  are 
i  stored 

COOO  ZP  =  251 
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cooo 

A9 

50 

POKSCR 

LDA 

#<SCREEN 

C0O2 

A2 

04 

LDX 

#>SCREEN 

COM 

20 

19 

CO 

JSR 

LOCATE 

C007 

AO 

00 

LDY 

#0 

COOT 

B9 

2£ 

CO 

POKELP 

LDA 

COLVAL.Y 

COOC 

91 

FD 

STA 

(ZP+2),Y 

COOE 

B9 

28 

CO 

LDA 

SCODE.Y 

C011 

91 

FB 

STA 

(ZP),Y 

C013 

C8 

INV 

COM 

CO 

06 

CPY 

#6 

C016 

DO 

Fl 

BNE 

POKELP 

C018 

50 

RTS 

:  Store  screen  codes  to  memory  with  color. 

;  low  byte  of  screen  position 

;  and  high  byte 

;  put  screen  position,  text  and  color  RAM, 

;  in  zero  page 

;  Now  place  characters  in  screen  memory  in 

;  color. 

.-  as  an  index 

,-  store  the  color  for  character  in  SCODE 
i  plus  -Y 

;  store  each  screen  code 
;  next  screen  code 
;  hare  we  done  all  six? 
;  if  not,  continue 


C019  85     FB  LOCATE 

C01B  86     FC 

C01D  18 

COTE  69     00 

C020  85     FD 

C022  8A 

C023  69     D4 

C025  85     FE 

C027  60 

C028  OC    09     OE    SCODE 

C02E  05     02     07    COLVAL 

See  also  PRTCHR. 


;  Enter  with  low  (.A)  and  high  (,X>  bytes  of 
;  screen  position. 

;  Store  starting  text  position  in  ZP  and 
;  ZP+1,  color  In  ZP+2  and  ZP+3. 


STA 

ZP 

;  store  screen  first  position 

STX 

ZP+1 

;  Add  in  offset  for  color  memory. 

CLC 

ADC 

#<OFFSET 

;  low  byte  Brst 

STA 

ZP+2 

TXA 

ADC 

#>OFFSET 

;  then  high  byte 

STA 

ZP+3 

RTS 

.BYTE 

12.9.14.5,32,51 

;  screen  codes  for  'TINE  3" 

.BYTE 

5,2,7.4.4,14 

;  colors— GRN,  RED.  YEL,  PUR,  PUR,  LT 
;BLU 


405 


PRTCHR 


Name 

Print  a  character  on  the  screen 

Description 

You'll  need  this  routine  anytime  you  print  a  character  on  the 
text  screen.  PRTCHR  relies  on  the  Kernal  routine  CHROUT  to 
locate  a  character  at  the  current  cursor  position. 

Prototype 

1.  Enter  this  routine  with  the  ASCII  value  of  the  character  you 
want  to  print  in  .A  (defined  as  CHAR). 

2.  JSR  to  the  Kernal  routine  CHROUT  and  RTS  (or  simply 
JMP  to  CHROUT). 

Explanation 

The  example  program  clears  the  screen  with  CLRCHR  and 
prints  a  /. 

Note:  On  the  128,  CHROUT  is  also  referred  to  as  BSOUT. 
Routine 


C000  CHROUT 


COOO  A9    93  CLRCHR 

C002  20     D2    FF 

C005  AD  10     CO 

C008  20     0C    CO 

C00B  60 


65490 


LDA  #147 

JSR  CHROUT 

LDA  CHAR 

JSR  PRTCHR 
RTS 


;  Kernal  character  output  routine 

;  Clear  screen  and  print  J. 
;  dear  the  screen 

;  get  the  character 
;  and  print  it 


C00C    20     D2    FF    PRTCHR 

CO0F     60 

C010     4A  CHAR 

See  also  POKSCR. 


JSR        CHROUT 
RTS 

-BYTE    74 


i  Print  the  character  in  .A, 

;  print  It  at  the  current  cursor  location 

;  ASCn  value  for  J 
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Name 

Send  characters  to  the  printer 

Description 

Open  a  channel  to  the  printer  and  output  an  ASCII  character 

Prototype 

1.  Using  OPENPR,  open  the  printer  channel  with  the  param- 
eters 4,4,0. 

2.  Load  the  accumulator  with  the  ASCII  character  you  wish  to 
print. 

3.  Print  it  with  the  Kernal  routine  CHROUT. 

4.  With  the  file  number  in  .A,  JMP  to  CLOSFL  to  close  the 
printer  channel  and  restore  output  to  the  screen. 

Explanation 

The  example  program  opens  the  printer  as  channel  4  and 
prints  an  uppercase  T.  For  a  program  that  prints  an  entire 
string,  see  PRTSTR. 

Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255;  the  device  num- 
ber is  usually  4.  Some  printers  can  also  use  5  as  a  device 
number. 

The  secondary  address  sends  information  on  Commodore 
printers  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7  causes  them  to  print  in  uppercase  and  lowercase.  Some 
printers  require  a  value  of  255  (for  no  secondary  address)  here. 
Consult  your  printer  or  interface  manual  to  determine  the  ex- 
act significance  these  parameters  have  with  your  printer  or 
printer  interface. 

Finally,  the  last  couple  of  instructions  are  necessary  on 
certain  printers  that  store  output  in  a  buffer  before  printing  it. 
Printing  the  carriage  return  insures  that  this  buffer  gets  printed. 

Routine 


cooo 

SETLFS 

- 

65466 

cooo 

OPEN 

— 

65472 

cooo 

CHKOUT 

= 

65481 

cooo 

CHROUT 

= 

65490 

cooo 

CLOSE 

= 

65475 

cooo 

CLRCHN 

65484 

Open  a  file  to  the  printer  with  OPENPR. 

print  T.  and 

close  printer  channel  with  CLOSFL. 

cooo 

20 

12 

CO 

PRTOUT 

JSR 

OPENPR 

open  the  printer 

C003 

A9 

54 

LDA 

#84 

print  T 

COOS 

20 

D2 

FF 

JSR 

CHROUT 
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C008  A9  OD 

COCA  20  D2    FF 

COOD  A9  04 

COOF  4C  23     CO 


LDA  #13 

JSR  CHROUT 

LDA  #4 

IMP  CLOSFL 


C012     A9    04  OPENPR       LDA      #4 

C014     A2    04  LDX       #4 


C016     A0    00 


C018  20  BA    FF 

C01B  20  CO    FF 

C01E  A2  04 

C020  4C  C9    FF 


LDY       #0 


ISR  SETLFS 

ISR  OPEN 

LDX  #4 

IMP  CHKOUT 


;  print  RETURN  to  clear  printer  buffer 

;  file  to  dose 

;  close  file  to  printer,  restore 

;  OPEN  the  printer  as  4,4,0. 

;  logical  file  4 

;  device  number  (printer  is  usually  device  4, 

;  sometimes  5) 

;  secondary  address  of  0 

;  A  value  of  0  here  causes  Commodore 

;  printers  to  print  m  uppercase /graphics. 

;  A  value  of  7  causes  Commodore  printers  to 

;  print  in  lowercase/uppercase. 

;  Some  printers  require  a  value  of  255 

;  (meaning  no  secondary  address). 

;  set  values 

;  open  a  file  to  printer  (OPEN  4.4,0) 

;  direct  output  to  file  4  (that  is,  CMD  4)  and 
;  RTS 


C023    20    C3    FF    CLOSFL       )SR       CLOSE 
C026     4C    CC    FF  JMP       CLRCHN 


See  also  CLOSFL,  OPENPR,  PRTSTR. 


;  CLOSFL  closes  the  logical  file  in  .A  and 

I  restores  default  devices. 

;  close  file  in   A 

;  clear  all  channels,  restore  default  devices 

: and  RTS 
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Name 

Send  a  string  to  the  printer 

Description 

PRTSTR  opens  a  channel  to  the  printer  and  prints  an  ASCII 
string. 

Prototype 

1.  OPEN  the  printer  channel  with  the  parameters  4,4,0  by 
using  OPENPR. 

2.  JSR  to  a  string-printing  routine. 

3.  After  printing  the  string,  send  a  carriage  return  to  clear  the 
printer  buffer. 

4.  With  the  number  of  the  open  file  in  .A,  JMP  to  CLOSFL  to 
close  the  printer  channel  and  restore  output  to  the  screen. 

Explanation 

The  example  program  opens  the  printer  as  channel  4  and 
prints  HELLO. 

Notice  the  custom  printing  routine  STRCPT;  it  works  with 
both  the  64  and  the  128.  You  could  shorten  the  program  some- 
what by  substituting  STP64  on  the  64  or  STP128  on  the  128. 

To  print  individual  characters,  see  PRTOUT. 

Note:  For  most  printers,  the  logical  file  number  for  the 
output  can  be  any  integer  in  the  range  0-255.  The  device 
number  is  usually  4  (with  nearly  all  Commodore  printers). 
Some  printers  can  also  use  5  as  a  device  number. 

The  secondary  address  sends  information  on  Commodore 
printers  about  the  character  set.  A  value  of  0  causes  Com- 
modore printers  to  print  in  uppercase  and  graphics.  A  value  of 
7  causes  them  to  print  in  uppercase  and  lowercase.  Some 
printers  require  a  value  of  255  (for  no  secondary  address)  here. 
It  is  best  to  consult  your  printer  manual  to  determine  the  exact 
significance  that  these  parameters  will  have  with  your  printer 
and/ or  interface. 

Routine 


cooo 

SETLFS 

= 

65466 

cooo 

OPEN 

= 

65472 

cooo 

CHKOUT 

= 

65481 

cooo 

CHROUT 

= 

65490 

cooo 

CLOSE 

B 

65475 

cooo 

CLRCHN 

= 

65484 

cooo 

ZP 

251 

Open  a  file  to  the  printer  with  OPENPR. 
print  a  string  with  STRCPT,  and 
close  the  channel  with  CtOSFL. 
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cooo 

20 

10 

CO 

PRTSTH 

JSR 

OPENPR 

;  open  the  printer 

C003 

20 

27 

CO 

)SR 

STRCPT 

;  print  the  string 

C006 

A9 

OD 

LDA 

#13 

;  print  RETURN  to  dear  printer  buffer 

COOS 

20 

D2 

FF 

JSR 

CHROLT 

COOB 

A9 

04 

LDA 

#4 

;  Hie  to  doge 

COOD 

4C 

21 

CO 

JMP 

CLOSFL 

;  close  file  to  printer;  restore  default  device 
,-  numbers  and  RTS 

;  OPEN  the  printer  file  as  4,4,0. 

COlO 

A9 

04 

OPENPR 

LDA 

Mi 

;  logical  file  4 

con 

A2 

04 

LDX 

#4 

;  device  number;  printer  Is  usually  device  4 
;  (sometimes  5) 

C014 

AO 

0.0 

LDY 

BO 

;  secondary  address 

C016 

20 

BA 

FF 

JSR 

SETLFS 

;  set  values 

C019 

20 

CO 

FF 

JSR 

OPEN 

;  open  a  file  to  printer 

COIC 

A2 

04 

LDX 

Hi 

C01E 

4C 

C9 

FF 

IMP 

CHKOUT 

;  direct  output  to  file  4  and  RTS 

;  Oases  the  logical  file  specified  in  A  and 
;  restores  default  devices. 

C02I 

20 

C3 

FF 

CLOSFL 

JSR 

CLOSE 

;  close  file  in  .A 

C024 

4C 

cc 

FF 

JMP 

CLRCHN 

;  clear  all  channels;  restore  default  devices 
;  and  RTS 

;  String  printing  routine 

CD27 

A9 

41 

STRCPT 

LDA 

»<STRING 

;  low  byte  of  string  address 

C029 

85 

FB 

STA 

ZP 

;  store  it 

C02B 

AO 

CO 

LDY 

#>STR1NC 

;  high  byte  ot  string  address 

CD2D 

84 

FC 

STY 

ZP+1 

;  store  it  also 

C02F 

AO 

00 

LDY 

#0 

;  initialize  Index 

C031 

Bl 

FB 

STRLOP 

LDA 

(ZP),Y 

;  load  each  character  from  string 

C033 

FO 

OB 

BEQ 

FINISH 

,  zero  byte  marks  end  of  string 

C035 

20 

D2 

FF 

JSR 

CHROUT 

;  print  character 

C038 

C8 

1NY 

;  for  next  character 

C039 

DO 

F6 

BNE 

STRLOP 

;  if  not  more  than  256  bytes,  then  get  next 
J  character 

C03B 

E6 

FC 

INC 

ZP+1 

;  otherwise,  increment  high-byte  address 
;  pointer  to  the  string 

C03D 

4C 

31 

CO 

JMP 

STRLOP 

;  and  continue  printing 

C040 

60 

FINISH 

RTS 

C041 

45 

45 

4C 

STRING 

.ASC 

"HELLO' 

;  string  to  print 

C046 

00 

.BYTE 

0 

;  ending  in  zero  byte 

See  also  CLOSFL,  OPENPR,  PRTOUT. 
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Name 

Print  a  string  from  a  lookup  table  of  addresses 

Description 

PTABAD  is  one  of  two  routines  presented  in  this  book  that 
print  strings  from  a  table  (the  other  is  PTABCT).  With 
PTABAD,  individual  entries  in  a  string  table  are  given  their 
own  labels.  A  corresponding  table  of  addresses  for  these  labels 
is  created.  So,  by  indexing  the  address  table,  you  can  find  the 
address  of  a  particular  string  from  the  table. 

As  with  PTABCT,  each  entry  must  end  in  a  zero  byte.  In 
this  case,  the  table  itself  can  contain  up  to  127  separate  en- 
tries. Strings  within  the  table  need  not  be  of  equal  length  since 
they  are  individually  indexed. 

Prototype 

1.  Enter  the  routine  with  A  holding  the  specified  entry  num- 
ber. With  ASL,  multiply  this  number  by  2. 

2.  Transfer  the  number  of  the  entrv  requested  (times  2)  from 
Ji  to  .X. 

3.  Store  the  address  bytes,  indexed  by  .X,  of  the  chosen  string 
in  zero  page. 

4.  Print  the  entry  with  STRCPT. 

Explanation 

The  example  program,  with  the  aid  of  PTABAD,  prints  a  word 
corresponding  to  a  number  in  the  range  0-9. 

The  program  accepts  only  the  number  keys  as  input  (see 
CHRGTR).  The  ASCII  value  of  the  number  you  specify  is 
ANDed  with  15,  giving  a  number  in  the  range  0-9. 

After  receiving  a  value,  the  program  calls  PTABAD,  where 
the  proper  string  is  printed,  and  then  waits  for  you  to  press 
another  number  key.  To  exit,  press  RUN/STOP-RESTORE. 

Note:  This  method  of  accessing  entries  in  a  string  table  is 
faster  than  the  method  used  in  PTABCT,  especially  if  there 
are  a  large  number  of  entries.  However,  since  each  entry  re- 
quires two  additional  addressing  bytes  (in  ADRTAB),  the 
multi-entry  tables  add  to  the  length  of  the  program.  If  you 
have  a  lot  of  short  entries  in  your  table,  you  may  prefer  to  use 
PTABCT  instead. 

Routine 

cooo 
cooo 
cooo 
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GET  IN 

=• 

65308 

CHROUT 

»= 

65490 

ZP 

= 

251 

PTABAD 


CUUO  20  h4     FF     WATT 

C003  C9  30 

C005  90  F9 

C007  C9  3A 

C009  BO  F5 

COOB  29  OF 

COOD  20  17     CO 

C010  A9  OD 

C012  20  D2    FF 

CO  15  DO  E9 


PTABAD 


STRCPT 
STRLOP 


C017  OA 

C018  AA 

C019  BD  35     CO 

CMC  85     FB 

C01E  BD  36     CO 

C021  85     FC 

C023  AO    00 

C025  Bl     FB 

C027  FO     OB 

C029  20     D2    FF 

C02C  CS 

C02D  DO    F6 

C02F  E6     FC 


C031     4C    25     CO 

COM     60  FINISH 


JSR  GETTN  ;  get  character  code  for  key 

CMP  #48  ;  compare  with  ASCII  0 

BCC  WAIT  ;  loo  low.  so  get  another  keypress 

CMP  #58  ;  compare  with  ASCII  9  plus  1 

BCS  WAIT  ;  too  high,  so  get  another  key 

AND  #15  ;  to  produce  value  0-9 

JSR  PTABAD  ;  print  corresponding  string  from  table 

LDA  #13  ;  print  RETURN 

JSR  CHROUT 

BNE  WAIT  .  look  for  another  number 

,  Enter  with  .A  containing  the  entry  number 

:  to  print  in  the  string  table. 

;  multiply  by  2  for  offset  into  address  table 

;  store  number  times  2  in  JC 

;  load  low  byte  of  address  for  number 

;  store  in  zero  page 

;  also  store  high  byte  in  zero  page 


ASL 
TAX 
LDA 
STA 
LDA 
STA 

LDY 
LDA 

BEQ 

ISR 

INY 

BNE 

INC 

JMP 
RTS 


ADRTAB,X 
ZP 

ADRTAB+1.X 
ZP+1 

#0 
(ZP),Y 

FINISH 
CHROUT 

STRLOP 
ZP+1 

STRLOP 


;  Print  out  number  string. 

;  Initialize  index 

;  load  each  character  from  entry  in  string 

;  table 

;  if  zero  byte,  you're  finished 

;  print  character 

;  next  character 

;  if  .Y  is  not  zero,  get  another  character 

;  otherwise,  increment  high-byte  address 

;  pointer  to  entry 

;  and  continue  printing 


C035     49    CO    4E    ADRTAB 


C049 

5A 

45 

52 

NO 

C04D 

00 

C04E 

4F 

4E 

45 

Nl 

C051 

00 

C052 

54 

57 

4F 

N2 

C055 

00 

C056 

54 

48 

52 

N3 

C05B 

00 

C05C 

46 

4F 

55 

N4 

C060 

00 

C061 

46 

49 

56 

N5 

C065 

00 

C066 

53 

49 

58 

N6 

C069 

00 

C06A 

53 

45 

56 

N7 

C06F 

00 

C070 

45 

49 

47 

N8 

C075 

00 

C076 

•IE 

49 

4E 

N9 

C07A 

00 

;  ADRTAB  contains  two-byte  addresses  of 

j  each  string  entry. 
.WORDN0,Nl,N2,N3,N4,N5,N6,N7,N8,N9 

;  string  table 
.ASC      "ZERO" 
-BYTEO 

.ASC      "ONE" 
.BYTEO 

.ASC      "TWO" 
.BYTEO 

.ASC      "THREE" 
•BYTEO 

.ASC      "FOUR" 
.BYTEO 

.ASC      "FIVE" 
.BYTEO 
.ASC      "SIX" 
.BYTEO 

-ASC      "SEVEN" 
.BYTEO 

.ASC     "EIGHT" 
.BYTEO 

.ASC     "NINE" 
BYTEO 


See  also  PTABCT,  STP128,  STP64,  STRCPT,  STRLEN. 
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Name 

Print  a  string  from  a  table  using  a  counting  method 

Description 

This  is  the  second  of  two  routines  that  print  string  messages 
from  a  table  (PTABAD  is  the  other).  PTABCT  relies  on  the 
fact  that  individual  strings  in  the  table  end  with  a  zero  byte. 
The  table  itself  can  contain  up  to  255  separate  entries. 

PTABCT,  unlike  many  routines  of  this  type,  does  not  use 
an  offset  to  address  an  individual  table  entry.  Because  of  this, 
strings  within  the  table  need  not  be  padded  with  spaces  to  in- 
sure they  are  equal  in  length. 

Prototype 

1.  Enter  with  the  address  of  the  string  table  contained  in  .X 
(low  byte)  and  .Y  (high  byte).  Store  the  address  in  a  zero 
page  pointer. 

2.  Transfer  the  number  of  the  entry  requested  from  .A  to  .X. 

3.  If  the  specified  entry  number  is  zero,  go  to  step  10  to  print 
ZERO. 

4.  Read  a  byte  from  the  STRING  table. 

5.  If  a  byte  is  nonzero,  branch  to  step  8. 

6.  Otherwise,  decrement  the  entry  counter  in  .X. 

7.  If  the  counter  value  has  reached  zero,  go  to  step  9. 

8.  Update  the  zero-page  pointer  so  that  it  points  to  the  next 
byte  and  JMP  to  step  4. 

9.  Increment  .Y  so  that  it  points  to  the  first  byte  in  the  speci- 
fied entry. 

10.  Print  the  chosen  entry  with  STRCPT. 

Explanation 

This  is  a  very  flexible  and  useful  routine.  In  a  variety  of  pro- 
grams, you'll  require  standard  messages  such  as  ARE  YOU 
SURE?,  PRESS  ANY  KEY,  PLEASE  WAIT,  LOADING  FILE, 
and  so  on.  If  you  assign  a  number  to  each  message,  you  can 
print  any  one  of  the  messages  by  calling  this  routine. 

In  the  example  program,  PTABCT  is  used  to  print  a  word 
corresponding  to  a  number  0-9.  Only  the  number  keys  (see 
CHRGTR)  are  acceptable  input.  The  ASCII  value  of  the  num- 
ber you  choose  is  ANDed  with  15,  yielding  a  number  0-9. 

Before  JSRing  to  PTABCT,  the  address  of  the  string  table 
must  be  placed  in  the  X  and  Y  registers. 

Basically,  PTABCT  operates  by  searching  through  the 
string  table,  character  by  character,  until  it  comes  upon  a  zero 
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byte,  which  indicates  the  end  of  another  entry.  At  this  point, 
the  counter  in  .X  is  decremented.  When  the  counter  value 
reaches  zero,  the  next  entry  is  the  chosen  string. 

After  printing  this  string,  the  program  waits  for  you 
to  press  another  number  key.  To  exit,  press  RUN/STOP- 
RESTORE. 

Note:  If  your  string  table  contains  a  considerable  number 
of  entries,  the  method  used  here — that  is,  counting  through  all 
the  entries — may  begin  to  slow  down  the  program.  In  that  case, 
use  PTABAD  where  individual  entries  are  addressed  separately. 

Routine 


Accept  only  keys  0-9  and  print  a  string  for 

the  number  from  a  table, 

gel  ASCII  key 

compare  with  ASCII  0 

too  low,  so  get  another  keypress 

compare  with  ASCII  9  +  1 

too  high,  so  get  another  key 

to  produce  value  0-9 

load  string  table  address  in  .X  and  .Y 

print  string  number  corresponding  to  .A 
print  RETURN 

get  another  number  key 

Enter  with  entry  number  in  .A,  string  table 
address  in  .X  and  .Y. 
store  low  and  high  byte  of  string  table 
address  in  zero  page 

as  an  index  in  LOOP  or  STRLOP  (if  zero) 

use  .X  to  hold  input  number 

if  zero,  print  it 

load  character  from  table 

if  not  a  zero  byte 

if  zero  byte,  decrement  Ihe  counter 

counter  is  at  zero,  so  print  string  from  the 

table 

to  point  to  next  character 

If  not  on  a  page  boundary,  get  next 

character 

otherwise,  Increment  high  byte  of  string 

address 

and  continue  to  look  at  characters 

Print  out  number  string  with  STRCPT 

since  string  begins  with  next  character. 

load  each  character  from  an  entry  in  string 

table 

if  zero  byte,  you're  finished 

print  character 


CO00 

CETIN 

= 

65508 

cooo 

CHROUT 

= 

65490 

C00Q 

ZP 

fc 

251 

COOO 

20 

E4 

FF 

WAIT 

JSR 

CETIN 

C003 

C9 

30 

CMP 

#48 

C005 

90 

F9 

BCC 

WAIT 

C007 

C9 

3A 

CMP 

#58 

C009 

B0 

F5 

BCS 

WAIT 

COOB 

29 

OF 

ANT) 

#15 

C00D 

A2 

46 

LDX 

#<STRTAB 

COOF 

A0 

CO 

LDY 

#>STRTAB 

COU 

20 

1C 

CO 

JSR 

PTABCT 

C014 

A9 

0D 

LDA 

#13 

CO  16 

20 

D2 

FF 

|SR 

CHROUT 

CO  19 

4C 

00 

GO 

IMP 

WAIT 

C01C 

M 

FB 

PTABCT 

STX 

ZP 

C01E 

84 

FC 

STY 

ZP+1 

C020 

A0 

00 

LDY 

#0 

C022 

AA 

TAX 

C023 

F0 

u 

BEQ 

STRLOP 

C025 

Bl 

FB 

LOOP 

LDA 

(ZP),Y 

C027 

DO 

03 

BNE 

INCZP 

C029 

CA 

DEX 

C02A 

F0 

09 

BEQ 

STRCPT 

C02C 

E6 

FB 

INCZP 

INC 

ZP 

C02E 

DO 

F5 

BNE 

LOOP 

COM 

E6 

FC 

INC 

ZP+1 

C032 

4C 

25 

CO 

rMP 

LOOP 

C035 

C8 

STRCPT 

1NY 

C036 

Bl 

FB 

5TRLOP 

LDA 

(ZP),Y 

C038 

FO 

OB 

BEQ 

FINISH 

C03A 

20 

D2 

FF 

ISR 

CHROUT 
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C03D 

C8 

INY 

;  next  character 

C03E 

DO 

F6 

BNE       STRIOP 

;  if  .Y  is  not  zero,  get  another  character 

C040 

E6 

FC 

INC      ZP+1 

:  otherwise,  increment  high-byte  address 
;  pointer  to  entry 

C042 

4C 

36 

CO 

JMP      STRLOP 

;  and  continue  printing 

C045 

60 

FINISH 

RTS 

;  string  table 

C046 

5A 

45 

52 

STRTAB 

ASC      'ZERO" 

C04A 

00 

.BYTE0 

C04B 

4F 

4E 

45 

.ASC      "ONE" 

C04E 

00 

.BYTEO 

C04F 

54 

57 

4F 

,ASC      'TWO" 

C052 

00 

.BYTEO 

C053 

54 

48 

52 

ASC       THREE" 

C058 

00 

.BYTEO 

C059 

46 

4F 

55 

.ASC      "FOUR" 

C05D 

00 

.BYTEO 

COSE 

46 

49 

56 

.ASC      "FIVE" 

C062 

00 

-BYTEO 

C063 

53 

49 

58 

.ASC      "SIX" 

C066 

00 

BYTEO 

C067 

53 

45 

56 

.ASC      "SEVEN" 

C06C 

00 

.BYTEO 

C06D 

45 

49 

47 

.ASC     "EIGHT" 

C072 

00 

.BYTEO 

C073 

4E 

49 

4B 

.ASC      "NINE" 

C077 

00 

.BYTEO 

See  also  PTABAD,  STP128,  STP64,  STRCPT,  STOLEN. 


RAS64  (64  only) 


Name 

Set  up  a  raster  interrupt 

Description 

This  routine  seemingly  performs  magic.  Instead  of  one  screen, 
suddenly  there  are  two  half-screens,  each  with  its  own  back- 
ground color  and  eight  sprites.  Running  the  sample  BASIC 
program  gives  you  a  total  of  16  independent  sprites  (each  lim- 
ited to  one  half  of  the  screen  or  the  other)  which  can  be  dis- 
played at  the  same  time. 

Prototype 

This  is  a  two-part  routine.  In  the  first  part,  RAS64: 

1.  Disable  all  CIA  #1  IRQ  interrupt  sources. 

2.  Redirect  the  IRQ  interrupt  vector  at  788  to  the  main  raster 
interrupt  routine  (MAIN). 

3.  Clear  the  ninth  bit  of  the  raster  compare  register  (bit  7  of 
location  53265). 

4.  Enable  the  raster  compare  IRQ  interrupt. 

5.  Create  two  sets  of  shadow  registers  for  the  VIC-II  chip  reg- 
isters (53248-53294)  by  copying  them  twice  into  free 
memory. 

6.  Then  RTS. 

In  MAIN: 

1.  Prevent  other  interrupts  from  occurring  by  clearing  the 
interrupt  condition. 

2.  Determine  where  the  last  raster  line  was  drawn  by  reading 
the  raster  compare  register  at  53266. 

3.  If  it  was  less  than  147,  store  a  147  into  the  raster  register  so 
the  next  raster  interrupt  occurs  at  this  line  (the  middle  of 
the  screen).  Otherwise,  store  a  one  in  this  register  so  the 
raster  interrupt  occurs  at  the  top  of  the  screen, 

4.  Allow  the  current  raster  line  to  finish  drawing  and  then 
copy  the  appropriate  set  of  shadow  registers  into  the  VlC-fl 
chip  (representing  either  the  top  or  bottom  of  the  screen). 

5.  Check  the  interrupt  control  register  (CIAICR)  for  a  Timer  A 
interrupt.  If  one  has  occurred,  execute  the  normal  IRQ  ser- 
vice routine.  Otherwise,  restore  the  stack  and  RTI. 

Explanation 

On  the  64,  the  normal  hardware  interrupt  happens  60  times  a 
second  (50  times  per  second  on  European  64s).  One  of  the 
CIA  chips  is  given  the  responsibility  of  counting  down  and 
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triggering  an  interrupt  after  a  certain  period  of  time  has 
elapsed.  The  hardware  interrupt  is  a  maskable  interrupt  re- 
quest (IRQ),  not  a  nonmaskable  interrupt  (NMI).  Maskable 
means  it  can  be  turned  off. 

The  hardware  interrupt  is  important  because  it  causes  the 
CPU  (the  brains  of  the  64)  to  pause  what  it's  doing  and  ser- 
vice the  interrupt.  During  the  service  routine,  the  cursor 
blinks,  the  keyboard  is  checked  for  keypresses,  and  the  jiffy 
clock  is  updated. 

The  ML  program  below  first  turns  off  the  normal  inter- 
rupt. It  will  no  longer  be  triggered  by  the  CIA  clock.  Instead, 
we  turn  on  a  different  interrupt,  one  caused  by  the  position  of 
the  raster  on  the  screen.  North  American  TVs  and  monitors 
normally  use  525  raster  lines  per  screen,  but  the  64  draws 
only  half  this  many,  so  there  are  effectively  262.5  lines  per 
screen.  Of  these,  200  make  up  the  text  screen  and  the  addi- 
tional lines  form  the  top  and  bottom  borders.  The  raster  lines 
of  the  visible  screen  are  numbered  50-250.  The  halfway  point 
on  the  screen  is  raster  line  150. 

The  IRQVEC  at  788  normally  points  to  the  interrupt  ser- 
vice routine  (which  reads  the  keyboard  and  handles  the  other 
housekeeping  chores).  The  first  thing  we  do  after  disabling  the 
interrupt  is  change  the  vector  to  point  to  our  routine.  Next,  the 
raster  interrupt  is  turned  on  and  we  make  two  copies  of  the 
VIC  chip  registers,  one  at  $000  (49408)  and  the  other  47 
bytes  higher. 

Now  interrupts  are  triggered  when  the  raster  beam 
reaches  a  certain  line  on  the  screen.  When  line  147  appears, 
suddenly  an  interrupt  occurs.  The  register  RASTER  does  two 
things.  If  you  read  it,  it  tells  you  which  line  is  being  drawn.  If 
you  write  to  it,  you  set  the  value  for  a  raster  interrupt.  If  the 
raster  is  in  the  middle  of  the  screen,  we  want  to  enable  a  new 
raster  interrupt  to  happen  at  line  1.  If  the  raster  is  at  line  1,  we 
change  the  interrupt  to  happen  at  line  147.  After  each  inter- 
rupt, the  main  routine  copies  one  of  the  two  shadows  of  the 
VIC  chip  to  the  VIC  chip. 

Since  there  are  two  complete  copies  of  the  VIC  chip,  you 
can  treat  the  two  halves  of  the  screen  as  two  separate  screens. 
One  could  be  in  multicolor  hi-res  mode  while  the  other  is 
displaying  normal  text.  You  can  give  each  half  separate  border 
and  background  colors.  Each  halfscreen  has  its  own  eight 
sprites,  with  which  you  can  do  what  you  please. 
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After  assembling  and  SYSing  to  the  RAS64  program,  type 
in  and  run  the  following  short  BASIC  program  to  see  the  ef- 
fects of  the  raster  interrupt: 
10  PRINT  CHR$(147):POKE  49408 +33,0:POKE  49455+ 33,0 :REM 

BACKGROUND  BLACK 
15  FOR  A-832  TO  896:POKE  A,255:NEXT:REM  DEFINE  BLOCK  SPRITE 
20  FOR  A =2040  TO  2047:POKE  A,13:NEXT:REM  SET  SPRITE  POINT- 
ERS TO  BLOCK  SPRITE 
30  POKE  49408 +  21,255:POKE  49455 +21,255:REM  ENABLE  SPRITES 
(TOP/BOTTOM) 

39  REM  HORIZONTAL  POSITION  (TOP/BOTTOM) 

40  FOR  A=49408  TO  49422  STEP  2:POKE  A,B*25+50:POKE 
A+47,B*25  +  50:B =B  +  l.-NEXT 

49  REM  VERTICAL  POSITION  (TOP/BOTTOM) 

50  FOR  A  =  49409  TO  49423  STEP  2:POKE  A,100:POKE  A+47,200:NEXT 


Routine 

cooo 


cooo 


VIC 

NEWV1C 

qiArcR 

SCROLY 

IRQMSK 

V1CIRQ 

RASTER 

IRQVEC 

IRQNOR 

1RQEND 


COOO     A9    7F  RAS64 

C002     8D    0D    DC 
C005      A9    28 


COOO 


C0I17 
CO0A 
CO0C 
C00F 

con 

COM 
C016 
C019 
C01B 


03 


8D  14 

A9  CO 

8D  15 

A9  IB 

8D  11 

A9  01 

8D  1A 

A0  2E 

B9  00     DO    COPY 


03 


DO 


DO 


C01E     99     00     CI 
C021      99     2F     CI 


C024     88 
C025     10     F4 
C027     60 


LDA 
STA 
LDA 

STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 

STA 

STA 


DEY 
BPL 
RTS 


53248 
49408 
56333 
53265 

53274 

53273 

53266 

788 

59953 

65212 

#S7B 

CIA1CR 

#<MAIN 

ERQVEC 

#>MAIN 

IRQVEC +  1 

#%00011011 

SCROLV 

#1 

IRQMSK 

#46 

VIC,Y 

NEWVIC.Y 


;  start  of  VIC  chip  registers 

;  shadow  registers  for  VIC  chip 

:  interrupt  control  register 

;  scrolling/control  register  (bit  7  is  high  bit  of 

;  raster) 

:  IRQ  mask  register 

;  VIC  interrupt  flag  register 

;  read/write  raster  compare  register 

;  IRQ  interrupt  vector 

:  normal  IRQ  handler  routine 

;  end  of  IRQ  interrupt  handler  (clean  stack 

;  and  RTt) 


;  turn  off  CIA  #1  interrupts 

;  redirect  IRQ  interrupt  vector  to  main,  low 

;  byte  first 


NEWVIC+47.Y 


;  then  high  byte 


;  clear  high  bit  of  raster  compare  register 

;  enable  raster  interrupts 

;  index  for  COPY 

j  copy  47  VIC  registers  as  two  sets  of 

j  Bftadow  registers 

;  initialize  shadow  registers  for  top  of 

;  screen  (set  1) 


COPY 


;  initialize  shadow  registers  for  bottom  of 

;  screen  (set  2) 

;  next  lower  VIC  register 

;  are  all  copied? 


C028     A9    01 


MAIN 


LDA     #1 


;  Main  raster  interrupt  routine  follows. 


RAS64  (64  only) 


C02A 

8D 

19 

DO 

STA 

vicntQ 

C02D 

A2 

93 

LDX 

#147 

C02F 

AO 

2E 

LDY 

#46 

C031 

AD 

12 

DO 

LDA 

RASTER 

C034 

C9 

93 

CMP 

#147 

COM 

90 

04 

BCC 

TOP 

C03S 

A2 

01 

LDX 

#1 

C03A 

AO 

5D 

LDY 

#93 

C03C 

8A 

TOP 

TXA 

C03D 

48 

PHA 

C03E 

A2 

03 

LDX 

#3 

C040 

CA 

DELAY 

DEX 

C041 

DO 

FD 

BNE 

DELAY 

C043 

EA 

NOP 

C044 

A2 

2E 

LDX 

#46 

C046 

B9 

00 

CI    COPYBK 

LDA 

NEWVIC.Y 

C049 

9D 

00 

DO 

STA 

VIC,X 

C04C 

SS 

DEY 

C04D 

CA 

DEX 

C04E 

in 

F6 

BPL 

COPYBK 

C050 

68 

PLA 

C051 

8D 

12 

DO 

STA 

RASTER 

COS4 

AD 

OD 

DC 

LDA 

C1A1CR 

C057 

4A 

LSR 

COS8 

90 

03 

BCC 

NOIRQ 

C05A 

1C 

31 

EA 

JMP 

IRQNOR 

C05D    4C    BC    FE    NOIRQ         JMP       IRQEND 

See  also  IRQINT,  NMJJNT,  RAS128. 


;  prevent  normal  raster — clear  interrupt 

i  condition 

I  raster  line  in  the  middle  of  screen 

;  index  for  VIC  registers  to  copy  (or  top  of 

;  the  screen  (set  II 

;  get  the  current  raster  line  number 

;  determine  if  it's  on  the  top  half  of  screen 

;  if  so,  skip  to  TOP 

;  raster  line  for  top  of  screen 

;  index  for  set  2  registers  (bottom  of  screen 

;  registers) 

;  raster  line  becomes  1  (if  now  on  bottom) 

;  or  147  (if  now  on  top) 

;  save  it  temporarily 

;  wait  for  current  raster  line  to  finish 

;  drawing 


slight  adjustment  to  DELAY 

index  for  COPYBK 

copy  from  set  1  or  2  VIC  shadow  registers 

to  VIC  registers 


:  copy  47  values 

;  get  new  raster  line  (1  or  147) 

;  set  raster  for  next  interrupt 

;  bit  1  set  if  IRQ  interrupt  is  needed 

:  bit  is  clear  so  no  IRQ  interrupts 

;  otherwise,  call  normal  IRQ  interrupt 

:  routine 

;  clean  up  stack  and  RTI 


419 


RAS128  (128  only) 


Name 

Set  up  a  raster  interrupt 

Description 

This  is  the  128  version  of  RAS64.  It  splits  the  screen  in  two 
and  provides  two  shadows  of  the  VIC  chip,  which  can  be  set 
to  any  of  the  video  modes  (hi  res,  multicolor  hi  res,  or  text). 
Each  half  has  its  own  eight  sprites  as  well. 

Prototype 

This  is  a  two-part  routine.  In  the  first  part,  RAS128: 

1.  Disable  all  IRQ  interrupt  sources. 

2.  Redirect  the  IRQ  interrupt  vector  at  788  to  the  main  raster 
interrupt  routine  (MAIN). 

3.  Clear  the  ninth  bit  of  the  raster  compare  register  (bit  7  of 
location  53265). 

4.  Create  two  sets  of  shadow  registers  for  the  VIC-II  chip  reg- 
isters (53248-53294)  by  copying  them  twice  into  free 
memory. 

5.  Reenable  IRQ  interrupt  sources  and  then  RTS. 

In  MAIN: 

1.  Clear  decimal  mode  as  required  by  the  normal  IRQ  inter- 
rupt handler. 

2.  Prevent  normal  raster  interrupts  from  occurring  by  clearing 
the  interrupt  condition. 

3.  Determine  where  the  last  raster  line  was  drawn  by  reading 
the  raster  compare  register  at  53266. 

4.  If  it  was  less  than  147,  store  a  147  into  the  raster  register  so 
the  next  raster  interrupt  occurs  at  this  line  (the  middle  of 
the  screen).  Otherwise,  store  a  one  in  this  register  so  the 
raster  interrupt  occurs  at  the  top  of  the  screen. 

5.  Allow  the  current  raster  line  to  finish  drawing  and  then 
copy  the  appropriate  set  of  shadow  registers  into  the  VIC-II 
chip  (for  either  the  top  or  bottom  of  the  screen). 

6.  Check  a  flag  to  see  if  the  cursor  needs  blinking  (every  other 
time  through  the  routine).  If  so,  execute  the  normal  IRQ 
interrupt  handler  routine  (except  for  the  any  raster-related 
routines).  Otherwise,  leave  through  the  common  interrupt 
exit  point  at  65331. 
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Explanation 

For  a  more  detailed  explanation  of  what  interrupts  are,  see  the 
RAS64  routine.  Much  of  this  program  is  very  similar  to 
RAS64.  It  assembles  to  $0C00  on  the  128,  and  the  shadows  of 
the  VIC  chip  are  at  3328  ($0D00). 

After  assembling  and  SYSing  to  the  ML  raster  interrupt 
routine,  run  this  short  BASIC  program  to  see  the  effects  of  the 
raster  split: 

10  SCNCLR:POKE  2564,0:REM  TURN  OFF  NORMAL  SPRITE 

ROUTINES 
15  FOR  A-3584  TO  3647:POKE  A,255:NEXT:REM  DEFINE  BLOCK 

SPRITE 
20  FOR  A =2040  TO  2047:POKE  A,56:NEXT:REM  SET  POINTERS  TO 

BLOCK  SPRITE  DATA 
30  POKE  3328+21,255:POKE  3375+21,255:  REM  ENABLE  SPRITES  FOR 

TOP/BOTTOM 

39  REM  HORIZONTAL  POSITIONS  (TOP/BOTTOM) 

40  FOR  A =3328  TO  3342  STEP  2:POKE  A,B*25+50:POKE 
A+47,B»25+50:B=B  +  1:NEXT 

49  REM  VERTICAL  POSITIONS  (TOP/BOTTOM) 

50  FOR  A=3329  TO  3343  STEP  2:POKE  A,100:POKE  A+47,200:NEXT 

Routine 


ocoo 

VIC 

= 

53248 

;  start  of  VIC  chip 

ocoo 

NEWVIC 

= 

3328 

;  shadow  registers  for  VIC  chip 

ocoo 

vraRQ 

— 

53273 

;  VIC  interrupt  flag  register 

ocoo 

RASTER 

= 

53266 

;  read/write  raster  compare  register 

ocoo 

IRQVEC 

= 

788 

;  IRQ  interrupt  vector 

ocoo 

IRQTXT 

= 

49636 

;  text-mode  portion  of  IRQ  editor  routine 

ocoo 

IRQNRP 

= 

64107 

;  entry  point  to  IRQ  handler  just  beyond 
;  raster  handler 

ocoo 

CRT1 

= 

65331 

:  interrupt  exit  routine  (clean  stack  and  RTi) 

ocoo 

ZP 

= 

251 

ocoo 

78 

RAS128 

SEI 

;  disable  all  IRQ  interrupts 

0C01 

A9 

IB 

LDA 

#<MAIN 

;  redirect  IRQ  interrupt  vector  to  main,  lot 
;  byte  first 

0C03 

aD 

14 

03 

STA 

IRQVEC 

0C06 

A9 

0C 

LDA 

#>MAIN 

;  then  high  byte 

0C08 

8D 

15 

03 

STA 

IRQVEC+1 

0C0B 

A0 

2E 

LDY 

#46 

;  index  for  COPY 

0C0D 

B9 

00 

DO 

COPY 

LDA 

V1C.Y 

;  copy  47  VIC  registers  as  two  sets  of 
:  shadow  registers 

0C10 

*> 

00 

01) 

STA 

NEWVICY 

;  initialize  shadow  registers  for  top  of 
,-  screen  (set  1) 

0C13 

99 

2F 

0D 

STA 

NEWVIC+47.Y 

;  initialize  shadow  registers  for  bottom  of 

;  screen  (set  2) 

0Q6 

8S 

DEY 

;  next  lower  VIC  register 

0C17 

10 

F4 

BPL 

COPY 

;  are  all  copied? 

OCT  9 

58 

CL1 

;  reenable  IRQ  interrupts 

0C1A 

60 

RTS 
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0C1B     DS 


MAIN 


CLD 


OCIC 

A9 

01 

LDA 

#1 

0C1E 

8D 

19 

DO 

STA 

VIORQ 

0C21 

A2 

93 

LDX 

#147 

0C23 

AO 

2E 

LDY 

#46 

0C25 

AD  12 

DO 

LDA 

RASTER 

0C28 

C9 

93 

CMP 

#147 

0C2A 

90 

04 

BCC 

TOP 

0C2C 

m 

1)1 

LDX 

#1 

0C2E 

A0 

5D 

LDY 

#93 

0C3O 

8A 

TOP 

TXA 

0C31 

48 

PHA 

0C32 

A2 

0A 

LDX 

#10 

0C34 

CA 

DELAY 

DEX 

0C35 

DO 

FD 

BNE 

DELAY 

0C37 

A2 

2E 

LDX 

#46 

0C39 

B9 

00 

0D    COPYBK 

LDA 

NEWVIC,Y 

0C3C 

9D 

00 

DO 

STA 

VIC.X 

OOF 

SS 

DEY 

0C40 

CA 

DEX 

0C41 

10 

F6 

BPL 

COPYBK 

0C43 

68 

PLA 

0C44 

8D 

12 

DO 

STA 

RASTER 

0C47 

AS 

FB 

LDA 

ZP 

0C49 

49 

80 

EOR 

#128 

0C4B 

85 

FB 

STA 

ze 

0C4D 

10 

07 

BPL 

NOCURS 

0C4F 

38 

SEC 

0C50 

20 

E4 

a 

JSR 

IRQTXT 

0C53     4C    6B    FA  JMP       IRQNRP 

0CS6    4C    33    FF    NOCURS     JMP      CRTI 

See  also  IRQINT,  NMIINT,  RAS64. 


;  Main  taster  interrupt  routine  follows. 
;  clear  decimal  mode  (required  by  normal 
;  IRQ  handler) 

;  prevent  normal  raster— dear  interrupt 

;  condition 

;  raster  line  in  the  middle  of  screen 

;  index  for  VIC  registers  to  copy  for  top  of 

;  the  screen  (set  1) 

:  get  the  current  raster  line  number 

;  determine  if  if  s  on  the  top  half  of  screen 

;  if  so,  skip  to  TOP 

;  raster  line  for  top  of  screen 

;  index  tor  set  2  shadow  registers  (bottom 

;  of  screen  registers) 

;  raster  line  becomes  1  (if  now  on  bottom) 

;  or  147  (if  now  on  top) 

;  save  it  temporarily 

;  wait  for  current  raster  line  to  finish 

;  drawing 


;  index  for  COPYBK 

I  copy  from  set  1  or  2  VIC  shadow  registers 

;  to  VIC  registers 


;  copy  47  values 

;  get  new  raster  line  (1  or  147) 

;  set  raster  for  next  interrupt 

;  flag  for  cursor 

;  flip  it  to  positive  or  negative 

;  save  result  for  next  pass 

I  only  go  to  the  cursor  routine  half  the  time 

i  required  by  following  routine 

;  go  to  text-mode  portion  of  IRQ  editor 

;  routine,  skipping  raster 

;  continue  beyond  normal  raster  routine 

;  clean  the  stack  and  RT1  (common 

;  Interrupt  exit  point) 
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Name 

Generate  a  random  two-byte  integer  value  using  SID  voice  3 

Description 

RNDBYT  returns  a  one-byte  random  integer  using  voice  3  of 
the  SID  chip.  RD2BYT  also  relies  on  voice  3  to  generate  a 
random  integer  value.  This  time,  two  separate  bytes  are  re- 
turned. One  represents  the  high  byte  of  the  number;  the  other, 
the  low  byte.  A  random  two-byte  integer  value  in  the  range 
0-65535  is  produced. 

Prototype 

In  an  initialization  routine  (RDINIT): 

1.  Set  voice  3  to  a  high  frequency 

2.  Select  the  noise  waveform. 

3.  Turn  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RD2BYT  itself: 

1.  Load  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  into  .X. 

2.  Cause  a  delay  of  two  jiffies. 

3.  Load  a  second  value  from  RANDOM  into  .A. 

Explanation 

In  the  example  program,  a  random  two-byte  integer  is  gen- 
erated by  RD2BYT  and  printed  on  the  screen. 

The  setup  for  RD2BYT  is  the  same  as  in  RNDBYT.  Voice 
3's  random  number  generator  is  first  initialized  by  JSRing  to 
RDINIT.  For  a  full  explanation  of  how  the  random  number 
generator  is  accessed,  refer  to  RNDBYT. 

After  the  random  number  generator  has  been  initialized, 
two  individual  random  byte  values  are  taken  from  RANDOM 
(54299)  within  RD2BYT.  One  is  returned  in  the  X  register, 
and  the  other  in  the  accumulator.  It  really  doesn't  matter 
which  is  which. 

Notice  that  between  taking  these  two  bytes,  a  delay  of 
two  jiffies  (a  total  of  2/60  second)  is  carried  out.  This  insures 
that  the  current  waveform  has  had  time  to  change  before  the 
next  byte  is  taken.  If  not  for  this  delay,  the  two  bytes  would  be 
very  close  in  value,  and  we'd  lose  our  randomness. 
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Routine 


cooo 

GET1N 

— 

65508 

cooo 

L1NPRT 

= 

48589 

cooo 

FREHI3 

= 

54287 

cooo 

VCREG3 

— 

54290 

cooo 

SIGVOL 

= 

54296 

cooo 

RANDOM 

= 

54299 

cooo 

JIFFY 

= 

162 

COOO     20     09     CO    MAIN  JSR        RDINIT 

C003     20     17     CO    LOOP  ISR        RD2BYT 

C006     4C    CD  BD    NUMOUT    JMP       LINPRT 


C009  A9  FF  RDINTT 

COOB  8D  OF     D4 

COOE  A9  80 

COIO  8D  12     D4 

COB  8D  18     D4 

C016  60 


C017  AE    IB    D4    RD2BVT 

C01A  AS    A2 

C01C  69     02 

C01E  CS    A2  DELAY 

C02O  DO    FC 

C022  AD  IB     D4 

C025  60 


LDA  #$FF 

STA  FREHI3 

LDA  #%10000000 

STA  VCREG3 

STA  SIGVOL 

RTS 


LDX  RANDOM 

LDA  JIFFY 

ADC  #2 

CMP  JIFFY 

BNE  DELAY 

LDA  RANDOM 
RTS 


LINPRT  =  36402  on  the  128 

voice  3  frequency  control  (high  byte) 

voice  3  control  register 

volume  and  filter  select  register 

oscillator  3/  random  number  generator 

jiffy  clock  (jiffies) 

Generate  a  random  integer  (0-65535)  from 

51D  chip  voice  3. 

Initialize  SID  voice  3  for  random  numbers 

get  a  random  two-byte  integer 

two  random  bytes  are  in  .A  and  .X 

So  print  the  resulting  two-byte  integer  (see 

NUMOUT). 

Routine  to  initialize  SID  voice  3  for  random 

numbers. 

set  voice  3  frequency  (high  byte)  to 

maximum 


select  noise  waveform  and  start  release 
turn  off  volume  and  disconnect  output  of 
voice  3 


RD2BYT  returns  a  two-byte  integer  in  .X 
and  .A. 

get  tingle-byte  random  number 
pseudorandom  delay 

wait  till  jiffy  clock  reads  the  original 

value  plus  2 

otherwise,  wait 

get  a  second  random  byte 


See  also  RDBYRG,  RND1VL,  RNDBYT. 
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RDBUFF 


Name 

Open  a  disk  channel,  read  a  sector,  copy  the  disk  buffer  to 
memory 

Description 

This  is  a  fairly  low-level  routine  for  reading  a  given  disk  sector 
into  a  buffer  inside  the  drive.  The  256  numbers  in  the  buffer 
are  then  read  byte  by  byte  into  the  computer's  memory. 

Prototype 

1.  Open  the  command  channel  (15,8,15). 

2.  Open  a  disk  buffer  (equivalent  to  BASIC  OPEN  1,8,3,"#"). 

3.  Read  the  buffer  by  sending  read  sector  command  to  channel 
15. 

4.  Perform  a  Kernal  CHKIN  to  logical  file  1. 

5.  Read  the  256  bytes  into  memory  with  CHRIN. 

6.  Close  all  channels  and  exit. 

Explanation 

The  example  program  reads  track  18,  sector  1  (the  first  of  the 
directory  sectors),  into  memory.  There  are  several  discrete  sec- 
tions of  the  routine. 

First,  the  disk  command  channel  must  be  opened 
($C044-$C05A)  using  secondary  address  15.  Next,  an  internal 
disk  buffer  is  allocated,  with  the  equivalent  of  OPEN 
1,8,3,"#",  at  $C05B-$C075.  The  secondary  address,  3  in  this 
case,  is  important.  It  must  be  used  in  commands  to  the  drive. 

The  string  111,3,0,18,1  sends  five  pieces  of  information  to 
channel  15  ($C006-$C01D).  Ul  is  the  sector-read  command  to 
the  disk  drive.  The  3  corresponds  to  the  secondary  address  of 
the  buffer  (the  3  in  OPEN  1,8,3).  The  0  is  the  drive  number  (if 
you  have  an  MSD  dual  drive,  you  could  use  1).  The  18  and  1 
are  the  track  and  sector  numbers,  respectively,  for  the  block  to 
be  read. 

When  the  1541  or  1571  receives  the  Ul  command,  it 
copies  the  given  disk  sector  into  memory  inside  the  disk  drive. 
All  that  remains  is  to  read  the  data  into  the  computer's  mem- 
ory. At  this  point,  we  CHKIN  with  a  1  (the  1  in  OPEN  1,8,3) 
to  specify  logical  file  1  as  the  channel  to  be  read  and  then 
loop  256  times  with  CHRIN  to  read  the  bytes  and  store  them. 

Finally,  logical  files  1  and  15  are  closed  and  the  routine 
is  done. 
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RDBUFF 


Routine 


cooo 

SETLFS 

= 

$FFBA 

CDOO 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

= 

$FFCO 

cooo 

CHKOLT 

= 

SFFC9 

cooo 

CHKIN 

= 

SFFC6 

cooo 

CHROUT 

= 

$FFD2 

cooo 

CHRIN 

m 

SFFCF 

cooo 

CLOSE 

= 

$FFC3 

cooo 

CLRCHN 

— 

$FFCC 

COOO     20 

44 

CO 

RDBUFF 

JSR 

OPEN15 

C003     20 

5B 

CO 

JSR 

OPNBUF 

C006      A2 

OF 

LDX 

#15 

cooa    20 

C9 

FF 

JSR 

CFDCOUT 

COOB     90 

03 

BCC 

OUTOK 

cood  «: 

76 

CO 

IMP 

ERROR 

C010     AO 

00 

OUTOK 

LDY 

#0 

C012      B9 

8B 

CO 

LOOP1 

LDA 

BLKRD.Y 

C015      FO 

07 

BEQ 

DONEBR 

C017     20 

D2 

FF 

rsi< 

CHROUT 

C01A    C8 

INY 

COIB    4C 

12 

CO 

JMP 

LOOPI 

C01E     20 

CC 

FF 

DONEBR 

JSR 

CLRCHN 

C021     A2 

01 

LDX 

#1 

C023     20 

C6 

FF 

JSR 

CHKIN 

C026     90 

03 

BCC 

INPOK 

C02B     4C 

76 

CO 

JMP 

ERROR 

C02B     AO 

00 

INPOK 

LDY 

#0 

C02D    20 

CF 

FF 

GETEM 

JSR 

CHRIN 

COM     99 

B2 

CO 

STA 

MEMORY.Y 

C033     C8 

INY 

COM      DO 

F7 

BNE 

GETEM 

C036     A9 

01 

FINIS 

LDA 

#1 

C038     20 

C3 

FF 

JSR 

CLOSE 

C03B     A9 

OF 

LDA 

#15 

C03D    20 

C3 

FF 

JSR 

CLOSE 

C040     20 

CC 

FF 

JSR 

CLRCHN 

C043     60 

RTS 

C044     A9 

OF 

OFEN15 

LDA 

#15 

C046     A2 

08 

LDX 

#8 

C048     AO 

OF 

LDY 

#18 

C04A    20 

3A 

FF 

JSR 

SETLFS 

C04D    A9 

00 

LDA 

#0 

C04F     20 

BD 

"FF 

ISR 

SETNAM 

C052     20 

CO 

FF 

JSR 

OPEN 

C055     90 

03 

BCC 

OK15 

C057     4C 

76 

CO 

JMP 

ERROR 

C05A    60 

OK15 

RTS 

C05B     A9 

01 

OPNBUF 

LDA 

#1 

C05D    A2 

08 

LDX 

#8 

C05F     AO 

03 

LDY 

#3 

C061      20 

B'A 

FF 

JSR 

SETLFS 

C064     A9 

01 

LDA 

*1 

C066     A2 

8A 

LDX 

#<BUFNAM 

C068     AO 

CO 

LDY 

*>BUFNAM 

C06A    20 

BD 

FF 

|SR 

SETNAM 

C06D    20 

CO 

FF 

JSR 

OPEN 

;  ready  to  send  to  logical  file  15 

;  carry  dear  if  no  error 

;  else  print  error  message 

;  initialize  index 

;  send  the  command 

;  if  0  we're  done  setting  up  the  block  read 

;  command 

;  else  send  the  next  character 

;  increment  index 

;  and  go  back  for  another 

;  back  to  normal  I/O 

:  open  logical  file  1 

;  for  input 

;  carry  clear  if  no  error 

;  otherwise,  print  error  message 

;  start  counter  at  zero 

;  get  a  character  from  the  buffer 

;  store  (indexed)  to  memory 

;  count  0-255 

;  wraps  around  to  0  at  end 

;  close  logical  file  1 

;  and  the  command  channel 
;  and  clear  the  channels 

;  Subroutines 

;  file  number 

;  device  number  for  disk  drive 

;  secondary  address  for  command  channel 

;  15,8.15  is  set  to  be  opened 

;  length  of  name  is  zero 

;  open  logical  file 

;  check  for  error 

;  print  message  if  '.here's  a  problem 


;  OPNBUF  opens  a  disk  buffer  for  reading. 

;  logical  file  number 

;  disk  drive 

|  secondary  address 

;  one  character 

;  the  #  specifies  a  drive  buffer 

;  set  up  the  name 
:  now  it's  ready 
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C070     90     03 

C072     4C    76     CO 

C075     60  OKBUF 


BCC  OKBUF 
JMP  ERROR 
RTS 


C076     20     CC  FF     ERROR  JSR        CLRCHN 


C079 

AO 

00 

LDY 

«0 

C07B 

B9 

98 

CO 

MORE 

LDA 

ERRMSG.Y 

C07E 

F0 

07 

BEQ 

MSGEND 

C080 

20 

D2 

FF 

JSR 

CHROUT 

C083 

C8 

INY 

C084 

4C 

7B 

CO 

JMP 

MORE 

C087 

4C 

36 

CO 

MSGEND 

JMP 

FINIS 

C08A 

23 

BUFNAM 

.ASC 

•  -...' 

C08B 

55 

31 

2C 

BLKRD 

.ASC 

"Ul.3,0.18. 

C096 
C098 
C0B1 
C0B2 
C1B2 


to  OKBUF  if  no  error 
jump  to  ERROR  if  there  is 


ERROR  prints  a  message  If  a  disk  error 

occurs 

dose  down  and  clear  channels 

initialize  index 

message  ends  with  zero  byte 
print  the  character 
increment  the  index 
and  go  back 
finish  closing  files 

Variables 


0D    00  .BYTE 

41     20     44     ERRMSG  ASC 

00  BYTE 

MEMORY  = 


•  Ul  is  block  read 
;  3  is  secondary  address, 
:  0  means  drive  zero 
;  track  18,  sector  1 

13,0 

"A  DISK  ERROR  HAS  OCCURRED" 

0 


+■  256 


;  Reserve  256  bytes  for  data  from  sector  read 
I  from  disk. 


See  also  WRBUFF. 
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RDBYRG 


Name 

Generate  a  random  one-byte  integer  in  a  range 
Description 

A  routine  for  generating  a  random  one-byte  value  in  the  range 
0-255  has  been  provided  (RNDBYT).  Frequently,  though,  a 
random  value  must  be  limited  to  a  particular  range. 

For  example,  in  a  game,  you  might  wish  to  position  a 
sprite  or  a  character  randomly  within  a  certain  range  of  rows 
or  columns.  Or  in  an  educational  program,  you  might  want  to 
pick  two  numbers  in  the  range  11-20  (for  adding  or  multiply- 
ing, say). 

Prototype 

In  an  initialization  routine  (RDINIT): 

1.  Set  voice  3  to  a  high  frequency. 

2.  Select  the  noise  waveform. 

3.  Turn  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RDBYRG  itself: 

1.  Load  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  into  .A, 

2.  Determine  whether  this  value  lies  within  the  acceptable 
range  (here,  delimited  by  LOWLIM  and  UPPLIM-1). 

3.  If  not,  branch  to  step  1  for  another  value. 

4.  Otherwise,  return  this  suitable  integer  in  .A. 

Explanation 

Ten  random  integers  in  the  range  30-45  are  generated  by  the 
example  program  and  are  printed  to  the  screen. 

In  RNDBYT,  a  random  byte  value  is  generated  by  using 
voice  3  of  the  SID  chip.  A  similar  approach  is  taken  here  ex- 
cept that  we  limit  the  range  of  the  number. 

Again,  a  two-part  routine  is  required.  The  first  part 
(RDINIT)  is  responsible  for  initializing  the  random  number 
generator  of  voice  3  (RANDOM).  This  is  done  by  selecting  the 
noise  waveform  and  setting  it  to  its  maximum  frequency.  For  a 
more  detailed  description  of  how  this  is  accomplished,  refer  to 
RNDBYT. 

Once  the  random  number  generator  has  been  initialized  at 
the  outset  of  your  main  program,  random  values  can  be  taken 
from  RANDOM  within  RDBYRG.  If  a  value  falls  within  the 
range  set  by  LOWLIM  and  UPPLIM  (minus  1),  it's  accepted 
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cooo 

CHROUT 

= 

65490 

cooo 

UNPRT 

— 

48589 

cooo 

FREHI3 

= 

54287 

cooo 

VCREC3 

*» 

54290 

cooo 

SIGVOL 

= 

54296 

cooo 

RANDOM 

= 

54299 

RDBYRG 


and  returned  in  the  accumulator.  Otherwise,  another  random 
number  is  fetched. 

In  using  RDBYRG  within  your  own  programs,  be  sure  to 
define  the  range  delimiters  before  the  routine  is  entered.  For 
instance,  to  generate  a  random  integer  in  the  range  1-10, 
change  LOWLIM  to  1,  and  UPPLIM  to  1 1  (1  plus  the  actual 
upper  limit). 

Routine 


;  UNPRT  =  36402  on  the  128 

;  voice  3  frequency  control  (high  byte) 

;  voice  3  control  register 

;  volume  and  filter  select  register 

:  oscillator  3/random  number  generator 

;  Generate  ten  random  byte  values  using  SID 

;  chip  voice  3  in  a  range  (30-45) 

;  and  print  them. 

;  initialize  SID  voice  3  for  random  numbers 

;  initialize  counter  for  ten  random  numbers 

;  save  counter 

:  get  random  byte  in  a  range 

;  move  value  to  .X 

:  zero  for  high  byte  (in  .A) 

;  print  the  number 

;  print  a  RETURN 

;  decrement  counter 

:  if  not  ten  values,  then  loop 

;  Initialize  SID  voice  3  for  random  numbers. 
;  set  voice  3  frequency  (high  byte>  to 
:  maximum 


;  select  noise  waveform  and  start  release 
;  tarn  off  volume  and  disconnect  output  of 
;  voice  3 


;  Returns  a  random  byte  in  a  range. 
;  get  single-byte  random  number 
;  lower  limit  of  range 

;  upper  limit  of  range 


cooo 

20 

1C 

CO 

MAIN 

JSR 

RDINTT 

C003 

A9 

0A 

LDA 

HlO 

C005 

8D 

38 

CO 

STA 

TEMCNT 

COOS 

20 

2A 

CO 

LOOP 

ISR 

RDBYRG 

C00B 

AA 

TAX 

COOC 

A9 

00 

LDA 

#0 

C00E 

20 

CD 

BD 

ISR 

UNPRT 

C011 

A9 

0D 

LDA 

#13 

C013 

20 

D2 

EF 

JSR 

CHROUT 

C016 

CE 

38 

CD 

DEC 

TEMCNT 

C019 

DO 

ED 

BNE 

LOOP 

CO  IB 

60 

RTS 

C01C 

A9    FF 

RDINIT 

LDA 

#SFF 

C01E 

BE) 

OF 

D4 

STA 

FREH13 

C021 

A9 

80 

LDA 

#%iooooooo 

C023 

8D 

12 

D4 

STA 

VCREG3 

C026 

8D 

18 

D4 

STA 

SIGVOL 

C029 

60 

RTS 

C02A  AD  IB  D4    RDBYRG      LDA  RANDOM 

C02D  CD  39  CO  CMP  LOWLIM 

C030  90     F8  BCC  RDBYRG 

C032  CD  3A  CO  CMP  UPPLIM 

C035  BO    F3  BCS  RDBYRG 

C037  60  RTS 


C038     00 

TEMCNT 

.BYTE 

0 

;  temporary  storage  for  counter 

C039     IE 

LOWUM 

BYTE 

30 

;  lowest  possible  number 

C03A    2E 

UPPLIM 

.BYTE 

■16 

;  highest  possible  number  plus  1 

See  also  RD2BYT,  RND1VL,  RNDBYT. 
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Name 

Check  the  I/O  status  by  using  the  Kemal  READST  routine 
Description 

Although  some  Kerna]  routines  have  their  own  ways  of  flag- 
ging errors,  the  READST  routine  is  a  general  routine  that  re- 
turns an  error  flag  if  something  has  gone  wrong  with  an  input 
or  output  operation.  It's  most  often  used  to  check  the  status  of 
the  disk  drive. 

Prototype 

1.  JSR  to  the  READST  routine. 

2.  If  the  equal  flag  is  set,  everything's  okay.  Otherwise,  an  er- 
ror has  occurred. 

Explanation 

The  following  program  deliberately  causes  a  disk  error  by  try- 
ing to  open  a  file  with  no  name.  Then  it  calls  READST  to  see 
if  anything's  wrong.  If  an  error  has  occurred,  the  letter  A 
prints  to  the  screen.  Otherwise,  the  program  ends. 

Note  that  RDSTAT  is  similar  to  CHK144.  Both  return  a 
zero  as  long  as  the  situation  is  in  hand.  When  an  error  occurs, 
the  result  is  a  nonzero  value. 

Routine 

C000  SETLFS  =  SFFBA 

COOO  SETNAM  =  $FFBD 

C000  OPEN  =  $FFC0 

COOO  READST  -  $FFB7 

COOO  CHROUT  =  $FFD2 

COOO  CHKOUT  =  $FFC9 

COOO  CLRCHN  =  $FFCC 

COOO  CLOSE  -  $FFC3 

COOO  A9  02  LDA  *2 

CD02  A2  08  LDX  #8 

C004  A0  02  LDY  #2 

C006  20  BA    FF  JSR  SETI.FS 

C009  A9  00  LDA  #0 

C00B  20  BD   FF  JSR  SETNAM 

C00E  20  CO    FF  JSR  OPEN 

C011  A2  02  LDX  #2 

C013  20  C9    FF  JSR  CHKOUT 

COW  20  B7    FF     RDSTAT       JSR  READST 

C019  F0  08  BEQ  FINIS 

C01B  20  CC   FF  JSR  CLRCHN 

C01E  A9  41  LDA  #65 

C020  20  D2    FF  JSR  CHROUT 

C023  20  CC   FF     FINIS  JSR  CLRCHN 

C026  A9  02  LDA  «2 

C028  20  C3    FF  JSR  CLOSE 

C02B  60  RTS 


;  set  file  parameters 

;  no  name 
;  open  it 

I  get  ready  to  print 
I  check  the  status 
;  if  equal  to  zero,  OK 

|  clear  channels  before  printing 

:  print  a  letter  A 
;  dear  all  channels 

:  and  dose  file  2 


See  also  CHK144,  DERRCK. 
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RE80CO,  WR80CO  (128  only) 


Name 

Read  and  write  to  the  80-column  video  chip 

Description 

These  two  short  routines,  RE80CO  and  WR80CO,  read  values 
from  or  write  values  to  the  VDC  chip's  internal  registers. 

Prototype 

1.  Enter  either  routine  with  .X  holding  the  register  number. 

2.  Store  it  into  the  first  gateway  byte  $D600. 

3.  Wait  for  bit  7  of  the  gateway  byte  to  go  high. 

4.  LDA  from  or  STA  to  the  second  gateway  byte. 

Explanation 

The  128's  VDC  chip  has  36  internal  registers  and  16K  of  pri- 
vate RAM.  But  the  only  way  to  access  the  chip  is  through 
locations  54784  and  54785  ($D600  and  $D601).  You  must 
store  into  the  first  gateway  byte  the  number  of  the  register  you 
wish  to  get  to.  The  second  gateway  byte  can  then  be  PEEKed 
or  POKEd  to  read  or  write  the  value  from  the  register  whose 
number  you  put  in  the  first  byte. 

The  example  program  POKEs  the  values  1-5  to  the 
screen.  You  should  see  the  letters  A-E  appear  on  your  monitor 
(if  it  is  set  for  an  80-column  display).  First,  the  internal  ad- 
dress of  the  screen  is  read  from  VDC  registers  12-13.  This 
value  is  stored  into  the  memory  access  registers  (18-19).  Once 
the  memory  access  registers  know  the  place  to  read  or  write, 
the  values  from  MESSAGE  are  sent  to  the  read/write  register 
(31). 
Routine 


;  high  and  low  bytes  of  the  register  for  screen 
;  memory 

;  high  and  low  bytes  for  getting  to  memory 
;  the  read/write  register 


find  the  high  byte  of  screen  memory  from 

register  12  ($0C) 

read  it  from  12 

now  send  it  to  memory  write  (high)  register 

write  .A  to  the  register  in  .X 

now  do  the  low  byte 

read  it 

low  byte  of  memory-write 

and  write  it 

Now  the  internal  registers  are  set  up. 


ocoo 

SCRHIR 

= 

12 

ocoo 

SCRLOR 

= 

13 

ocoo 

MEMH1R 

= 

18 

ocoo 

MEMLOR 

— 

19 

ocoo 

GATE 

= 

31 

ocoo 

VDCADR 

= 

SD600 

ocoo 

VDCDAT 

= 

$D601 

ocoo 

START 

= 

• 

ocoo 

A2 

oc 

LDX 

#SCRH1R 

0C02 

20 

24 

OC 

|SR 

RE80CO 

0C05 

A2 

12 

LDX 

XMEMHIR 

0C07 

20 

30 

0C 

J5R 

WR80CO 

OCOA 

A2 

0D 

LDX 

#SCRLOR 

OCOC 

20 

24 

OC 

ISR 

RE80CO 

OCOF 

A2 

13 

LDX 

SMEMLOR 

0C11 

20 

30 

oc 

ISR 

WR80CO 
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RE80CO,  WR80CO  (128  only) 


0C14  AO  00 

0C16  A2  IF 

0C18  B9  3C    OC 

OC1B  FO  06 

0C1D  20  30     OC 

OC20  C8 

0C21  DO  F3 

0C23  60 


LDY 
MORE  LDX 

LDA 
BEQ 
JSR 
INY 
BNE 
ALLDONE    RTS 


0C24  8E    00     D6    RESOCO 

0C27  AE   00     D6    LOOP1 

0C2A  10     FB 

0C2C  AD  01      D6 

0C2F  60 


»0 

#GATE 

MESSAGEY 

ALLDONE 

WR80CO 

MORE 


STX  VDCADR 

LDX  VDCADR 

BPL  LOOP] 

LDA  VDCDAT 

RTS 


0C3O  8E    00  D6    WR80CO       STX  VDCADR 

0C33  AE   00  D6    LOOP2  LDX  VDCADR 

0C36  10     FB  BPL  LOOP2 

0C38  8D    01  D6  STA  VDCDAT 

0C3B  60  RTS 

OC3C  01     02  03     MESSAGE     .BYTE  1.2,3.4,5 

0C41  00  .BYTE  0 

See  also  CUST80,  VDCCOL. 


;  the  index 

:  set  up  the  gateway  byte 

;  get  a  screen  code 

;  if  zero,  we're  finished 

:  write  to  register  31 

:  keep  looping 


;  Enter  RESOCO  with  the  internal  register 
;  in  .X. 

;  (ell  the  8563  we  want  to  access  a  register 
;  check  the  door 

;  if  bit  7  is  clear,  the  door  Is  locked 
;  else,  get  the  byte  from  the  internal 
;  register 

;  Exit  with  the  value  in  .A. 

i  Enter  VVR80CO  with  the  register  in  .X,  the 

;  value  to  POKE  in  .A. 

;  ask  for  an  audience 

;  check  whether  we  can  get  in 

;  not  yet,  branch  back 

;  store  the  character 


432 


READBF 


Name 

Read  bytes  from  a  sequential  or  program  file  into  a  buffer 

Description 

READBF,  with  the  aid  of  three  routines— OPENFL,  READFL, 

and  CLOSFL — reads  in  either  a  sequential  file  or  a  program 
file  from  disk  and  stores  it  in  a  data  buffer.  The  address  of  this 
buffer  is  passed  from  the  calling  program  in  the  X  (low  byte) 
and  Y  (high  byte)  registers. 

Prototype 

In  the  calling  program  (MAIN  below): 

1.  Define  the  address  of  the  data  buffer  (as  BUFFER)  in  the 
equates. 

2.  On  the  128,  set  the  bank  to  15.  On  both  machines,  load  the 
buffer  address  in  .X  (low  byte)  and  .Y  (high  byte).  Then  JSR 
to  READBF. 

In  READBF  itself: 

1.  Store  the  buffer  address  in  .X  and  .Y  to  zero  page. 

2.  Open  a  sequential  or  program  filename  with  OPENFL. 

3.  Read  in  data  from  the  open  file  into  the  buffer  using 
READFL. 

4.  Close  the  open  file  with  CLOSFL.  Return  the  ending  ad- 
dress of  the  file  in  .X  (low  byte)  and  .Y  (high  byte). 

Explanation 

The  example  program  reads  a  sequential  file  (called  SEQUEN- 
TIAL) from  disk  into  a  buffer  located  at  16384.  To  read  in  a 
program  file,  change  the  suffix  on  the  filename  from  rS,R  to  ,P,R. 

To  locate  the  incoming  file  data  at  a  location  other  than 
16384,  simply  change  the  buffer  address  (BUFFER)  in  the 
equates.  Alternatively,  you  could  change  the  LDX  and  LDY  at 
the  very  start  of  the  framing  routine. 

READBF  itself  is  a  short  routine  (the  various  support 
routines  for  opening,  reading,  and  closing  the  file  take  up  most 
of  the  space).  The  X  and  Y  registers  containing  the  buffer  ad- 
dress are  first  stored  to  a  free  location  in  zero  page  (ZP).  The 
three  routines  OPENFL,  READFL,  and  CLOSFL  are  then 
called  to  read  in  the  file.  Before  returning  to  the  main  pro- 
gram, the  ending  address  of  the  file  is  stored  in  the  X  (low 
byte)  and  Y  (high  byte)  registers. 

This  routine  is  a  good  example  of  modular  programming. 
The  main  routine  calls  READBF,  which  in  turn  calls  three  in- 
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dependent  subroutines  for  opening,  reading,  and  closing  a  file. 
If  you  want  to  read  a  file  and  print  it  to  the  screen,  add  an- 
other JSR  to  the  main  routine.  If  you  want  to  alphabetize,  just 
append  the  appropriate  subroutine  to  the  end  of  the  program 
and  stick  a  JSR  in  the  main  routine.  By  writing  the  program  in 
small,  easy-to-handle  modules,  you  will  retain  a  lot  of  flexibility. 
Note:  You  can  add  disk  error  checking  to  this  program  by 
including  DERRCK  at  the  places  marked  in  the  source  code. 

Routine 


cooo 

SETLFS 

s 

65466 

cooo 

SETNAM 

= 

65469 

cooo 

OPEN 

m 

65472 

cooo 

CHKTN 

= 

65478 

cooo 

CHRIN 

= 

65487 

cooo 

CLOSE 

= 

65475 

cooo 

CLRCHN 

— 

65484 

cooo 

STATUS 

= 

144 

cooo 

ZP 

• 

251 

cooo 

BUFFER 

*• 

16384 

cooo 

cooo 

COOO 


MAIN 


COOO  A2  00 

C002  AO  40 

C004  20  08     CO 

C007  60 


LDX  b<BUFFER 

LDY  #>  BUFFER 

JSR  READBF 
RTS 


COOS  86  FB 

C00A  84  FC 

C0OC  20  1C    CO 

COOF  20  32     CO 

C012  A9  01 

COM  20  49     CO 

C017  A6  FB 

C019  A4  FC 

C01B  60 


READBF 


STX  ZP 

STY  ZP+1 

JSR  OPENFL 

JSR  READFL 

LDA  #1 

JSR  CLOSFL 

LDX  ZP 

LDY  ZP+1 
RTS 


starting  address  where  incoming  data  will 

be  stored 

SETBNX  =  65384;  Kemal  bank  number  for 

data  and  filename  (128  only) 

MMUREG  =  65280;  MMU  configuration 

register  (128  only) 

READBF  uses  the  following  three  routines 

to  read  characters 

OPENFL  to  open  the  sequential/program 

file 

READFL  to  read  in  characters  from  the  file 

CLOSFL  to  close  the  file  and  restore  the 

default  input  device 


LDA  #0;  set  bank  15  (128  only) 
STA  MMUREG;  (128  only) 
low  byte  of  buffer  address 
and  high  byte 
go  read  data  from  file 


READBF  opens  a  SEQ  or  PRG  file  and 

reads  all  data  into  a  buffer. 

Enter  with  address  of  storage  buffer  in  .X 

(low)  and   Y  (high). 

Upon  return,  ,X  and  ,Y  will  hold  the  end-of- 

buffer  address. 

store  low  byle  of  storage  buffer 

store  high  byte  also 

open  file 

read  data  from  open  file  and  store  in 

buffer 

file] 

dose  file  and  restore  default  devices 

low  byte  of  en J-;if-fiiv  address 

high  byte  of  address  for  EOF 

return  to  MAIN 
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C01C 


OPENFI. 


C01C  A9  01 

C01E  A2  08 

C020  AO  02 

C022  20  BA    FF 


C025 

A9 

10 

LDA 

*FN1.ENG 

C027 

A2 

4F 

LDX 

»<F1LENM 

C029 

AO 

CO 

LDV 

#>FILENM 

G02B 

20 

BD 

FF 

JSR 

SETNAM 

C02E 

20 

CO 

FF 

JSR 

OPEN 

C031 

60 

RTS 

Open  channel  15  here  if  you  include  error 
checking  (DERRCK). 

LDA  «!  ;  logical  file  1 

LDX  #8  j  device  number  for  disk  drive 

LDY  #2  ;  secondary  address  (2-4  is  okav) 

JSR  SETLFS  ;  set  file  to  be  opened 

include  the  following  three  instructions  on 

the  128  only. 

LDA  BNKNUM;  bank  number  for  data 

LDX  BNKFNM;  bank  containing  Slename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

open  the  file  for  reading 

ISR  DERRCK;  insert  for  disk  error  checking 

return  to  READBF 

READFL  reads  characters  from  a  sequential 
or  program  file 

and  stores  them  in  a  buffer  whose  address 
is  in  zero  page. 

take  input  from  file  1 

index  into  the  storage  buffer 

get  a  byte  from  open  file 

put  it  in  the  storage  buffer 

increment  low  byte  of  buffer  address 

low  byte  hasn't  rolled  over,  so  skip  forward 

otherwise,  increase  high  byte 

STATCK  checks  the  I/O  status  Hag  for  end 

of  file. 

check  for  EOF 

a  zero  indicates  there  is  more  remaining,  so 

continue  reading 

return  to  READBF 

CLOSFL  closes  the  logical  file  specified  in 
.A  and  restores  default  devices. 

JSR         CLOSE  :  close  file  in  .A 

IMP       CLRCHN  |  dear  all  channels,  restore  default  devices, 

and  RTS 

Insert  DERRCK  routine  here  if  you're 
including  error  checking. 

C04F     30     3A    53     FILENM         .ASC      "0:SEQUENTIAL,S,R" 

;  example  sequential  file  to  read 

;  .S,R  is  optional  when  reading  sequential 

.files. 

;  Change  to  "0:PROGRAM,P.R"  to  read  a 

;  program  file. 


C032 

A2 

01 

READFL 

LDX 

m 

C034 

20 

C6 

FF 

JSR 

CHKIN 

C037 

A0 

00 

LDY 

#0 

C039 

20 

CF 

FF 

RDLOOP 

JSR 

CHRIN 

C03C 

91 

FB 

STA 

(ZP),Y 

C03E 

E6 

FB 

INC 

ZP 

C040 

T30 

02 

BNE 

STATCK 

C042 

E6 

FC 

INC 

ZP+1 

C044 

A5 

•>o 

STATCK 

LDA 

STATUS 

C046 

F0 

m 

BEQ 

RDLOOP 

C048 

60 

RTS 

C049     20     C3    FF    CLOSFL 
C04C    4C    CC   FF 


OPENFL  opens  a  sequential  or  program 
with  for  reading/writing. 
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C05F 


FNLENG       = 


■-F1LENM 


length  of  filename 

Include  the  next  two  variables  on  (he  128 

only. 

BNKNUM  .BYTE  0:  bank  number  where 

data  is  to  be  stored 

BNKFNM  .BYTE  0;  bank  number  where 

ASCII  fiiename  is  located 


See  also  OPENFL,  READFL. 
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Name 

Read  characters  from  a  sequential  or  program  file 

Description 

With  READFL,  you  can  read  characters  into  memory  from 
either  a  sequential  or  a  program  disk  file.  The  routine  stores 
this  incoming  data  in  a  buffer  named  by  a  zero-page  pointer. 

Prototype 

1.  Before  accessing  READFL,  call  OPENFL  to  open  a  channel 
from  which  to  read  data. 

2.  Define  the  input  channel  as  the  one  opened  with  Kernal 
CHKIN. 

3.  Read  bytes  one  at  a  time  from  this  channel,  storing  them  in 
a  memory  buffer  using  zero-page  addressing. 

4.  Check  the  status  flag  (STATUS)  for  the  last  byte  in  the  in- 
coming file. 

5.  If  STATUS  is  zero,  continue  reading  bytes.  Otherwise,  RTS 
to  the  calling  program. 

Explanation 

The  subroutine  below  is  not  a  complete  program;  it's  designed 
to  be  used  in  conjunction  with  several  other  subroutines.  (See 
the  complete  program  under  READBF,  which  reads  a  file  into 
a  buffer.)  Before  coming  into  READFL,  you  must  do  two 
things — open  an  input  channel  with  OPENFL  and  store  the 
address  of  the  memory  buffer  into  zero  page. 

Once  in  READFL,  data  is  continuously  read  until  the 
STATUS  flag  at  location  144  contains  a  nonzero  value.  When 
this  occurs,  the  routine  returns  to  the  calling  program. 

Note:  The  routine  as  written  takes  input  from  logical  file  1. 
To  read  in  data  from  another  channel,  load  the  appropriate 
channel  number  into  the  X  register  at  $C000-$C001. 

Routine 


cooo 

CHKIN 

— 

65478 

cooo 

CHR1N 

= 

65487 

cooo 

STATUS 

= 

144 

cooo 

ZP 

— 

251 

COOO  A2    01  READFL 

C002  20     C6    FF 

C005  A0    00 

C007  20     CF    FF     RDLOOP 


LDX  #1 

JSR  CHKIN 

LDY  #0 

JSR  CH1UN 


,-  READFL  reads  characters  from  a  sequential 
;  or  program  file  and 

;  stores  them  to  a  buffer  whose  address  is  in 
;  zero  page. 

;  Uke  input  from  file  1 

j  Index  into  the  storage  buffer 

;  get  a  byte  from  open  file 
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COOA  9]  FB 

COOC  E6  FB 

COOE  DO  02 

C030  E6  FC 


C012     A5    90 
C014     FO    Fl 


STATCK 


STA  (ZP),Y 

INC  ZP 

BNE  STATCK 

INC  ZP+1 


LDA      STATUS 
BEQ      RDLOOP 


C016     SO  RTS 

See  also  OPENFL,  READBF. 


;  put  It  in  the  storage  batter  using  zero- 

;  page  addressing 

;  Increment  low  byte  of  buffer  address 

;  low  byte  hasn't  rolled  over,  so  skip 

;  forward 

:  otherwise,  increase  high  byte 

;  STATCK  checks  the  I/O  status  flag  for 

;  end-of-fUe. 

:  check  for  EOF 

;  a  zero  indicates  there  is  more  remaining, 

;  so  continue  reading 

;  return  to  main  program 
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Name 

Rename  a  disk  file 

Description 

This  routine  renames  a  file  by  opening  channel  15  and  send- 
ing the  command  "RO:newnatne=0:oldname" .  You  may  note 
that  it's  very  similar  in  structure  to  the  other  DOS  commands. 

Prototype 

1.  Open  the  disk  command  channel  (SETLFS,  SETNAM, 
OPEN). 

2.  Provide  the  rename  command  as  the  filename  in  SETNAM. 

3.  Close  things  up. 

Explanation 

The  rename  command  is  provided  in  the  data  area  at  the  end 
of  the  routine.  If  you  were  to  use  this  example  program  your- 
self, you'd  probably  want  build  the  command  from  an  old 
name  and  new  name  requested  from  the  user. 

Routine 


cooo 

SETLFS 

•= 

$FFBA 

SETNAM 

= 

$FFBD 

cooo 

OPEN 
CLOSE 

_ 

$FFC0 
$FFC3 

cooo 

CLRCHN 

= 

SFFCC 

cooo 

A9 

01 

RENAME 

LDA 

#1 

logical  file  number 

C002 

A2 

08 

LDX 

#8 

device  number  for  disk  drive 

C004 

AO 

OF 

LDY 

#15 

secondary  address  for  drive  command 
channel 

C006 

20 

BA 

FF 

JSK 

SETLFS 

prepare  to  open  it 

C009 

A9 

15 

LDA 

#BUFLEN 

length  of  buffer 

COOB 

A2 

IE 

LDX 

#<BUFFER 

.X  and  .Y  hold  the 

COOD 

AO 

CO 

LDY 

#>BUFFER 

address  of  the  buffer 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

set  up  command  as  name 

C012 

20 

CO 

FF 

JSK 

OPEN 

open  it 

C015 

M 

01 

LDA 

#1 

and  immediately 

C017 

20 

C3 

FF 

JSR 

CLOSE 

close  the  command  channel 

C01A 

20 

CC 

FF 

JSR 

CLRCHN 

clear  the  channels 

C01D 

Ml 

RTS 

.ASC 

"R0:NEWNAMr 

all  done 
Data  area 
=0:OLDNAME" 
substitute  your  own  filenames  here 

C032 

0D 

.BYTE 

13 

RETURN  character 

C033 

BUFLEN 

= 

•  -  BUFFER 

See  also  CONCAT,  COPYFL,  FORMAT,  INITLZ,  SCRTCH,  VALIDT. 
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Name 

Simple  renumber  routine  (line  numbers  only) 

Description 

Changing  the  line  numbers  of  a  BASIC  program  is  relatively 
easy.  What's  difficult  is  revising  the  GOTOs,  GOSUBs,  and 
other  references  within  the  various  lines.  This  routine  changes 
only  the  actual  line  numbers;  the  other  references  remain  as 
they  were. 

Prototype 

1.  Using  two  zero-page  locations,  set  up  a  pointer  to  the 
beginning  of  the  BASIC  line. 

2.  Load  the  line  link,  which  points  to  the  next  line  in  memory. 
If  the  line  link  contains  two  zeros,  exit  the  routine. 

3.  Copy  the  desired  line  number  into  the  current  line. 

4.  Update  the  line  number,  adding  the  STEP  value. 

5.  Copy  the  line  link  to  the  first  zero-page  location  and  loop 
back  to  step  2. 

Explanation 

Before  the  text  of  a  BASIC  line  in  memory,  there  are  four 
bytes — two  2-byte  pointers.  The  first  is  the  line  link  that 
points  to  the  beginning  of  the  next  line  (which,  in  turn,  points 
the  next  line  link,  and  so  on,  to  the  end  of  the  program).  The 
next  two  bytes  provide  the  line  number  in  low-byte/ high-byte 
format. 

A  pointer  at  location  43  (location  45  on  the  128)  contains 
the  address  of  the  beginning  of  the  BASIC  program.  The  end 
of  the  BASIC  program  is  marked  by  a  line  link  of  $0000. 

To  renumber,  get  the  TXTTAB  pointer  and  copy  it  to  a 
zero-page  location  (Z2,  in  the  example).  The  main  loop  starts 
by  copying  the  contents  of  Z2  to  Zl.  Then,  .Y  is  loaded  with  a 
0  and  a  1,  and  the  next  line  link  is  copied  indirectly  from  Zl 
to  Z2.  Finally,  .Y  is  increased  to  2  and  then  to  3  (to  point  to 
the  line  number  in  memory),  and  the  desired  line  number  is 
stored  in  memory. 

The  line  number  is  incremented  by  the  STEP  value,  and 
the  process  repeats.  As  soon  as  a  line  link  of  $0000  is  discov- 
ered, the  program  ends  and  the  renumbering  is  complete. 

Note:  To  ensure  that  this  routine  works  properly  on  the 
128,  enter  the  BASIC  line  BANK  0  before  you  SYS  to  the  pro- 
gram. Unlike  most  other  programs,  which  have  to  be  in  bank 
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15  to  be  able  to  call  Kernal  routines,  this  routine  needs  to  be 
in  bank  0. 


Routine 


cooo 

cooo 

cooo 

cooo 

4C 

09 

CO 

C003 

14 

00 

C005 

OA 

00 

C007 

00 

00 

C009 

A2 

01 

CO0B 

B5 

2B 

COOD 

95 

FD 

COOF 

BD 

03 

CO 

C012 

9D 

07 

CO 

C015 

CA 

C016 

10 

F3 

TXTTAB        =  43 

Zl  =  $FB 

Z2  SFD 

IMP  RENUM1 

FIRST  BYTE  20.0 

STEP  .BYTE  10,0 

CURRENT    .BYTE  0,0 

RENUM1       LDX  #1 

COPY  LDA  TXTTAB.X 

STA  Z2.X 

LDA  FIRST.X 

STA  CURRENXX 
DEX 

BPL  COPY 


C016  20  2B    CO    BEGIN 

C01B  20  34     CO 

C01E  A5  FB 

CO20  05  FC 

C022  DO  01 

C024  60 

C025  20  41     CO    AHEAD 

C028  4C  18     CO 


JSR 
JSR 


CPZ2Z3 
LLINK 


LDA  Zl 

ORA  Zl  +  1 

BNE  AHEAD 

RTS 


JSR 
JMP 


RENLIN 
BEGIN 


C02B  AS  FD 

C02D  85  FB 

C02F  A5  FE 

C031  85  FC 

C033  60 

C034  AO  00 

C036  Bl  FB 

C03S  85  FD 

C03A  C8 

C03B  Bl  FB 

C03D  85  FE 

C03F  C8 

C040  60 


CPZ2Z1 


LLINK 


LDA      7.2 
STA      Zl 


LDA 
STA 
RTS 


Z2+1 
Zl+1 


LDY  #0 

LDA  <Z1),Y 

STA  Z2 

TNY 

LDA  (Zll.Y 

STA  Z2+1 

INY 
RTS 


C041  RENLIN        -  • 

C041  AD  07  CO  LDA  CURRENT 

C044  91     FB  STA  (ZD.Y 

C046  AD  08  CO  LDA  CURRENT+1 

C049  C8  INY 

C04A  91      FB  STA  (ZD.Y 


;  TXTTAB  -  45  on  the  128 


jump  around  the  table 

first  line  number 
renumber  by  tens 
current  line  number 

do  some  copying 

the  start  of  BASIC  text 

goes  Into  Z2 

and  the  line  number 

goes  into  CURRENT 

loop  back 

copy  the  pointer  from  Z2  to  Zl 

and  set  up  the  line  link  for  the  next  line 

inZ2 

two  zeros 

inZl 

mean  that 

we're  done  and  can  quit 

else  renumber  the  line 
and  go  back  for  another 

copy  Z2 

toZl 

high  byte,  too 

and 

that's  all 

get  Z2  ready 
low  byte 
intoZ2 

high  byte 

into  Z2+1;  now  Z2  is  ready  for  the  next 

line 

INY  one  more  time,  so  if  s  2 

go  back 

remember,  ,Y  is  now  2,  from  LLINK  above 
low  byte  of  CURRENT 
into  the  program 
high  byte 

also 
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CMC 

18 

C04D 

AD 

05 

CO 

C050 

6D 

07 

CO 

C053 

8D 

07 

CO 

C056 

AD 

(Hi 

CO 

C059 

6D 

08 

CO 

C05C 

8D 

08 

CO 

C05F 

60 

CLC 

;  now  add  the  S' 

LDA 

STEP 

ADC 

CURRENT 

;  add  it 

STA 

CURRENT 

;  store  it 

LDA 

STEP+I 

;  high  byte 

ADC 

CURRENT+1 

;add 

STA 

CURRENT +1 

;  save 

RTS 

;  and  that's  that 

See  also  DATAMK. 
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Name 

Generate  a  random  floating-point  number  using  BASIC'S 
RND(l)  function 

Description 

Random  integer  values  can  be  generated  with  RNDBYT  (one- 
byte)  or  RDBYRG  (two-byte).  At  times,  though,  you  may  wish 
to  generate  a  random  floating-point  number. 

RND1VL  uses  BASIC'S  own  RND  function  to  produce  a 
random  floating-point  number  in  the  range  0-0.999999999. 
You  can  place  this  number  in  any  numeric  range,  just  as  if  you 
were  in  BASIC,  by  multiplying  it  and  adding  some  base  value. 
For  instance,  if  you  needed  floating-point  numbers  from  5.0 
through  15.0,  you  would  multiply  the  number  returned  by 
RND1VL  by  10  and  add  5. 

Prototype 

JMP  into  BASIC'S  RND  function  to  cause  a  random  value  from 
0  through  0.999...  to  be  placed  in  floating-point  accumulator  1 
(FAC1). 

Explanation 

Ten  random  floating-point  numbers  in  the  range  0-0.999...  are 
generated  by  the  example  program  and  printed  to  the  screen. 

A  random  number  is  first  placed  in  floating-point  accu- 
mulator 1  by  RND1VL.  Using  FOUT,  the  contents  of  FAC1 
are  converted  to  an  ASCII  string  and  are  stored  in  the 
workspace  area  at  the  top  of  the  stack  (beginning  at  $100).  Fi- 
nally, with  FACPRT,  the  string  within  the  workspace  is 
printed  to  the  screen.  This  process  is  repeated  for  each  of  the 
ten  values. 

RND1VL  itself  is  very  short.  In  it,  we  jump  midway  into 
BASIC'S  RND  function  routine  at  57534  on  the  64  (33877  on 
the  128).  This  causes  a  random  floating-point  number  to  be 
transferred  from  the  seed  value  in  RNDX  (location  139  on  the 
64  or  location  4635  on  the  128)  to  FACT 

Routine 


cooo 

CHROUT       = 

65490 

cooo 

FAC1              — 

97 

FAC1  =  99  on  the  128 

cooo 

FOUT 

48605 

FOUT  =  36418  on  the  128— converts  FAC1 

to  ASCII 

cooo 

STWORK      - 

256 

workspaee  at  top  of  the  stack 
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RND1VL 


cooo 


COOO     A2    OA 


RMD1 


57534 


LDX       #10 


C002 

8E 

2D 

CO 

STX 

TEMPX 

C005 

20 

1C 

CO    LOOP 

JSR 

RND1VL 

C0O8 

20 

DD 

BD 

J5R 

FOUT 

COOB 

20 

IF 

CO 

JSR 

FACPRT 

COOE 

A9 

OD 

LDA 

#13 

C01D 

20 

D2 

FF 

JSR 

CHROUT 

C013 

CE 

2D 

CO 

DEC 

TEMPX 

C016 

AE 

2D 

CO 

LDX 

TEMPX 

C019 

DO 

EA 

BNE 

LOOP 

CO  IB 

60 

RTS 

,  RND1  =  33877  on  the  128.  RND(l) 
;  function 

;  Generate  ten  numbers  (0-0.999...)  using  the 

;  RND(l)  function  and  print  them. 

;  initialize  counter  .X  to  give  ten  random 

;  numbers 

;  save  .X 

!  get  random  number  using  RND(1 ) 

;  convert  contents  of  FAC1  to  ASCII  string 

;  string  Is  in  stack  area 

!  print  the  FAC1 

;  print  RETURN 

:  decrement  counter 

;  and  put  in  .X  for  branch 

,  if  we  haven't  done  all  ten,  continue 


C01C    4C    BE    E0     RND1VL       JMP       RNDI 


C01F  A0  00 

C021  B9  00     01 

C024  F0  06 

C026  20  D2    FF 

C029  C8 

C02A  DO  F5 

C02C  60 


FACPRT        LDY       #0 


MORE 


OUT 


LDA  STWORK.Y 

BEQ  OUT 

JSR  CHROUT 

1NY 

BNE  MORE 

RTS 


C02D    00  TEMPX  BYTE    0 

See  also  RD2BYT,  RDBYRG,  RNDBYT. 


J  RND1VL  fetches  a  random  number  using 
;  RND(l)  and  places  it  in  FAC1. 
;  gel  random  number 

:  FACPRT  prints  the  number  in  floating- 

;  point  accumulator  1. 

;  as  an  index 

I  load  each  ASCII  byte  of  string 

;  if  zero  byte,  we're  finished 

;  print  it 

;  next  byte 

;  branch  always 


;  temporary  storage  for  ,X 


RNDBYT 


Name 

Generate  a  random  one-byte  integer  value  (0-255) 

Description 

Many  programs,  especially  games  and  educational  programs, 
require  randomness.  Often,  what  is  called  for  is  a  one-byte 
random  integer  in  the  range  0-255.  This  routine  lets  you  gen- 
erate such  a  number  from  the  random  oscillations  of  the  noise 
waveform. 

Prototype 

In  an  initialization  routine  (RDINTT): 

1.  Set  voice  3  to  a  high  frequency. 

2.  Select  the  noise  waveform. 

3.  Tum  off  the  SID  chip  volume  and  disconnect  the  output  of 
voice  3. 

In  RNDBYT  itself: 

4.  Take  a  random  byte  value  from  voice  3's  random  number 
generator  (RANDOM)  and  return  it  in  .A. 

Explanation 

In  the  example  program,  an  interesting  visual  effect  is  created 
by  repeatedly  placing  a  random  color  value  somewhere  in  the 
first  256  bytes  of  screen  color  RAM.  Pressing  any  key  exits  the 
routine. 

RNDBYT  is  actually  a  two-part  routine.  In  the  first  part, 
labeled  RDINIT,  voice  3  of  the  SID  chip  is  initialized  so  as  to 
generate  random  numbers  in  RANDOM  (location  54299).  This 
is  done  by  setting  the  high  byte  of  the  frequency  register  for 
voice  3  (FREHI3)  to  255  and  selecting  the  noise  waveform  by 
setting  bit  7  of  voice  3's  control  register  (VCREG3).  Since  we 
don't  want  to  actually  hear  the  noise,  we  turn  off  the  SID  chip 
volume  and  disconnect  the  audio  output  of  voice  3  by  storing 
a  128  to  SIGVOL,  the  volume  and  filter  select  register.  Select- 
ing a  frequency  value  high  byte  of  255  insures  that  the  values 
in  RANDOM  change  very  rapidly, 

RDINIT  need  be  accessed  only  once  early  in  your  main 
program.  After  that,  you  can  take  random  values  as  needed 
from  RANDOM.  This  is  exactly  what  RNDBYT  does,  return- 
ing the  random  byte  in  the  accumulator. 
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RNDBYT 


Routine 

cooo 
cooo 
cooo 

cooo 
cooo 
cooo 


GETIN 

COLRAM 

FREHI3 

VCREG3 
SIGVOL 
RANDOM 


65508 
55296 
54287 

54290 
54296 
54299 


cooo 

20 

13 

CO    MAIN 

JSR 

RDINTT 

C003 

20 

21 

CO   U>OP 

JSR 

RNDBYT 

C006 

A8 

TAY 

C007 

20 

21 

CO 

JSR 

RNDBYT 

COOA 

99 

00 

D8 

STA 

COLRAM.Y 

COOD 

20 

E4 

FF 

JSR 

GETIN 

C010 

FO 

Fl 

BEQ 

LOOP 

C012 

60 

RTS 

C013 

A9 

EF 

RDINIT 

LDA 

*$FF 

C015 

8D 

OF 

D4 

STA 

FREH13 

C018 

A9 

80 

LDA 

#%  10000000 

C01A 

8D 

12 

D4 

STA 

VCREG3 

C01D 

8D 

18 

D4 

STA 

SIGVOL 

C020 

GO 

RTS 

;  start  of  screen  color  memory 

;  voice  3  frequency  control  register  (high 

;byte) 

;  voice  3  control  register 

;  volume  and  filter  select  register 

;  oscillator  3/random  number  generator 

;  Generate  a  random  byte  value  from  SID 

;  chip  voice  3. 

:  Put  a  random  color  anywhere  in  first  256 

;  bytes  of  screen 

;  Quit  when  any  key  is  pressed. 

;  initialize  SID  voice  3  for  random  numbers 

;  get  a  random  byte  for  screen  offset 

;  store  offset  in  ,Y 

;  gel  random  number  for  color  byte 

;  store  color  byte  randomly  in  first  quarter 

;  check  for  a  keypress 

;  no  keypress,  so  continue 

;  else,  quit 

;  Routine  to  initialize  SID  voice  3  for  random 

;  numbers 

;  set  voice  3  frequency  (high  byte)  to 

;  maximum 


;  select  noise  waveform  and  start  release  for 
;  voice  3 

;  turn  off  volume  and  disconnect  output  of 
;  voice  3 


C021      AD  IB    D4    RNDBYT      LDA      RANDOM 
C024     60  RTS 

See  also  RD2BYT,  RDBYRG,  RND1VL. 


;  RNDBYT  returns  a  random  byte  value 

■  in  .A 

;  get  single-byte  random  number 
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RPTKEY 


Name 

Set  the  repeat  key  flag 

Description 

In  certain  applications,  such  as  a  word  processor  or  a  game 
featuring  keyboard  control,  you'll  need  to  let  the  keys  repeat. 
But  at  other  times  you'll  want  to  fetch  only  one  keypress  at  a 
time. 

For  instance,  suppose  you  need  to  ask  the  user  a  series  of 
questions.  If  keypresses  can  repeat,  and  if  the  user  lets  a  finger 
tarry  on  the  RETURN  key,  several  questions  can  easily  be 
skipped  before  the  user  realizes  what  is  happening.  By  storing 
a  64  in  the  repeat  flag  (RPTFLG),  you  can  prevent  this  situation. 

Prototype 

1.  Define  RPSTAT  as  0,  64,  or  128. 

2.  Load  and  store  RPSTAT  in  the  repeat  flag. 

Explanation 

The  accompanying  program  makes  all  keypresses 
nonrepeating. 

Note:  The  repeat  flag  (RPTFLG)  is  located  at  650  on  the 
64  and  at  2594  on  the  128.  It  can  contain  either  a  0,  a  64,  or  a 
128.  A  value  of  0  causes  only  certain  keys  to  repeat  (specifi- 
cally the  cursor  keys,  the  INST/DEL  key,  and  the  space  bar). 
As  illustrated,  a  value  of  64  prevents  all  keys  from  repeating, 
while  128  allows  all  keys  to  repeat. 

The  default  value  for  this  location  is  different  on  the  64 
and  the  128.  On  the  64,  it's  0;  on  the  128,  the  default  value 
is  128. 


RPTFLG  =  2594  on  the  128— repeat  key 


Routine 

cooo 

RPTFLG 

= 

650 

COM      AD  07 
C003     SO    8A 
C006     60 

CO    RPTKEY 
02 

LDA 

STA 
RTS 

RPSTAT 
RPTFLG 

C007     40 

RPSTAT 

.BYTE 

64                   ; 

Disable  all  repeats. 


disable  all  repeats 

0  allows  certain  cursor  keys  to  repeat. 

128  enables  all  repeats 
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Name 

Restore  registers  from  memory 

Description 

After  using  SVREGM  to  save  the  registers  to  memory,  you 
can  get  them  back  with  RSREGM. 

Prototype 

1.  Load  the  processor  status  (.P)  and  push  it  onto  the  stack. 

2.  Load  the  A,  X,  and  Y  registers  from  memory. 

3.  Pull  .P  (PLP)  from  the  stack. 

Explanation 

Operations  such  as  loading  from  memory  (LDA,  LDX,  and 
LDY)  affect  both  the  zero  and  the  minus  flags  in  the  processor 
status  .P,  so  .P  must  be  the  last  register  restored.  Since  there's 
no  direct  way  to  load  .P  from  memory,  the  previously  saved 
register  must  be  pushed  onto  the  stack  by  .A  and  then  pulled 
with  the  PLP  instruction.  Apart  from  this  one  little  shuffling 
step,  the  rest  of  the  routine  is  short  and  straightforward. 

Routine 


cooo 

AD 

12 

CO 

RSREGM 

LDA 

TEMPP 

;  first  gel  the  f  status  register 

C003 
COM 

48 
AD  OF 

CO 

PHA 
LDA 

TEMPA 

;  push  it  temporarily 
;  get  .A 

C007 

AE 

10 

CO 

LDX 

TEMPX 

;  get  .X 

COOA 

AC 

11 

CO 

LDY 

TEMPY 

;  get  .Y 

COOD 

28 

PLP 

;  get  J*  from  the  stack  (where  it  was 
;  pushed  from  .A) 

COOE 

60 

RTS 

;  we're  done 
;  variables 

COOF 

00 

TEMPA 

-BYTE 

00 

:  note' — these  were 

C010 

00 

TEMPX 

.BYTE 

00 

;  put  in  place  by  the 

con 

00 

TEMPY 

.BYTE 

00 

1  SVREGM  routine 

C012 

00 

TEMPP 

.BYTE 

00 

See  also  SVREGM,  SVREGS. 
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RSTVEC 


Name 

Restore  all  Kernal  indirect  vectors 

Description 

RSTVEC  reinitializes  the  16  Kernal  vectors  in  RAM  beginning 
at  location  788  to  their  default  warm-start  values.  This  routine 
is  useful  in  situations  where  you  have  altered  these  vectors — 
so  that  they  point  to  your  own  RAM-based  routines — and 
later  want  to  change  them  back  en  masse. 

Prototype 

1.  Disable  IRQ  interrupts  with  an  SEI. 

2.  JSR  to  the  Kernal  RESTOR  routine,  reenable  IRQ  interrupts 
with  a  CLI,  and  RTS  to  your  calling  program. 

Explanation 

RSTVEC  relies  on  the  Kernal  routine  RESTOR  to  reset  the 
interrupt  and  Kernal  I/O  (Input/Output)  vectors  at  locations 
788-819.  Since  the  IRQ  interrupt  vector  is  among  those  being 
restored,  it's  best  to  prevent  any  IRQ  interrupts  from  being 
serviced  while  you're  changing  these  vectors.  This  is  accom- 
plished here  with  an  SEI  prior  to  calling  RESTOR. 

For  an  example  of  how  to  use  RSTVEC  in  your  own  pro- 
grams, take  a  look  at  ALARM2.  This  routine  sets  the  alarm  for 
the  second  rime-of-day  clock.  When  the  alarm  goes  off,  an 
NMI  interrupt  occurs.  At  this  point,  we  completely  disable  the 
alarm  function  with  RSTVEC. 

You  might  note  that  the  RESTOR  routine  is  normally 
accessed  when  either  a  cold  or  a  warm  start  is  carried  out  (see 
COLDST  and  WARMST).  In  both  instances,  the  Kernal  in- 
direct vectors  are  reset. 

The  same  cannot  be  said  of  the  BASIC  indirect  vectors. 
This  series  of  vectors,  occupying  locations  768-779  on  the  64 
(768-785  on  the  128),  are  reinitialized  only  during  the  cold- 
start  procedure.  You  can  reset  the  BASIC  vectors  yourself  by 
JSRing  to  location  58451  in  Kernal  ROM  on  the  64  or  to  16977 
in  BASIC  ROM  on  the  128. 
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RSTVEC 


Routine 

cooo 


RESTOR 


C004     53 
C0O5     60 


CLI 
RTS 


65418 


COOO     78  RSTVEC       SEI 

C001      20     8A    FF  JSR        RESTOR 


Keraal  routine  to  restore  I/O  RAM  vectors 
to  default  values 

disable  IRQ  interrupts  while  resetting 

IRQ  vector 

reset  page  3  RAM  vectors  to  ROM  table 

values 

reeruble  IRQ  interrupts 

we're  done 


See  also  DISRSR,  DISTOP,  ERRRDT. 
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SAVEBS 


Name 

Save  a  BASIC  program 

Description 

SAVEBS  saves  a  BASIC  program  to  disk,  regardless  of  where 
the  BASIC  workspace  is  located  at  the  time  of  the  save. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  up  the  parameters  as  1,8,0  for  a  save  (SETLFS, 
SETNAM). 

3.  On  the  128,  call  SETBNK  to  specify  the  bank  containing  the 
program  you  intend  to  save  and  the  bank  containing  its 
filename. 

4.  Load  .A  with  the  address  of  TXTTAB  (the  location  of  the 
zero-page  pointer  to  the  start  of  BASIC  text). 

5.  Load  .X  and  .Y  with  the  values  in  end-of-BASIC  text 
pointer. 

6.  JSR  to  SAVE. 

Explanation 

SAVEBS,  relying  on  several  Kernal  routines,  saves  a  copy  of 
the  contents  of  the  BASIC  program  text  area  to  disk.  As  with 
all  saves,  a  secondary  address  of  zero  is  required. 

Before  executing  SAVE,  we  set  the  zero-page  pointer  to 
the  start  of  BASIC  text  (TXTTAB)  in  the  accumulator.  The  X 
and  Y  registers  are  loaded  with  the  two-byte  ending  address  of 
the  BASIC  program  at  VARTAB.  On  the  128,  replace  VARTAB 
with  TEXTTP. 

To  use  this  routine  to  save  your  own  BASIC  programs, 
substitute  for  "BASIC  PROGRAM"  the  name  of  the  program 
you  wish  to  save. 

Note:  SAVEBS  currendy  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  bv  incorporating  tine  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  SAVE  instruction.  Furthermore,  be  sure  to  open 
the  error  channel  (15)  at  the  beginning  of  the  program  (also 
noted  in  the  source  listing). 

On  the  128,  include  BNKNUM  and  BNKFNM  at  the  end 
of  your  program. 

Routine 


cooo 

SETLFS 

= 

65466 

cooo 

SETNAM 

= 

65469 

cooo 

SAVE 

— 

65496 
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SAVEBS 


cooo 
cooo 
cooo 
cooo 


TXTTAB         =  43 

VARTAB         =  45 


COOO 


SAVEBS         - 


COOO  A9  01 

coo:  A2  08 

C004  AO  00 

C006  20  BA    FF 


LDA  #1 

LDX  #8 

LDY  #0 

JSR  SETLFS 


C009 

A9 

OF 

LDA 

#FNLENG 

COOB 

A2 

1C 

LDX 

#<FILENM 

COOD 

AO 

CO 

LDY 

#>FIIENM 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

C012 

A9 

:b 

LDA 

#TXTTAB 

COM 

A6 

2D 

LDX 

VARTAB 

C016 

A* 

2E 

LDY 

VARTAB+1 

C018 

20 

D8 

FF 

JSR 

SAVE 

C01B     60 


RTS 


C01C    30     3A    42     F1LENM         .ASC      "0:BASIC  PROGRAM 


C02B 


FNLENG        -= 


•-FILENM 


TXTTAB  =  45  on  the  128— start  erf  BASIC 

pointer 

end-of-BASIC  pointer — substitute 

TEXTTP  =  4624  for  the  128 

SETBNK  =  65384;  Kemal  bank  number  for 

data  and  filename  (128  only) 

MMUREG  =  65280;  MMU  configuration 

register  (128  only) 

Save  a  BASIC  program  to  disk 

Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 


LDA  SO.  set  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  1 

device  number  for  disk  drive 

for  all  saves 

set  for  a  save 

Include  the  following  three  instructions 

on  the  128  only. 

LDA  BNKNUM;  bank  number  in  which 

program  text  is  located 

LDX  BNKFNM;  bank  containing  the 

filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

address  of  zero-page  pointer  to  the  start  of 

the  program 

Change  VARTAB  in  the  next  two 

instructions  to  TEXTTP  on  the  128. 

low  byte  for  end  of  BASIC  program 

address 

high  byte  for  end  of  BASIC  program 

addresB 

save  the  BASIC  file  to  disk 

JSR  DERRCK;  insert  for  disk  error 
checking 


Insert  DERRCK  here  if  you're  including 
error  checking- 


substitute  your  filename  here  (<=  16 

characters) 

length  of  filename 

Include  the  next  two  variables  on  the 

128  only. 

BNKNUM  .BYTE  0;  bank  number  where 

program  to  be  saved  is  located 

BNKFNM  .BYTE  0;  bank  number  whexe 

program's  filename  is  located 


See  also  SAVEML,  VERIFY. 


452 


SAVEML 


Name 

Save  an  ML  program 

Description 

SAVEML  is  quite  versatile.  With  it,  you  can  save  to  disk  an 
ML  program  or  any  block  of  binary  data  such  as  sprite  pat- 
terns, custom  characters,  hi-res  screens,  and  so  on,  from  any 
memory  location  specified. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Store  the  starting  address  of  the  ML  program  (STPROG)  in 
zero  page. 

3.  Set  up  the  parameters  for  a  save  (SETLFS,  SETNAM). 

4.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  number  of 
the  bank  containing  the  program  to  be  saved  and  .X  with 
number  of  the  bank  containing  its  filename.  Then  JSR  to 
SETBNK. 

5.  Load  immediately  the  zero-page  pointer  to  STPROG. 

6.  Load  .X  and  .Y  with  the  ending  address  of  the  ML  program 
(ENDPRG). 

7.  JSR  to  SAVE. 

Explanation 

The  example  routine  is  set  up  to  save  an  ML  program  named 
"ML  PROGRAM",  which  runs  from  location  49152  (STPROG) 
through  location  50000  (ENDPRG  -  1),  or  alternatively,  on  a 
128,  to  save  an  ML  program  residing  in  memory  from  3072 
through  3920  (when  STPROG  and  ENDPRG  are  set  in  the 
source  listing  accordingly).  Notice  that  whether  you're  on  the 
64  or  128,  you  must  always  add  one  to  the  value  of  the  last 
byte  in  your  code.  The  SAVE  routine  saves  up  to  (but  not 
including)  the  last  byte  specified. 

To  save  your  own  ML  program,  just  substitute  its  filename 
for  "ML  PROGRAM"  and  specify  its  starting  and  ending  ad- 
dress (plus  1)  as  STPROG  and  ENDPRG,  respectively,  in  the 
equates.  Furthermore,  the  secondary  address,  when  the  file 
parameters  are  set  up,  must  contain  a  zero  for  all  saves. 

Note:  SAVEML  currently  lacks  disk  error  checking.  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  SAVE  instruction.  Be  sure  to  open  the  error  chan- 
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SAVEML 


nel  (15)  at  the  beginning  of  the  program  (also  noted  in  the 
source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 

Routine 


cooo 

SETLFS 

= 

65466 

cooo 

SETNAM 

= 

65469 

cooo 

SAVE 

■a 

65496 

cooo 

ZP 

= 

251 

cooo 

STPROG 

■" 

49152 

starting  address  of  ML  program  (perhaps 
3072  on  128) 

cooo 

ENDPRG 

= 

50001 

ending  address  of  ML  program  plus  1 
perhaps  3921  on  128) 

cooo 

SETBNK 

M 

65384 

Kemal  bank  number  for  SAVE  and  filename 

(128  only) 

MMU  configuration  register  (128  only) 

cooo 

MMUREG 

W 

65280 

COOO 

SAVEML      - 

• 

COOO 

A2 

00 

LDX 

#<STPROG 

C0O2 

86 

FB 

STX 

ZP 

C0O4 

AO 

CO 

LDV 

#>STPROG 

C006 

84 

FC 

STY 

ZP+1 

coos 

A9 

01 

I.DA 

#1 

C0OA 

A2 

06 

LDX 

#8 

COOC 

AO 

00 

LDY 

#0 

COOE 

20 

BA  FF 

JSR 

SETLFS 

con 

A9 

OC 

LDA 

#FNLENG 

C013 

A2 

24 

LDX 

#<FILENM 

C015 

AO 

CO 

LDY 

#>FTLENM 

C017 

20 

BD 

FF 

JSR 

SETNAM 

C01A 

A9 

FB 

LDA 

#ZP 

C01C 

A2 

51 

LDX 

#<ENDPRG 

C01E 

AO 

C3 

LDY 

#>ENDPRG 

COM 

20 

D8 

FF 

JSR 

SAVE 

Save  an  ML  program  from  49152  through 
50000  (3072-3920  on  the  128). 
Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 


LDA  #0;  set  the  128  to  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

low  byte  of  program  address 

store  in  zero-page 

high  byte  of  program  address 

also  store  in  zero-page 

logical  file  number  (value  doesn't  matter) 

device  number  for  disk  drive 

secondary  address  for  all  saves 

set  parameters  for  save 

Include  the  following  three  instructions 

for  the  128  only. 

LDA  BNKNUM;  bank  containing  the 

program 

LDX  BNKFNM;  bank  containing  the 

ASCII  filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 

zero-page  pointer  to  start  of  ML  program 
low-byte  address  for  end  of  ML  program 
high-byte  address  for  end  of  ML  program 
save  the  ML  file 

JSR  DERRCK;  Insert  here  for  disk  error 
checking 
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C023     60  RTS 


;  Insert  DERRCK  here  if  you're  including 
;  error  checking. 


C024    30    3A    4D    F1LENM        .ASC     "0:ML  PROGRAM" 

;  Substitute  your  own  filename  here  (<=16 
;  characters) 

C030  FNLENG       -  *  -  FILENM      ;  length  of  filename 

;  Include  the  next  two  variables  on  the  128. 
;  BNKNUM  .BYTE  0;  bank  number  where 
;  data  to  be  saved  is  located 
I  BNKFNM  -BYTE  0:  bank  number  where 
;  ASCII  filename  is  located 

See  also  SAVEBS,  VERIFY. 
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Name 

Convert  screen  codes  to  Commodore  ASCII  characters 
Description 

Commodore  computers,  including  the  64  and  the  128,  repre- 
sent characters  in  different  ways.  When  characters  are  printed 
(with  CHROUT),  they  are  represented  by  Commodore  ASCII 
codes.  When  they  are  stored  directly  to  screen  memory  (with 
STA),  so-called  screen  codes  are  used.  Fortunately,  there  are 
some  patterns  between  the  two  sets  of  codes.  As  a  result,  the 
actual  conversion  routine  can  be  relatively  short. 

You'll  probably  find  a  number  of  uses  for  SCRCAS.  Many 
word  processing  programs  (COMPUTEI's  SpeedScript  and  Pro- 
Line's  WordPro,  among  others)  store  characters  in  their  files  in 
the  form  of  screen  codes.  At  some  point,  you  may  wish  to 
examine  the  contents  of  a  file  that's  in  screen-coded  format  by 
printing  it  to  the  screen.  Or  you  may  simply  want  to  print  por- 
tions of  screen  memory  elsewhere  on  the  screen.  In  either 
case,  a  routine  like  SCRCAS  is  ideal. 

Prototype 

1.  CMP  the  screen  code  in  .A  with  zero,  setting  the  N  flag  if 
the  code  is  greater  than  127. 

2.  Store  the  processor  status  register  on  the  stack. 

3.  AND  with  127,  giving  a  screen  code  from  0  through  127. 

4.  Determine  in  which  range  of  values  the  screen  code  lies 
(0-31,  32-63,  64-95,  or  96-127)  and  flip  the  necessary 
bit(s). 

5.  Restore  the  N  flag  with  PLP  and  RTS. 

Explanation 

The  example  program  converts  characters  within  a  file  that's 
been  saved  in  screen-coded  format  to  Commodore  ASCII  and 
prints  them  to  the  screen. 

This  is  really  a  two-step  process.  First,  the  file  (entitled 
SCREEN  CODES)  is  loaded  into  a  buffer  (LOADAD)  on  an 
even-page  boundary  by  using  LOADRL.  Each  code  within  the 
buffer  is  then  converted  to  a  Commodore  ASCII  character 
with  SCRCAS  and  is  printed. 

In  order  to  see  the  program  in  action,  you'll  need  to  ini- 
tially create  a  file  containing  screen  codes.  As  we've  suggested, 
you  can  do  this  with  SpeedScript  or  with  any  other  program 
that  saves  in  this  format.  Change  the  ASCII  string  in  FILENM 
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to  match  the  filename  you've  chosen.  Then  run  the  program, 
changing  LOAD  AD  if  you  wish. 

SCRCAS  performs  the  conversion  based  on  the  particular 
range  in  which  the  screen  code  resides.  The  second  half  of  the 
screen  code  set  is  identical  to  the  first.  The  only  difference  is 
that  characters  above  127  are  in  reverse.  If  the  screen  code 
passed  in  A  exceeds  127,  SCRCAS  sets  the  N  flag  to  indicate 
that  the  character  is  in  reverse.  So,  upon  returning  from  the 
routine,  you  can  print  the  {RVS  ON}  character— CHR$(  18)— if 
you  wish,  before  printing  the  actual  converted  character. 

All  codes  coming  to  the  routine  are  ANDed  with  127  and 
are  handled  as  if  they  were  in  the  lower  half  of  the  set.  Once 
this  has  been  done,  SCRCAS  determines  in  which  range  the 
screen  code  lies,  with  the  aid  of  the  table  UPPLIM.  There  are 
four  ranges— 0-31,  32-63,  64-95,  and  96-127— each  sharing 
similarities  in  their  bit  patterns.  These  similarities  make 
conversion  possible. 

This  setup  is  best  represented  in  a  table  where  the  bit  pat- 
terns of  characters  in  each  range  are  shown  before  and  after 
the  conversion: 


(the  same) 


Within  each  bit  pattern,  a  0  designates  bits  that  are  always 
off,  and  a  1,  bits  that  are  always  on.  The  x  represents  bits  that 
may  be  on  or  off. 

Converting  a  screen  code  in  the  range  0-31  to  the  range 
64-95  requires  that  you  flip  bit  6.  The  second  range  stays  the 
same.  To  go  from  the  range  64-95  to  the  range  96-127,  you 
turn  on  bit  5.  Screen  codes  within  the  final  range  require  that 
both  bits  6  and  7  be  flipped. 

This  is  exactly  what  occurs  within  SCRCAS.  A  lookup 
table  of  values  (FLIPT3)  is  used  with  EOR  to  convert  a 
particular  screen  code.  5o,  the  routine  returns  an  equivalent 
Commodore  ASCII  value  m  A  with  the  N  flag  set  for  reverse 
characters. 

Note:  Since  SCRCAS  corrupts  .Y,  you  should  save  it  to 
some  temporary  location  (as  is  done  in  the  example  program) 
before  entering  SCRCAS. 
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Before: 

After: 

Range 

Bit  Pattern 

Range 

Bit  Pattern 

0-31 

%000.r  xxxx 

64-95 

%010x  xxxx 

32-63 

"/oOOl*  xxxx 

32-63 

%001x  xxxx 

64-95 

%010x  xxxx 

96-127 

%011x  .txxt 

96-127 

%011x  xxxx 

160-191 

%101x  xxxx 

SCRCAS 


Also,  if  you're  using  a  128  with  this  program,  be  sure  to 
replace  the  instruction  at  PRTLOP  with  the  three  instructions 
following  it.  This  enables  the  128  to  access  the  incoming 
screen  codes  stored  in  bank  0.  The  Kernal  routine  INDFET  is 
used  for  this  task.  INDFET  performs  an  LDA  (zero  page),Y 
from  within  the  bank  indicated  by  the  X  register. 

Routine 


CG00 

CHROUT 

a 

65490 

cooo 

SETLFS 

c* 

65466 

cooo 

9ETNAM 

= 

65469 

cooo 

LOAD 

» 

65493 

cooo 

LOAD AD 

= 

16384 

cooo 

ZP 

= 

251 

cooo 

SETBNK 

= 

65384 

INDFET 


653% 


cooo 

A9 

00 

LDA 

*<LOADAD 

C002 

85 

FB 

STA 

ZP 

C004 

AO 

40 

LDV 

s>LOADAD 

C006 

84 

FC 

5TY 

ZP+1 

C008 

20 

61 

CO 

JSR 

LOADRL 

COOB 

8E 

SB 

CO 

STX 

EOF 

CODE 

8C 

8C 

CO 

STY 

EOF+1 

con 

A9 

0D 

LDA 

*13 

C013 

20 

D2 

FF 

ISR 

CHROUT 

C016 

AO    00 

LDY 

»0 

C0I8 

8C 

8D 

CO 

STY 

MAXIMY 

CO  IB 

F0 

02 

BEQ 

CHKLOP 

C01D 

E6 

FC 

OUTLOP 

INC 

ZP+1 

COIF 

AS 

FC 

CHKLOP 

LDA 

ZP  +  1 

C021 

CD 

8C 

CO 

CMP 

EOF--1 

C024 

90 

0A 

BCC 

PRTLOP 

C026 

DO 

IE 

BNE 

extt 

C028 

AD 

8B 

co 

LDA 

EOF 

C02B 

F0 

19 

BEQ 

exit 

C02D 

8D 

8D 

CO 

STA 

MAXIMY 

C030 

Bl 

FB 

PRTLOP 

LDA 

(ZP).Y 

buffer  for  incoming  file,  positioned  on  even 
page  boundary 

Kernal  bank  number  for  LOAD  and 
filename  (128  only) 

Kernal  routine  to  fetch  a  byte  from  any 
bank  (128  only) 

LOAD  a  file  containing  screen  codes, 
convert  them  to  Commodore  ASCII 
characters,  and  print  them, 

store  buffer  address  in  zero  page 


;  LOAD  in  the  file  at  16384 

:  LOADRL  returns  end-of-file  address  In  X 

|  and   Y 

:  store  these  in  temporary  locations 

;  print  a  RETURN 


:  as  an  index  in  PRTLOP 

:  save  .Y 

:  first  check  whether  buffer  is  less  than  256 

,  bytes  in  length 

:  increment  high  byte  of  buffer  address 

;  see  if  we're  on  the  lost  page  of  buffer 

:  if  not,  print  a  full  page 

;  exit  if  we're  one  page  beyond  the  end  of  the 

:  buffer 

;  We're  on  the  last  page  of  the  buffer. 

:  check  the  low  byte  in  case  buffer  ends  on 

;  an  even-page  boundary 

;  if"  so,  exit 

.  otherwise,  store  last  page  counter  fn 

:  MAXIMY 

;  get  a  character  from  the  buffer 

.  Replace  prior  line  with  next  three 

:  instructions  on  the  128. 

;  PRTLOP  LDX  #0;  store  X  and  .A 

;  beforehand 

;  LDA  #ZP 

;  JSR  INDFET;  load  (.A),Y  from  bank  .X 

: 
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C032 

BG 

8!£ 

CO 

STY 

TEMPY 

;  since  SCRCAS  comipts  Y 

C035 

20 

47 

CO 

JSR 

SCRCAS 

;  convert  it  from  screen  code  to  Commodore 
;  ASCII  (both  in  -A) 

C038 

AC 

8E 

CO 

LDY 

TEMPY 

;  restore  .Y 

C03B 

20 

D2 

FF 

JSR 

CHROUT 

;  print  it 

C03E 

C8 

INY 

;  for  next  character 

C03F 

cc 

8D 

CO 

CPY 

MAXIMY 

;  have  we  reached  the  last  byte  in  the  current 

;  page  (.Y  -  0)  or 

;  the  final  byte  in  the  last  page? 

C042 

DO 

EC 

BNE 

PRTLOP 

;  if  not,  continue 

C044 

FO 

D7 

BEQ 

OUTLOP 

.  otherwise,  check  page  number 

C046 

60 

EXIT 

RTS 

C047 

C9 

00 

SCRCAS 

CMP 

#0 

C049 
C04A 

08 
29 

7E 

PHP 
AND 

#127 

C04C 
C04E 
C04F 

A0 
88 
D9 

04 
59 

CO 

LOOP 

LDY 
DEY 
CMP 

#4 
UFFLIM,Y 

C052 
C054 
C057 

B0 
59 
28 

FA 
5D 

CO 

BCS 
EOR 
PLP 

LOOP 
FLIPTB.Y 

C058 

60 

RTS 

;  SCRCAS  converts  screen  codes  in  .A  to 

;  Commodore  ASCII  characters  in  -A. 

;  The  N  flag  is  set  if  character  was  in  reverse 

;  video  prior  to  conversion. 

;  sets  N  flag  if  result  is  >-128  (if  .A 

;  >=128) 

;  save  N  flag  status 

;  0-127  and  128-255  are  the  same,  except 

;  128-255  is  In  reverse  video 

;  Index  goes  3-2-1-0 

;  Is  character  greater  than  upper  limit 

;  value? 

;  yes,  so  check  next  limit 

;  flip  corresponding  bit's! 

;  restore  N  flag  (as  Dormol/reverse 

;  indicator) 


C059     80     60     40     LTPPLIM 
C05D   CO    20    00    FL1PTB 
C061  LOADRL 


C061  A9  0! 
C063  A2  08 
C065     A0    00 


C067     20     BA    FF 


-BYTE    128,96,64.32 
.BYTE    192,32,0,64 


LDA  ffl 

1.DX  #8 

LDY  #0 

JSR  SETLFS 


|  Upper  limit  plus  one  of  each  range  and 
;  appropriate  value  to  exdusive-OR. 


LOAD  a  binary  file  from  disk 

OPEN  channel  15  here  if  you  include  disk 
error  checking  (DERRCK)'. 

logical  file  1 

device  number  of  disk  drive 

secondary  address  of  zero  causes  relative 

LOAD 

1,8.0  is  set  for  relative  LOAD 

Include  the  following  three  instructions  on 

the  128. 

LDA  BNKNUMj  bank  number  for  data 

LDX  BNKFMM;  bank  containing  the  ASCII 

filename 

J5RSETBNK 


C06A 

A9    0E 

LDA 

•FNLENC 

;  length  of  filename 

C06C 

A2    7D 

LDX 

•xFILENM 

!  address  of  filename 

C06E 

A0    CO 

LDY 

#>FILENM 

C070 

20     BD    FF 

JSR 

SETNAM 

;  set  up  filename 

C073 

A9    00 

LDA 

#0 

;  flag  for  load 

C075 

A2    00 

LDX 

#<LOADAD 

;  set  the  load  address 

C077 

A0    40 

LDY 

#>LOADAD 

C079 

20     D5    FF 

|SR 

LOAD 

;  load  the  file  at  LOADAD 

;  JSR  DERRCK:  Insert  here  for  disk  error 
;  checking 
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C07C    60 


RTS 


C07D    30     3A    53     FILENM         .ASC      "OlSCREEN  < 
C08B  FNLENG       -  ■  -  FILENM 


CODES" 


C08B 

00 

00 

EOF 

.WORD0 

C08D 

00 

MAX1MV 

.BYTE0 

C08E 

00 

TEMPY 

.BYTE0 

Insert  DERRCK  here  if  you're  including 
error  checking. 


name  of  file  stored  in  form  of  screen  codes 

length  of  filename 

Include  the  next  two  variables  on  the  128, 

BNKNUM  .BYTE  0:  bank  number  where 

program  is  to  be  loaded 

BNKFNM  .BYTE  0;  bank  number  where 

ASCII  filename  is  located 

two-byte  end-of-buffer  pointer 
low  byte  counter  for  buffer 
temporary  storage  for  .Y 


See  also  CASSCR,  CASTAS,  CNVERT,  TASCAS. 
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Name 

Scroll  down  a  line  with  INST  character 

Description 

This  is  the  first  of  several  scroll-down  routines.  The  technique 
of  scrolling  lines  from  top  to  bottom  is  most  often  used  in 
games  where  you  need  to  have  bombs  dropping  from  the  sky 
(action  in  space),  trees  falling  toward  you  (skiing/dodging  ac- 
tion), or  road  signs/highways  moving  toward  you  (automobile 
action).  The  basic  idea  is  that  the  player  resides  at  the  bottom 
of  the  screen,  and  things  are  scrolling  toward  the  hapless  hero. 

Prototype 

1.  Unlink  the  first  and  second  screen  lines. 

2.  Get  to  the  top  left  corner  by  printing  a  {HOME}  character. 

3.  Print  {DOWN}  to  move  the  cursor  to  line  2. 

4.  Back  up  with  {LEFT}. 

5.  Print  the  {INST}  character,  which  opens  up  a  line. 

Explanation 

On  the  64,  the  width  of  a  physical  screen  line  is  40  characters. 
A  logical  line,  on  the  other  hand,  can  contain  up  to  80  charac- 
ters. A  logical  line  may  thus  consist  of  one  or  two  physical 
lines.  A  table  that  starts  at  location  217  indicates  whether  a 
specific  physical  line  is  linked  to  the  previous  line  as  part  of  a 
single  logical  line.  If  the  high  bit  of  a  lines  entry  in  the  table  is 
zero,  the  line  in  question  is  connected  to  the  previous  line. 

This  program  puts  the  cursor  in  the  top  left  corner,  moves 
down  to  the  second  line,  backs  up,  and  inserts  a  character.  If 
the  top  logical  line  is  fewer  than  40  characters  long,  the  tech- 
nique works;  it  opens  up  a  second  physical  line.  If  the  logical 
line  at  the  top  of  the  screen  consists  of  two  physical  lines,  the 
technique  won't  work.  So  we  make  sure  the  the  top  two  lines 
are  unlinked  by  ORing  location  218  with  128  at  the  start  of 
the  routine.  The  rest  is  just  loading  ASCII  characters  and 
printing  them. 

Routine 

C0C10  LDTB1  =  217 

CO0O  CHROUT       =  $FFD2 
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COM 

A5 

DA 

SCRDN1 

LDA 

LDTB1+1 

C002 

09 

80 

ORA 

#%10000000 

COM 

85 

DA 

STA 

LDTB1+1 

C006 

A9 

13 

LDA 

#19 

C008 

20 

D2 

FF 

JSR 

CHROUT 

COOB 

A9 

11 

LDA 

#17 

COOD 

20 

D2 

FF 

JSR 

CHROUT 

C01O 

A9 

9D 

LDA 

#157 

C012 

20 

D2 

FF 

JSR 

CHROUT 

C01S 

A9 

94 

LDA 

#148 

C017 

20 

D2 

FF 

JSR 

CHROUT 

COIA 

50 

RTS 

entry  for  second  screen  line 
undo  the  line  link 

HOME  character 

CURSOR  DOWN  character 

CURSOR  LEFT— to  end  of  first  line 

INSERT  character 

Now  lines  2-25  have  scrolled  down. 


See  also  BIGMAP,  SCRDN2,  SCRDN3. 
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Name 

Scroll  the  screen  down  a  line  with  the  ROM  insert  routine 

Description 

A  built-in  BASIC  ROM  routine  (on  the  64)  inserts  a  line  and, 
at  the  same  time,  scrolls  the  lines  below  it  down  one  notch.  By 
calling  this  routine,  you  can  cause  the  whole  screen  (except 
the  top  line)  to  scroll  down. 

Prototype 

1.  Unlink  the  top  line  from  the  second  line. 

2.  Print  the  {HOME}  character  to  get  to  the  top  left  corner. 

3.  Call  the  ROM  routine  that  inserts  a  line. 

Explanation 

BASIC  needs  the  INSLLNE  routine  when  a  programmer  hap- 
pens to  type  beyond  the  fortieth  character  on  a  line  (see 
SCRDN1  for  a  fuller  explanation  of  physical  lines  and  logical 
lines).  So,  if  we  can  unlink  the  two  lines  and  put  the  cursor  in 
place,  it's  quite  easy  to  call  the  ROM  routine  that  opens  up  a 
line. 

Note:  For  the  same  effect  on  the  128,  you  may  use  the 
ESC-I  sequence  to  insert  a  blank  line  or  the  ESC-W  sequence 
to  scroll  the  whole  screen  down  by  one  line. 

Routine 


cooo 

LDTBl 

= 

217 

cooo 

CHROUT 

— 

SFFD2 

cooo 

INSLIN 

— 

$E965 

ROM  routine  to  insert  a  line 

cooo 

A5 

DA 

SCRDN2 

LDA 

LDTBl +  1 

entry  for  9econd  screen  line 

C002 

09 

80 

OKA 

#%10000000 

undo  the  line  link 

C004 

85 

DA 

STA 

LDTBl +1 

C006 

A9 

13 

LDA 

#19 

HOME  character 

COOS 

20 

D2   FF 

JSR 

CHROUT 

COOB 

20 

65     E9 

JSR 

INSUN 

COOE 

60 

RTS 

See  also  BIGMAP,  SCRDN1,  SCRDN3. 
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Name 

Scroll  down  a  line  of  the  screen  by  copying  screen  and  color 
memory 

Description 

This  is  one  of  three  scroll-down  routines,  and  it's  by  far  the 
longest.  The  other  two  routines  depend  on  built-in  ROM 
routines,  while  this  is  a  stand-alone  program  that  by  itself 
copies  characters  (and  color  memory)  byte  by  byte. 

Prototype 

1.  Set  up  a  zero-page  pointer  to  the  second-to-the-last  screen 
line. 

2.  Set  up  a  pointer  to  the  last  screen  line. 

3.  Copy  40  characters  (and  40  color  bytes)  from  one  line  to  the 
next. 

4.  Subtract  40  from  each  pointer. 

5.  Continue  the  loop  until  24  lines  have  been  copied. 

6.  Clear  the  first  line  with  spaces. 

Explanation 

The  key  to  this  routine  is  using  zero-page  pointers.  The  FROM 
and  the  TO  pointers  tell  the  subroutines  where  to  copy  from 
and  where  to  put  the  result.  The  most  important  subroutine  is 
COPYFT  ($C040),  which  does  four  things:  It  copies  40  charac- 
ters of  screen  memory  (FROM  to  TO),  changes  the  pointers  so 
they  point  to  screen  memory,  copies  40  bytes  of  color  memory 
(FROM  to  TO  again),  and  changes  the  pointers  so  they  point 
back  to  the  screen. 

The  FRTOTO  subroutine  is  very  general.  It  copies  40  bytes 
from  the  pointer  at  FROM  to  the  pointer  at  TO.  Because  it's 
generic,  it  can  be  used  for  copying  both  screen  memory  and 
color  memory. 

The  main  program  initially  sets  up  the  pointer  at  FROM 
($C000-$C013)  and  then  calls  FROMTO,  which  creates  the 
second  pointer  at  TO.  The  X  register  starts  at  24  and  counts 
down  to  zero  because  24  lines  must  be  copied. 

You'll  see  the  heart  of  the  program  at  BIGLOP 
($C01A-$C022).  JSR  to  the  copy  routine  (COPYFT),  which 
copies  a  line  down.  Next,  JSR  to  MINUS40,  which  backs  up 
the  pointers  to  the  previous  line.  Then,  DEX  and  BNE  to  com- 
plete the  loop. 

The  final  task  is  to  fill  the  top  line  with  blank  spaces 
(screen  code  32)  by  storing  directly  to  screen  memory. 
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FROM 

TO 

SCREEN 

COLOR 

OFFSET 


SCRDN3 


Routine 

cooo 
cooo 
cooo 
cooo 
cooo 


COOO  A9  00 

C002  85  FB 

C004  A9  04 

C006  85  FC 


C008  A9  98 

COOA  18 

C00B  65  FB 

COOD  85  FB 

COOF  A9  03 

COll  65  FC 

C013  85  FC 


C015  20     2E    CO 

C018  A2    18 

C01A  20     4D    CO    BIGLOP 

C01D  20     3C    CO 

C020  CA 

C021  DO    F7 


C023  AO  27 

C025  A9  20 

C027  99  00     04     CLLN 

C02A  88 

C02B  10  FA 

C02D  60 


C02E  A5  FB 

C030  18 

C031  69  28 

C033  85  FD 

C035  A5  FC 

C037  69  00 

C039  85  FE 

C03B  60 

C03C  A5  FB 

C03E  38 

C03F  E9  28 

C041  85  FB 

C043  A5  FC 

C045  E9  00 

C047  85  EC 

C049  20  2E     CO 

C04C  60 


FROMTO 


M1NTJS40 


LDA 
STA 
LDA 
STA 


LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 


JSR 
LDX 

JSR 
JSR 
DEX 
BNE 


LDY 
LDA 
STA 
DEY 
BPL 
RTS 

LDA 

CLC 

ADC 

STA 

LDA 

ADC 

STA 

RTS 

LDA 

SEC 

SBC 

STA 

LDA 

SBC 

STA 

JSR 

RTS 


$FB  ;  pointer  to  copy  from 

$FD  :  copy  to  this  area 

1024  ;  screen  memory  base  address 

55296  :  color  memory  base  address 

COLOR-SCREEN 

i  the  difference 


#<SCREEN 
FROM 
#>SCREEN 
FROM+-1 


*<920 

FROM 
FROM 
#>920 
FROM -I- 1 
FROM+1 


FROMTO 

#24 

COPYFT 
M1NUS40 

BIGLOP 


#39 
#32 
SCREEN,V 


C04D    20     5A    CO    COPYFT        (5R 
C050     20     64     CO  15R 


CLLN 


FROM 

#40 
TO 

FROM  +  1 
#0 
TO+1 


FROM 

w40 

FROM 

FROM-rl 

#0 

FROM-1 

FROMTO 


FRTOTO 
FLXCLR 


;  low  byte  of  screen  address 

;  high  byte  of  screen  address 

;  FROM  now  points  to  the  screen, 

;  but  we're  scrolling  down,  so  we  have  to 

;  adjust  by  adding  23  lines  of  40. 

j  23  times  40 


FROM  is  set  up — points  to  second-to-the- 
last  line. 

subroutine  to  add  40  to  FROM 
number  of  lines  to  copy 

copy  a  line  (screen  and  color) 
back  up  a  line 


The  lines  are  copied. 
Now  dear  the  first  line. 


:  Subroutines 

:  add  40  to  FROM  pointer 


,  add  zero  in  case  of  a  cany 

; 

.  this  subroutine  subtracts  40 

;  down  by  40 

:  subtract  zero  to  adjust  for  wraparound 
;  now  adjust  TO  pointer 


;  Now  copy  screen  and  color  memory. 
;  copy  from  FROM  to  TO 
;  change  to  color  memory 
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C0S3 

20 

5A 

CO 

ISR 

FRTOTO 

C056 

20 

75 

CO 

JSR 

FIXSCN 

C059 

60 

RTS 

C05A 

AO 

27 

FRTOTO 

LDY 

439 

C05C 

B1 

FB 

FTTLOP 

LDA 

(FROM),Y 

COSE 

91 

FD 

STA 

(TO).Y 

C060 

86 

DEY 

C061 

10 

T9 

SPI- 

FTTLOP 

C063 

60 

RTS 

C064 

A5 

FB 

F1XCLR 

LDA 

FROM 

C066 

18 

CLC 

C067 

69 

00 

ADC 

•xOFFSET 

C069 

85 

FB 

STA 

FROM 

C06B 

A5 

FC 

LDA 

FROM  +  1 

C06D 

69 

D4 

ADC 

#>OFFSET 

C06F 

85 

FC 

STA 

FROM  +  1 

C071 

20 

2E 

CO 

JSR 

FROMTO 

C074 

60 

RTS 

C075 

A5 

FB 

FIX5CN 

LDA 

FROM 

C077 

38 

SEC 

C078 

E9 

DO 

SBC 

#<OFFSET 

C07A 

85 

FB 

STA 

FROM 

C07C 

A5 

FC 

LDA 

FROM+1 

C07E 

E9 

D4 

SBC 

s»OFFSET 

C080 

85 

FC 

STA 

FROM  +  1 

C082 

20 

2E 

CO 

ISR 

FROMTO 

C085 

60 

RTS 

:  copy  color  memory  from  FROM  to  TO 
;  change  back  to  screen 


;  get  ready  to  copy  40  bytes  (0-39) 

;  count  down 

;  branch  on  plus  because  we  wahl  *0 

}  add  offset  to  FROM  and  TO 


;  add  40  to  adjust  TO 

|  fix  color  back  to  screen  memory 

;  not  really  necessary 


See  also  BIGMAP,  SCRDN1,  SCRDN2. 
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Name 

Scratch  (erase)  a  disk  file 

Description 

This  routine  erases  a  disk  file  using  the  DOS  scratch 
command. 

Prototype 

1.  Open  the  command  channel  to  the  drive  (SETLFS, 
SETNAM,  OPEN). 

2.  As  part  of  the  SETNAM  routine,  send  the  scratch  command. 

3.  Close  the  file. 

Explanation 

The  first  three  lines  set  up  the  A,  X,  and  Y  registers  for  the 
call  to  SETLFS.  Before  calling  SETNAM,  we  have  to  put  the 
length  of  the  filename  into  A  and  a  pointer  to  the  filename 
into  .X  and  .Y.  But  when  the  command  channel  (15)  is  being 
opened,  the  filename  is  really  a  DOS  command.  When  the 
Kernal  OPEN  routine  is  called,  the  scratch  information  is  sent 
to  the  disk  drive.  All  that  remains  is  the  channel  closing. 

Routine 


cooo 

SETLFS 

n 

SFFBA 

cooo 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

= 

SFFCO 

cooo 

CLOSE 

=  • 

SFFC3 

cooo 

CI.RCHN 

— 

SFFCC 

cooo 

A9 

01 

SCRTCH 

LDA 

#1 

;  logical  file  number 

C002 

A2 

US 

LDX 

#8 

.-  device  number  for  disk  drive 

C004 

AO 

OF 

LDY 

#15 

;  command  channel  15 

C006 

20 

BA 

FF 

JSR 

SETLFS 

;  prepare  to  open  it 

C009 

A9 

OC 

LDA 

#BUFLEN 

;  length  of  buffer 

C00B 

A2 

IE 

LDX 

#<BUFFER 

;  .X  and  .Y  hold  the 

C00D 

AO 

CO 

LDY 

#>BUFFER 

;  address  of  the  buffer 

COOF 

20 

BD 

FF 

JSR 

SETNAM 

;  set  name 

C012 

20 

CO 

FT 

JSR 

OPEN 

:  open  it 

C015 

A9 

01 

LDA 

#1 

;  and  Immediately 

C017 

20 

C3 

FF 

JSR 

CLOSE 

;  close  the  command  channel 

C01A 

20 

CC 

FF 

JSR 

CLRCHN 

;  clear  the  channels 

C01D 

60 

RTS 

;  all  done 
;  data  area 

C01E 

53 

30 

3A 

BUFFER 

.ASC 

"SO:FILENAME 

;  replace  FILENAME  with  the  name  of  the 
;  file  to  be  scratched 

C029 

OD 

BYTE 

13 

:  return  character 

C02A 

BUFLEN 

= 

•  -  BUFFER 

See  also  CONCAT,  COPYFL,  FORMAT,  INITLZ,  RENAME,  VALIDT. 
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Name 

Check  the  status  of  the  shift  keys 

Description 

The  shift  key  flag  (SHFLAG)  at  location  653  (location  211  on 
the  128)  can  be  checked  to  see  whether  the  SHIFT,  Com- 
modore, or  CTRL  keys  are  being  pressed.  On  the  128, 
SHFLAG  can  also  tell  you  whether  the  ALT  or  CAPS  LOCK 
keys  are  being  pressed. 

Pressing  SHIFT  returns  a  value  of  1  in  SHFLAG;  pressing 
the  Commodore  key  returns  a  2;  and  pressing  CTRL,  a  4.  On 
the  128,  ALT  returns  an  8;  CAPS  LOCK,  a  16.  If  two  or  more 
of  these  keys  are  pressed  simultaneously,  SHFLAG  returns  the 
sum  of  these  values.  For  example,  pressing  CTRL  and  SHIFT 
together  result  in  a  value  of  5  in  SHFLAG. 

Prototype 

Return  the  contents  of  the  SHIFT  flag  in  .A. 

Explanation 

In  the  example  routine,  the  current  contents  of  SHFLAG  are 
continually  printed  on  the  screen.  Press  the  SHIFT,  Com- 
modore, and  CTRL  keys  (also  the  ALT  and  CAPS  LOCK  keys 
on  the  128),  either  alone  or  together,  to  see  the  effect  on 
SHFLAG.  Press  Q  to  exit  (quit)  the  routine. 

Routine 


cooo 

SHFLAG 

*" 

653 

:  SHFLAG  =  211  on  the  128— shift  key  flag 

cooo 

CHROUT 
GETIN 

: 

65490 
65508 

cooo 

CLRHOM 

= 

58692 

:  CLRHOM  =  49474  on  the  128 

LINPRT 

= 

48589 

:  LINPRT  =  36402  on  the  128 

:  Check  shift  flag.  Print  result.  Quit  when  Q 

;  is  pressed. 

cooo 

20 

44 

E5 

CLRROM 

JSR 

CLRHOM 

1  clear  screen 

C003 

20 

19 

CO 

LOOP 

JSR 

SHFCHK 

:  check  shift  flag 

C006 

AA 

TAX 

;  use  flag  value  as  low  byte 

C007 

A9 

00 

LDA 

#0 

:  zero  in  the  high  byte 

C009 

20 

CD 

BD 

JSR 

LINPRT 

,  print  a  two-byte  integer  to  screen  (see 
;  NUMOUT) 

cooc 

A9 

0D 

LDA 

#13 

.  print  RETURN 

COOE 

20 

D2 

FF 

JSR 

CHROUT 

con 

20 

E4 

FF 

JSR 

GETIN 

:  get  a  key 

CO  14 

C9 

51 

CMP 

#81 

.  is  it  Q? 

C016 

DO 

EB 

BNE 

LOOP 

;  no,  so  LOOP 

C018 

60 

RTS 

;  yes.  so  return 

■  Return  SHFLAG  in  .A. 

COW 

AD  81 

02 

SHFCHK 

LDA 

SHFLAG 

C01C 

60 

RTS 

See  also  STPFLG,  STPKER. 
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Name 

Clear  the  SID  chip 

Description 

SIDCLR  stores  a  zero  in  each  of  the  SID  chip's  25  write-only 
registers,  thereby  cancelling  all  sound  output. 

Prototype 

In  a  loop,  store  zeros  in  memory  in  the  range  54272-54296 
and  RTS. 

Explanation 

Generally,  the  first  step  you  take  in  writing  any  sound  routine 
is  to  clear  the  SID  chip  so  that  parameters  remaining  from  a 
previous  use  of  the  chip  won't  affect  the  current  sound. 

A  minor  problem  with  the  SID  chip  is  that  it  sometimes 
continues  to  echo  the  last  frequency  output  even  after  the  in- 
tended sound  has  finished.  This  effect,  though  barely  audible, 
may  annoy  the  user.  If  it  does,  you  can  silence  the  chip  al- 
together by  JSRing  to  SIDCLR  at  the  end  of  your  sound 
routines. 

Note:  The  SID  chip  is  addressed  at  locations  54272-54300, 
a  total  of  29  registers.  The  first  25,  cleared  in  SIDCLR,  are 
write-only  registers,  meaning  they  can't  be  read.  In  contrast, 
the  remaining  4  are  read-only  registers;  writing  to  them  has  no 
effect. 


Routine 

cooo 


FRELOl 


54272 


cooo 

A9 

00              SIDCLR 

LDA 

#0 

fill  willi  zeros 

C002 

A0 

18 

LDY 

#24 

as  the  offset  from  FRELOl 

C0O4 

99 

00     D4    SIDLOP 

STA 

FRELOLY 

store  zero  in  each  SID  register 

C007 

88 

DEY 

for  next  lower  address 

C008 

10 

FA 

BPL 

SIDLOP 

fill  25  bytes 

COOA 

60 

RTS 

we're  done 

starting  address  of  the  SID  chip 


See  also  BEEPER,  BELLRG,  EXPLOD,  LNTMUS,  MELODY,  NOTETB, 
SIDVOL,  SIRENS. 
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Name 

Set  the  SID  chip  volume  register 

Description 

SIDCLR  sets  the  SID  chip  volume  register  to  the  level  (0-15) 
specified  in  the  accumulator. 

Prototype 

1.  Enter  this  routine  with  the  chosen  volume  level  in  the 
accumulator. 

2.  Store  this  value  into  the  volume  and  filter-select  register  at 
54296  (SIGVOL)  and  return  to  the  calling  program. 

Explanation 

SIGVOL  (location  54296)  is  a  multifaceted,  write-only  register 
for  the  SID  chip.  With  it,  you  can  choose  the  volume  of  the 
sound  that's  output  (bits  0-3),  select  filtering  (bits  4-6),  or  dis- 
connect the  output  of  voice  3.  In  this  routine,  the  register's 
sole  purpose  is  to  determine  the  volume  level  for  the  chip. 
The  range  of  the  volume  level  is  0  (minimum)  through  15 
(maximum). 

SIDVOL  is  easy  to  use.  Just  load  a  number  representing 
the  volume  into  the  accumulator  and  JSR  to  the  routine.  In  the 
example,  we  set  the  chip  to  its  maximum  volume  level  of  15. 

Note:  Some  programmers  attempt  to  silence  the  SID  chip 
by  storing  a  zero  in  54296,  but  this  is  not  always  effective.  A 
better  approach  is  to  store  a  zero  in  the  frequency  registers  or 
turn  the  chip  off  completely  with  SIDCLR. 

Routine 

volume  and  filler-select  register 

Set  the  volume  to  15. 

load  .A  with  the  volume,  0  (minimum) 

through  15  (maximum) 

set  the  volume  to  .A 

Enter  with  the  volume  in  .A. 

store  the  volume  value  in  .A  Into  the 

volume  register 

See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB, 
SIDCLR,  SIRENS. 


cooo 

SIGVOL 

= 

54296 

cooo 

A9 

OF 

MAIN 

LDA 

■15 

C002 

4C 

05 

CO 

JMP 

SIDVOL 

C005 

8D 

18 

D4    SIDVOL 

STA 

SIGVOL 

COOS 

60 

RTS 
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Name 

Produce  a  siren  sound 

Description 

SIRENS  causes  the  SID  chip  to  emit  an  extended  sirenlike 
sound.  At  certain  intervals  in  a  game,  you  could  use  it  to  sig- 
nal to  the  user  that  he's  reached  a  higher  level  or  achieved  bo- 
nus points.  Or  you  could  use  it  as  fanfare  at  the  conclusion  of 
the  game. 

Prototype 

1.  Clear  the  SID  chip  with  SIDCLR. 

2.  Set  up  the  necessary  SID  chip  parameters  for  voice  1.  Set 
sustain/release  to  $F0,  select  a  sawtooth  waveform,  and 
gate  the  sound. 

3.  Assign  a  low  frequency  and  a  triangle  waveform  to  voice  3. 

4.  Disconnect  output  from  voice  3.  At  the  same  time,  select 
band-pass  filtering  and  the  volume. 

5.  Store  %00000001  in  the  filter/resonance  control  register  to 
filter  voice  1  without  resonance. 

6.  Select  a  band-pass  filter  cutoff  frequency. 

7.  In  SIRLOP,  multiply  the  output  of  voice  3  by  32  and  add  in 
a  base  frequency  of  15000.  Store  the  low  and  high  bytes  of 
the  resulting  frequency  in  voice  1. 

8.  Pause  four  jiffies  before  getting  another  frequency  value  for 
voice  3. 

9.  Repeat  SIRLOP  256  times.  Then  clear  the  chip  and  RTS. 

Explanation 

In  this  routine,  the  output  from  voice  3  modulates  the  fre- 
quency of  voice  1.  In  the  process,  voice  3  is  not  actually  heard. 
As  a  result,  no  SID  attack/decay  or  sustain /release  parameters 
are  required  for  this  voice.  Its  only  use  is  in  providing  a  fre- 
quency value  for  voice  1 . 

After  disconnecting  the  audio  output  of  voice  3,  the  wave- 
form (high  byte  only)  for  this  voice  is  read  from  RANDOM. 
Since  a  triangle  waveform  is  selected  for  voice  3,  the  numbers 
returned  by  RANDOM  increase  gradually  from  0  to  255,  and 
then  work  down  to  0  again.  In  order  to  get  a  suitable  fre- 
quency range  for  voice  1,  these  values  are  multiplied  by  32 
and  then  added  to  a  base  frequency  of  15000. 

Another  feature  of  SIREN'S  is  its  use  of  band-pass  filter- 
ing. With  the  band-pass  filter  implemented,  frequencies  on 
either  side  of  a  cutoff  frequency  are  climinished  in  volume. 
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Since  only  1 1  bits  on  the  two-byte  cutoff  register  are  ad- 
dressed, the  cutoff  filter  value  can  range  from  0-2047.  Al- 
though the  number  stored  in  this  register  is  proportional  to  the 
cutoff  frequency  (in  this  case,  616),  the  value  itself  does  not 
represent  an  actual  frequency.  Probably  the  best  way  to 
achieve  the  effect  you're  looking  for  with  this  register  is 
through  experimentation. 

Routine 


cooo 

ZP 

= 

251 

cooo 

JIFFLO 

= 

162 

cooo 

FRELOl 

= 

54272 

cooo 

FREHI1 

= 

54273 

cooo 

VCREG1 

■> 

54276 

cooo 

SUREL1 

= 

54278 

cooo 

FREL03 

» 

54286 

cooo 

VCREG3 

= 

54290 

cooo 

CUTLO 

=• 

54293 

cooo 

CUTHI 

= 

54294 

cooo 

RESON 

= 

54295 

cooo 

SIGVOL 

= 

54296 

cooo 

RANDOM 

= 

54299 

cooo 

BASFRE 

- 

15000 

cooo 

20 

64 

CO 

SIRENS 

JSR 

S1DCLR 

C003 

A9 

1-0 

LDA 

#$F0 

coos 

8D 

06 

D4 

STA 

SUREU 

C008 

A9 

21 

LDA 

#%00100001 

COOA 

8D 

04 

D4 

STA 

VCREG1 

COOD 

A9 

02 

LDA 

#2 

C00F 

SD 

DE 

D4 

STA 

FREL03 

C012 

A9 

10 

LDA 

#%OO010OO0 

con 

8D 

12 

D4 

STA 

VCREG3 

C017 

A9 

AP 

LDA 

#%ioiomi 

C019 

SD 

18 

D4 

STA 

SIGVOL 

COIC 

A9 

01 

LDA 

#1400000001 

C01E 

8D 

17 

D4 

STA 

RESON 

C021 

A9 

00 

LDA 

#0 

COZ3 

8D 

15 

D4 

STA 

CUTLO 

C026 

A9 

4D 

LDA 

#77 

COM 

3D 

16 

D4 

STA 

CUTHI 

C02B 

A2 

00 

LDX 

#0 

C02D 

A9 

00 

snuop 

LDA 

#0 

C02F 

85 

FC 

STA 

ZP+1 

C031 

AD  IB 

D4 

LDA 

RANDOM 

C034 

85 

FB 

STA 

ZP 

C036 

06 

FB 

ASL 

ZP 

C038 

26 

FC 

ROL 

ZP+1 

C03A 

Ob 

FB 

ASL 

ZP 

C03C 

26 

FC 

ROL 

ZP+1 

C03E 

Oh 

FB 

ASL 

ZP 

COM 

26 

FC 

ROL 

ZP+I 

C042 

06 

FB 

ASL 

ZP 

COM 

26 

FC 

ROL 

ZP+1 

C046 

06 

FB 

ASL 

ZP 

I  low  byte  of  jlffjr  clock 

;  voice  1  frequency  control  (low  byte) 

;  voice  1  frequency  control  (high  byte) 

;  voice  1  control  register 

:  voice  1  sustain/reiease  register 

;  voice  3  frequency  control  (low  byte) 

;  voice  3  control  register 

;  lower  three  bits  of  filter  cutolf  frequency 

;  filter  cutoff  frequency  (high  byte) 

:  filter /resonance  control  register 

;  volume  and  filter  select  register 

;  reads  high  byte  of  voice  3 

,  base  frequency  to  add  to  voice  3 

;  go  clear  the  SID  chip 

;  set  full  sustain/fastest  release 

;  select  sawtooth  waveform  (voice  1)  and 
;  gate  sound 

;  give  voice  3  a  frequency 

;  select  triangle  waveform  (voice  3) 

;  disconnect  voice  3  output/select  band- 
;  pass/max.  volume 

;  no  resonance  and  filter  voice  1 

;  select  band-pass  cutoff  frequency  of  616 


;  as  an  index  in  SIRLOP 

;  c'aiculato  voice  1  frequency  from  voice  3 

;  frequency  (high  byte). 

;  initialize  voice  1  frequency  (high  byte) 

;  get  voice  3  frequency  (high  byte) 
;  store  in  zero  page  as  low  byte 
;  multiply  it  by  32,  double  low  byte 
;  then  high  byte 
:  double  four  more  times 
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C048 

2S 

FC 

C04A 

A5 

FB 

CMC 

18 

CO-ID 

69 

98 

Off 

8D 

00 

D4 

C052 

A5 

FC 

C0S4 

69 

3A 

C056 

8D 

01 

D4 

C059 

A9 

04 

C05B 

65 

A2 

C05D 

C5 

A2 

C05F 

DO 

FC 

C061 

CA 

C062 

DO 

C9 

DELAY 


CQ64  A9  00  SIDCLR 

C066  A0  18 

C068  99  00    D4   SIDLOP 

C06B  B8 

C06C  10  FA 

C06E  60 


ROL  ZP  +  ] 

LDA  ZP 
CLC 

ADC  #<BASFRE 

STA  FRELOl 

LDA  ZP+1 

ADC  #>BASFRE 

STA  FREHIl 

LDA  #4 

ADC  JIFFLO 

CMP  JIFFLO 

BNE  DELAY 

DEX 

BNE  SIRLOP 


LDA  #0 

LDY  *24 

STA  FRELOl.Y 

DEY 

BPL  SIDLOP 

RTS 


SIRENS 


Add  a  base  frequency  of  15000  to  thi». 

low  byle  firs: 

for  addition 

add  low  byte  of  base  frequency 

and  store  in  voice  1  frequency  register 

(low  byte) 

then  high  byte 

add  high  byte  of  base  frequency 

and  store  in  voice  1  frequency  register 

Delay  four  jiffies. 

add  four  jiffies  to  jiffy  clock  reading 

and  wait  for  four  jiffies  to  elapse 

for  next  note 

repeat  SIRLOP  256  times 

Fall  through  to  SIDCLR  to  stop  sound  and 

RTS. 

Clear  the  SID  chip. 

fill  with  zeros 

as  the  offset  from  FRELOl 

store  0  in  each  SID  chip  address 

for  next  lower  address 

fill  25  bytes 

we're  done 


See  also  BEEPER,  BELLRG,  EXPLOD,  INTMUS,  MELODY,  NOTETB, 
SIDCLR,  SIDVOL. 
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Name 

Sprite  interrupt  routine — automatic  sprite  movement 
Description 

In  a  situation  where  you  need  sprites  to  travel  automatically 
from  one  spot  to  another,  this  routine  may  be  helpful.  It 
makes  a  sprite  operate  like  a  battery-powered  toy  car.  Turn  it 
on,  and  it  moves  forward  without  any  further  attention  from 
you.  The  sprite  position  is  updated  60  times  a  second,  regard- 
less of  what  the  main  program  is  doing. 

Prototype 

First,  install  the  routine: 

1 .  Create  the  sprite  shape  and  set  up  the  necessary  pointers. 

2.  Set  the  interrupt-disable  flag  (SEI). 

3.  Change  the  interrupt  vector  to  point  to  the  SPRINT  routine. 

4.  Clear  the  interrupt  flag  (CLI)  and  return. 

Within  the  routine: 

5.  Slow  down  the  movement  by  checking  a  flag  (if  necessary). 

6.  Change  the  sprite  shape  (optional). 

7.  Update  the  x  and  y  positions,  and  store  them  in  registers. 

8.  Jump  to  the  normal  interrupt-handling  routine. 

Explanation 

In  machine  language,  sprite  movement  can  be  something  of  a 
headache.  One  problem  is  that  ML  is  very  fast;  a  sprite-mover 
routine  can  easily  move  a  single  sprite  from  one  edge  of  the 
screen  to  another  in  the  blink  of  an  eye.  A  delay  loop  is  an 
unsatisfactory  solution — you  want  the  sprites  to  slow  down, 
not  the  whole  program.  A  second  problem  is  that  updating 
sprite  positions  can  take  a  large  number  of  instructions  that 
clutter  up  the  main  loop  within  a  program. 

Putting  the  sprites  on  the  interrupt  is  a  workable  answer 
to  both  difficulties.  Every  1/60  second,  the  wedge  takes  over 
and  handles  automatic  sprite  movement. 

The  code  at  locations  $C000-$C00A  copies  two  sprite 
shapes  from  the  program  down  to  the  cassette  buffer  (to  put 
them  in  the  realm  of  the  VIC  chip's  default  16K  video  memory 
bank).  Then  the  code  at  locations  $C00B-$C026  sets  up  the 
initial  x  and  y  positions,  sets  the  sprite  color  to  white,  turns  on 
the  sprite,  and  sets  the  sprite  pointer. 

Next,  the  wedge  is  installed.  It's  necessary  to  use  the  SEI 
instruction  to  disable  interrupts  while  the  installation  is  in  the 


SPRINT 


works.  Otherwise,  an  interrupt  may  occur  during  the  change, 
and  the  6510/8502  may  jump  to  an  unusual  location  in  mem- 
ory. The  IRQ  vector  at  locations  788-779  is  changed  to  point 
to  SPRINT.  Henceforth,  all  IRQ  interrupts  will  move  to  our 
own  routine  before  continuing  to  the  normal  interrupt-han- 
dling  routine.  When  the  wedge  is  complete,  CLI  clears  the 
flag,  and  RTS  returns  the  program  to  BASIC  (or  to  the  ML 
routine  that  called  it). 

The  SPRINT  routine  is  now  called  60  times  a  second. 
Only  one  time  in  four  does  it  actually  do  something  (15  times 
a  second  is  plenty  fast).  This  portion  of  the  program  could  be 
eliminated  or  modified. 

First,  at  $C03A,  SPRINT  checks  the  current  shape  of  the 
sprite.  If  it's  SI,  the  shape  is  changed  to  S2  and  vice  versa. 
You're  not  required  to  change  the  shapes;  this  section  could 
also  be  eliminated.  Next,  at  $C04E,  the  x  and  y  positions  are 
updated.  In  this  example,  the  x  position  is  increased  by  two, 
and  one  is  added  to  the  y  position  (this  could  be  changed, 
depending  on  the  program).  The  x  and  y  positions  are  vari- 
ables stored  in  memory.  After  they're  changed,  they  must  be 
copied  to  the  appropriate  sprite  registers  (at  $C068-$C079). 

The  routine  finishes  up,  not  with  an  RTS,  but  with  a  JMP 
to  the  normal  IRQ  handler  (NORIRQ,  $EA31  on  the  64).  This 
routine  scans  the  keyboard  and  generally  keeps  things 
running. 

Note:  The  XHI  variable  is  copied  directly  to  SPXM  because 
only  sprite  0  is  being  moved.  If  you  use  sprites  1-7,  it  will  be 
necessary  to  shift  the  bits  to  the  left  to  put  the  high  bit  in  the 
correct  position. 

On  the  128,  you  must  disable  the  sprite  control  com- 
mands of  BASIC.  Before  SYSing  to  this  routine,  enter  POKE 
4861,1  (or  use  any  other  non-zero  value).  Alternately,  you 
could  LDA  and  STA  at  the  start  of  the  program. 

Warning:  It's  important  not  to  overload  the  interrupt  rou- 
tine with  too  many  instructions.  The  interrupt  handler  is  called 
every  1/60  second,  which  seems  very  fast  to  us.  But  to  the 
computer,  which  works  in  millionths  of  a  second,  it's  a  long 
time.  If  you  write  an  extremely  long  interrupt  wedge,  it  may 
possibly  require  more  than  1/60  second  to  run.  If  this  hap- 
pens, the  interrupt  routine  will  run  in  the  background,  and,  by 
the  time  it's  done,  another  interrupt  will  have  occurred.  The 
main  program  will  never  have  a  chance  to  execute. 
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Routine 

cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 
cooo 


I1F 

SPR1 

SPR2 

SI 

S2 

5PCOLR 

SPX 

SPY 

SPXM 

SPE 

srr 

IRQVEC 
NORIRQ 


COOO  A2  80 

C002  BD  80     CO    COPY 

COOS  9D  40     03 

C008  CA 

C009  10  F7 


COOB 
COOD 
C010 
C0I3 
C015 
C018 
C01A 
C01D 
COIF 
C022 
C024 


A9  64 

8D  7D    CO 

8D  7F    CO 

A9  01 

8D  27     DO 

A9  00 

8D  7E 

A9  01 

8D  15 

A9  OD 

8D  F8     07 


CO 


DO 


LDX 
IDA 
STA 
DEX 
BPL 

LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 


$A2 

$0340 

$0380 

13 

14 

53287 

53248 

53249 

53264 

53269 

2040 

788 

$EA31 


»128 

SHAPE1.X 

SPR1.X 

COPY 

-100 

XLO 

YLO 

#1 

SPCOLR 

#0 

XH1 

tfl 

SPE 

*S1 

SPP 


;  lowest  byte  of  the  jiffy  clock 

;  SPR1  ='$OEOO  on  the  128 

j  SPR2  -  $0E40  on  the  128 

;  SI  =  56  on  the  128 — pointer  1  to  $0340 

;  S2  =  57  on  the  128— pointer  2  to  $0380 

;  sprite  0  color 

;  x  position 

;  y  position 

;  MSB  bit  of  x  position 

;  sprite  enable 

;  pointer  to  sprite  0 

;  NORIRQ  =  $FA65  on  the  128— normal  IRQ 
;  handling  routine 

;  two  sprites  =  128  bytes 
;  copy  from  the  program 
;  to  available  memory 

;  cutting  it  thin  (127  is  plus.  128  is  minus) 


;  put  it  in  x-position  shadow 

;  and  y-position  shadow 

;  the  color  white 

;  into  the  color  register 

;  no  MSB 

;  into  the  shadow  register 

:  enable  sprite  0 

;  sprite  shape  I  pointer 
. into  2040 


03 


C027  78 

C028  A9    34 

C02A  8D    14 

C02D  A9    CO 

C02F  8D    15     03 

C032  58 

CCI33  60 


SEI 

LDA      #<5PRINT 

STA       IRQVEC 

LDA      #>SPRTNT 

STA       IRQVEC +1 

CU 

RTS 


SPRINT 


COM 

C034  A5    A2  LDA 

C036  29     03  AND 

C038  DO    40  BNE 

C03A  AD  F8  07                            LDA 

C03D  C9    0D  CMP 

C03F  DO    08  BNE 

C041  A9    0E  LDA 

C043  8D    F8  07                            STA 

C046  4C    4E  CO                          JMP 

C049  A9    0D  DOl               LDA 

C04B  8D    F8  07                            STA 

C04E  AD  7D  CO    XY                  LDA 

C051  18  CLC 

C052  69     02  ADC 

COM  8D    7D  CO                           STA 

C057  AD  7E  CO                           LDA 

C05A  69     00  ADC 

C05C  C9    02  CMP 


JTF 

#%oooooon 

ENSPRIN 

SPP 

#S1 

DOl 

#S2 

SPP 

XY 

#S1 

SPP 

XLO 

#2 
XLO 

XHI 

#0 

#2 


;  change  the  IRQ  vector  now 
;  first  stop  interrupts 
;  change  the  vector 


;  clear  the  interrupts 

;  and  we're  done  with  setup 

;  this  is  the  interrupt  routine 

;  every  fourth  interrupt 

;  AND  it  with  3 

;  if  a  bifs  on,  quit 

;  get  the  pointer 

;  is  it  shape  1? 

:  no,  do  shape  1 

;  load  shape  2 

;  and  store  it 

;  go  ahead  to  x  and  y 

;  get  shape  1 

;  and  store  the  pointer 

;  find  the  low  byte  (XLO) 

;  add  Iwo 
;  and  store  it  back 
;  check  the  high  byte 
;  add  zero  or  one 
;  if  if  s  not  two 
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C05E 

DO 

02 

BNE 

STHI                 ;  branch  ahead 

COM 

A9 

00 

IDA 

#0                     ;  otherwise,  make  il  zero 

C062 

8D 

7E 

co  sthi 

STA 

xm 

C065 

Be 

7F 

CO 

INC 

YLO                  ;  add  one  to  the  y  position 
;  Now  change  the  position! 

CMS 

AD  7E 

CO 

LDA 

xm 

C06B 

8D 

10 

DO 

STA 

SPXM 

C06E 

AD 

7D 

CO 

LDA 

XLO 

C071 

8D 

00 

DO 

STA 

SPX 

C074 

AD  7F 

CO 

LDA 

YLO 

C077 

8D 

01 

DO 

STA 

SPY 

C07A 

4C 

31 

EA   ENSPRIN 

JMP 

NORIRQ          ;  do  the  normal  IRQ  stuff 

C07D 

00 

XLO 

.BYTE 

0 

C07E 

00 

XH1 

BYTE 

0 

C07F 

00 

YLO 

BYTE 

0 

C080 

SHAPE! 

= 

• 

C080 

35 

00 

00 

BYTE 

%00110101.%0000000,%00000000 

C083 

1A 

7C 

00 

.BYTE 

%00011010,%1111100,%00000000 

C086 

OD 

66 

00 

.BYTE 

%00001101,%1100110.%00000000 

C089 

46 

42 

06 

BYTE 

%01000110,%1000010,%OOOOOI10 

C08C 

21 

42 

IE 

BYTE 

%00100001,%1000010,%00011 1 10 

C08F 

08 

24 

70 

BYTE 

%0000I000.%0100100.%01 110000 

C092 

07 

58 

CO 

BYTE 

%00000111.%1011011,%1 1000000 

C095 

06 

3F 

00 

BYTE 

%000001 10,%01 1  111  1,%00000000 

C098 

OE 

3C 

00 

.BYTE 

%00001 1 10,%01 1 1 100,%00000000 

C09B 

06 

3C 

00 

.BYTE 

%00000110,%01 11 100,%00000000 

C09E 

01 

7C 

00 

.BYTE 

%00000001,%1 1 1 1 100.%00000000 

COA1 

01 

7C 

00 

.BYTE 

%00000001 .%  1 1 1 11 00,%00000000 

C0A4 

00 

7C 

00 

.BYTE 

%00000000,%1 1 11 100,%00000000 

C0A7 

El 

7F 

00 

BYTE 

%iiiooooi.%iimii,%oooooooo 

COAA 

El 

78 

80 

.BYTE 

%11100001,%1111000,%10000000 

CO  AD 

62 

20 

CO 

.BYTE 

%01100010,%0100000,%11000000 

COBO 

2E 

40 

60 

.BYTE 

%0010U10,%1000000,%01100000 

C0B3 

ID 

40 

70 

.BYTE 

%0001 1 101,%1000000,%01 1 10000 

COBS 

00 

03 

CO 

.BYTE 

%00000000,%0000011.%1 1000000 

C0B9 

00 

07 

80 

BYTE 

%00000000,%00001 1 1,%10000000 

COBC 

00 

02 

CO 

-BYTE 

%00000000,%0000010,%1 1000000 

COBF 

00 

.BYTE 

0                           ;  zero  to  make  it  even 

COCO 

SHAPE2 

= 

• 

COCO 

00 

00 

00 

.BYTE 

%00000000,%0000000,%00000000 

C0C3 

3B 

78 

00 

.BYTE 

%001 1101 1,%  1 11  lOOO.IfeOOOOOOOO 

C0C6 

2B 

4C 

DO 

.BYTE 

%00101011,%1001100,%00000000 

C0C9 

46 

44 

00 

.BYTE 

%010001 10,%1000100,%00000000 

COCC 

21 

42 

00 

.BYTE 

%00100001,%1000010,%00000000 

COCF 

00 

24 

70 

.BYTE 

%00000000.%0100100,%01110000 

C0D2 

01 

5B 

F8 

.8YTE 

%00000001,%1011011,%11111000 

C0D5 

02 

3F 

BG 

■BYTE 

%ooooooio.%oiniii,%ionoooo 

COD8 

06 

38 

00 

.BYTE 

%000001 10,%01 1 1000,%00000000 

CODB 

02 

3C 

CO 

.BYTE 

%00000010,%0111100,%11000000 

CODE 

01 

7D 

El) 

.BYTE 

%00000001,%1 1 11101,%  1 1 100000 

COE1 

01 

7C 

00 

.BYTE 

%0000000 1 ,%  1 1 1 1 1 00,  %00000000 

C0E4 

00 

7C 

00 

.BYTE 

%00000000,%  1 1 1 1 100,%00000000 

C0E7 

01 

7F 

00 

.BYTE 

%00000001,%  1  111  1 1 1,%00000000 

COEA 

01 

78 

80 

.BYTE 

%00000001,%111 1000,%10000000 

COED 

00 

23 

CO 

BYTE 

%00000000.%0100011,%1 1000000 

COFO 

03 

73 

80 

-BYTE 

%00000011,%1110011,%10000000 

C0F3 

18 

7B 

CO 

.BYTE 

%oooiiooo,%imoii,%iioooooo 

C0F6 

70 

3F 

80 

.BYTE 

%01110000.%OU1UI,%10000000 

C0F9 

00 

3D 

80 

.BYTE 

%00000000,%01 11101,%10000000 

COFC 

OC 

02 

CO 

.BYTE 

%oooonoo,%oooooio.%  noooooo 

See  also  MOVSAB. 
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Name 

Calculate  the  integer  square  root  of  an  integer  value 

Description 

Because  squares  follow  a  definite  pattern,  it's  fairly  easy  to 
find  the  integer  square  root  of  a  given  number.  Note  that  this 
routine  doesn't  handle  the  fractional  part  of  a  square  root.  For 
example,  it  will  return  3  as  the  square  root  for  all  the  numbers 
in  the  range  9-15  and  ignore  the  fractional  component. 

Prototype 

1.  Store  the  value  of  which  you  want  to  find  the  square  root 
in  VAL. 

2.  Initialize  ADDBT  and  SQUARE  to  one,  and  ROOT  to  neg- 
ative one. 

3.  Increment  ROOT  (so  it  starts  as  zero). 

4.  Compare  SQUARE  to  VAL. 

5.  If  SQUARE  is  equal  or  larger,  exit  the  routine.  The  result  is 
in  ROOT. 

6.  If  SQUARE  is  smaller,  add  2  to  ADDBT. 

7.  Add  ADDBT  to  SQUARE  and  loop  back  to  step  3. 

Explanation 

Normally,  finding  the  square  root  of  a  number  is  a  fairly  in- 
volved process.  But  if  you're  working  with  integers,  you  may 
not  care  about  the  fractional  part  of  the  result.  In  that  case,  we 
can  use  a  mathematical  property  of  squares  to  find  the  integer 
portion  of  the  square  root. 

Write  down  the  first  six  squares  and  underneath  write 
down  the  first  six  odd  numbers;  then  add  up  the  columns: 

0  1     4     9      16     25 
13     5     7       9     11 

1  4     9  16     25     36 

Note  the  pattern  of  squares  is  exacdy  echoed  in  the  sums 
underneath.  It  can  be  proven  mathematically  that  this  se- 
quence continues  to  infinity.  To  calculate  squares,  then  it  be- 
comes a  matter  of  keeping  a  counter  (ADDBT  in  the  program 
below)  that  starts  at  1  and  increments  by  2  during  each  loop. 
SQUARE  also  starts  at  1  and  has  ADDBT  added,  to  yield  4,  9, 
16,  and  so  on.  The  answer,  held  in  ROOT,  lags  one  number 
behind  the  actual  square  root  because  we  want  to  find  a 
square  that's  larger  than  VAL,  the  number  from  which  we're 
extracting  a  root. 
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The  example  program  prints  a  bad  facsimile  of  the  square- 
root  symbol,  and  then  the  number  from  VAL  and  an  equal 
sign.  The  answer  is  calculated  and  printed. 

Routine 


cooo 

cooo 

cooo 

A9 

CD 

C002 

20 

D2 

EF 

coos 

A9 

CF 

C007 

20 

D2 

FF 

COOA 

AE 

8! 

CO 

COOD 

AD  82 

CO 

CO10 

20 

CD 

BD 

C013 

A9 

3D 

C015 

20 

D2 

FF 

C018 

20 

25 

CO 

COIB 

AE 

87 

CO 

COIE 

AD 

88 

CO 

C021 

20 

CD 

BD 

C024 

60 

C025 

C025 

A2 

01 

C027 

8E 

35 

CO 

C02A 

8E 

S3 

CO 

C02D 

CA 

C02E 

8E 

86 

CO 

C031 

8E 

84 

CO 

COM 

CA 

C035 

8E 

87 

CO 

C038 

8E 

88 

CO 

LINPRT        = 
CHROUT      = 


SQROOT 


LDA 

)SR 

LDA 

J5R 

LDX 

LDA 

JSR 

LDA 

JSR 

JSR 

LDX 

LDA 

JSR 

RTS 


LDX 
STX 
STX 
DEX 
STX 
STX 
DEX 
STX 
STX 


SBDCD 
SFFD2 

#205 

CHROUT 

*207 

CHROUT 

VAL 

VAL+1 

LINPRT 

#61 

CHROUT 

SQROOT 

ROOT 

ROOT+1 

LINPRT 


#1 

ADDBT 

SQUARE 

ADDBT+1 
SQUARE+1 

ROOT 
ROOT+1 


C03B    EE   87    CO    LOOP 
C03E    DO    03 
COW     EE    B8     CO 


INC  ROOT 
BNE  NOHI 
INC       ROOT+1 


COO 

COO 

C046 

C049 

C04B 

C04D 

C04E 

C051 

C054 

C056 

C059 

C05A 

C05D 

C060 

C063 

C066 

C069 

C06C 

C06E 


NOHI 


AD  82 
CD  84 
FO  03 
BO  09 
60 

AD  81 
CD  83 
90  F7 
20  72 
18 

AD  83 
6D  85 
8D  83 
AD  84 
6D  86 
BD  84 
BO  03 
4C    3B 


CO 
CO 


QUIT 
CO    MAYBE 
CO 

CO    MORE 

CO 
CO 
CO 
CO 
CO 
CO 

co 


LDA 

CMP 

BEQ 

BCS 

RTS 

LDA 

CMP 

BCC 

JSR 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

BCS 

JMP 


VAL+1 
SQUARE+1 
MAYBE 
MORE 

VAL 

SQUARE 
QUIT 
ADD2 

SQUARE 

ADDBT 

SQUARE 

SQUARE+1 

ADDBT+1 

SQUARE+1 

ENDIT 

LOOP 


UNFRT  =  $8E32  on  the  128 


backslash  character 

print  il 

upper-left-comer  character 

print  il  (to  make  a  square-root  symbol) 

print  the  value 

high  byte 

equal  sign  character 
print  it 

calculate  the  square  root 
print  the  square  value 


;  itart  with  1  in  ADDBT  and  SQUARE 
;  .X  =  0,  Ihe  high  byte 


net  result  of  —1  in  ROOT 

also  a  255  into  the  high  byte  of  ROOT 

Start  by  incrementing  ROOT. 


;  Now  compare  VAL  lo  SQUARE. 
;  high  byte  first 

;  if  equaL  check  low  byte 

;  if  VAL  Is  bigger,  do  another  round 

;  else  RTS  with  the  result  in  ROOT 

;  look  at  VAL  again  (low  byte) 

;  compare  ll 

;  quit  if  smaller 


;  double  add 
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C071 

60 

ENDIT 

RTS 

C072 

AD 

a; 

CO 

ADD2 

LDA 

ADDBT 

C075 

18 

CLC 

CC76 

69 

02 

ADC 

#2 

C078 

8D 

85 

CO 

STA 

ADDBT 

C07B 

90 

03 

8CC 

NOMO 

C07D 

EE 

86 

CO 

INC 

ADDBT +  1 

C080 

60 

NOMO 

RTS 

C081 

C4 

32 

VAL 

-WORD  12996 

C063 

00 

00 

SQUARE 

.BYTE 

0.0 

C085 

00 

00 

ADDBT 

.BYTE 

0.0 

C087 

00 

00 

ROOT 

-BYTE 

0,0 

;  Add  2  to  ADDBT. 


;  the  square  of  1 14 
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Name 

Binary  search  of  a  sorted  list 

Description 

The  good  news  about  a  binary  search  like  SRCBIN  is  that  it's 
by  far  the  fastest  way  to  find  an  item  in  a  list.  The  bad  news  is 
that  for  it  to  work  correctly,  the  list  must  already  be  in  alpha- 
betic order.  For  a  static  list  that  doesn't  change  much — like  a 
dictionary — a  binary  search  is  ideal.  For  a  volatile  list  that 
changes  often,  you'll  have  to  spend  a  significant  amount  of 
time  keeping  it  in  order. 

Prototype 

1.  Start  by  setting  up  pointers  to  the  beginning,  the  end,  and 
the  midpoint  of  the  list. 

2.  Compare  the  midpoint  to  the  search  string. 

3.  If  it's  equal,  skip  forward  to  step  5. 

4.  If  the  midpoint  value  is  higher  than  the  search  string,  set 
the  end  of  the  list  to  the  midpoint  and  calculate  a  new  mid- 
point. Branch  back  to  step  2. 

5.  If  the  midpoint  is  lower  than  the  sought- for  string,  set  the 
beginning  to  the  current  midpoint  and  fix  the  new  mid- 
point. Return  to  step  2. 

6.  When  the  search  string  is  found,  step  backward  on  the  list 
until  the  first  occurrence  is  discovered. 

Explanation 

The  binary  part  of  a  binary  search  means  that  the  list  is  di- 
vided into  two  parts.  To  illustrate  how  it  works,  let's  first  look 
at  how  it  doesn't  work.  Imagine  that  you  live  in  a  city  that  has 
a  phone  directory  containing  100,000  names,  listed  in  alpha- 
betic order.  To  find  the  number  for  someone  named  Milt 
Young,  it  would  be  madness  for  you  to  start  searching  at  the 
beginning  of  the  phone  book  (this  is  a  sequential  search). 
You'd  have  to  look  at  many  thousands  of  names  before  you 
found  the  one  you  wanted. 

For  a  binary  search,  you'd  open  the  phone  book  halfway 
and  check  the  name  there.  Let's  say  it's  Meeks.  Immediately, 
you  know  that  the  search  string  (Young)  is  in  the  second  half 
of  the  phone  book.  With  one  comparison,  you've  eliminated 
half  the  names  on  the  list.  Next,  you  split  the  remaining  pages 
in  two  and  check  the  name.  Again,  half  the  names  are  dis- 
carded. Each  pass  through  the  loop  cuts  in  half  the  number  of 
names  to  be  checked.  For  a  list  of  256  items,  you'd  need  at 
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most  8  comparisons  to  find  the  target  name.  For  64K  items, 
you'd  need  a  maximum  of  16  comparisons. 

The  dark  side  of  the  binary  search  is  that  maintaining  the 
list  requires  a  good  deal  of  effort  since  it  must  be  in  alphabetic 
or  numeric  order. 

The  SRCBIN  routine  is  long,  but  relatively  simple  to 
understand.  There  are  three  possibilities:  The  search  string  is 
on  the  list,  it's  on  the  list  several  times,  or  it's  not  on  the  list. 
If  the  target  is  found,  the  binary  search  is  successful,  but  just 
in  case  there  are  others,  SRCBIN  moves  backward  in  memory 
to  find  the  first  occurrence.  If  it's  not  found,  a  value  of  zero  is 
stored  into  MID.  If  it  is  found,  a  pointer  to  the  first  matching 
string  is  stored  in  MID. 

The  example  program  first  reads  an  ASCII  file  into  mem- 
ory (in  READFILE)  and  then  alphabetizes  it  (ALPHA).  For  a 
database  application,  it  shouldn't  be  necessary  to  alphabetize 
before  the  search  routine  is  called.  You  should  keep  the  list  in 
alphabetic  order. 

Routine 


cooo 

STATUS 

■= 

144 

cooo 

PI 

= 

$F9 

cooo 

ZP 

= 

$FB 

cooo 

Z2 

= 

$FD 

cooo 

LINPRT 

= 

$BDCD 

;  LINPRT  =  $8E32  on  the  123 

cooo 

CHROUT 

= 

$FFD2 

cooo 

BUFFER 

*= 

$6000 

;  where  the  words  are 

cooo 

POINTR 

= 

$5000 

;  where  the  pointers  to  the  words  are 

cooo 

20 

29 

CI 

]SR 

READFILE 

;  get  the  words  into  memory  and  set  up  the 
;  pointers 

C003 

20 

E4 

CI 

JSR 

ALPHA 

;  alphabetize  the  list 

C006 

A0 

00 

GLOOP 

LDY 

*0 

C008 

20 

CF 

FF 

NLOOP 

JSR 

CHRIN 

;  get  a  string 

CO0B 

C9 

0D 

CMP 

#13 

;  return 

C00D 

F0 

06 

BEQ 

FINDIT 

;  done,  so  look  for  it 

C00F 

99 

76 

C2 

STA 

SEARCH,Y 

,-  save  it 

C012 

C8 

1NY 

;  and  count  forward 

C013 

DO 

F3 

BNE 

NLOOP 

C015 

A9 

00 

FINDFT 

LDA 

#0 

;  end  it  with  a  zero 

C017 

99 

76 

C2 

STA 

SEARCH.Y 

C01A 

CO 

00 

CPY 

#0 

;  was  there  anything  (or  too  much)? 

C01C 

FO 

EA 

BEQ 

NLOOP 

.  go  back 

;  Now  find  the  word. 

C01E 

20 

2D 

CO 

JSR 

SRCBIN 

C021 

AE 

E2 

CI 

LDX 

MID 

C024 

AD 

E3 

CI 

LDA 

MTD  +  l 

C027 

20 

CD 

BD 

JSR 

LINPRT 

;  print  the  address  of  the  string 

C02A 

4C 

06 

CO 

JMF 

GLOOP 

C02D 

20 

51 

CO 

SRCBIN 

JSR 

SETUP 

;  set  up  the  TOP,  BOT,  and  MID  pointers  to 
;  the  pointers 

C030 

20 

HC 

CO 

SBLOOP 

JSR 

CHKMTD 

;  look  at  MID 
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C033  FO  10 

C035  30  02 

C037  10  06 

C039  20  FO     CO    HALFO 

C03C  4C  30     CO 

C03F  20  F4    CO    HALF1 

C042  4C  30     CO 


BEQ  MOVEDN 

BMI  HALFO 

BPL  HALF1 

JSR  M1DTOP 

JMP  SBLOOP 

JSR  MIDBOT 

JMP  SBLOOP 


C045  20  05  CI    MOVEDN    JSR  MIDMIN 

CO-IS  20  BC  CO  JSR  CHKMTD 

C04B  FO  F8  BEQ  MOVEDN 

C04D  20  17  CI  JSR  MIDPLS 

C050  60  RTS 


C051  A2    03  SETUP 

C053  BD  DA  CI    SET01 

C056  9D    DE  CI 

C059  CA 

C05A  10     F7 

COSC  AD  EO  CI    MJDSET 

C05F  38 

C060  ED    DE  CI 

C063  29     FC 

C06S  8D    E2  CI 

C068  AD  El  CI 

C06B  ED   DF  CI 

C06E  8D    E3  CI 

C071  4E     E3  Cl 

C074  6E    E2  Cl 


C077 
C07A 
C07D 
C07F 
C082 
C085 
C088 
C08B 
C08E 
C091 


Cl 

Cl 


AD  E2 
OD  E3 
FO  13 
AD  E2  Cl 
6D  DE  Cl 
8D  E2  Cl 
AD  E3  Cl 
6D  DF  Cl 
8D  E3  Cl 
60 


AD  DE  Cl 

8D    E2  Cl 

AD  DF  Cl 

8D    E3  Cl 

20     BC  CO 
FO     18 

a 

Cl 

ci 

ci 


C092 

C095 

C098 

C09B 

C09E 

C0A1 

C0A3    AD  EO 

C0A6    8D    E2 

C0A9    AD  El 

COAC   8D    E3 

COAF  EO 

C0B1     68 


PANIC 


OA 


C0B2 
C0B3 
COBS 
COBS 
COBB 


68 

A9  00 
8D  E2 
8D  E3 
60 


Cl 
Cl 


NOPROB 


COBC    AD  E2    Cl    CHKM1D 
COBF    85    FB 


LDA 

ORA 

BEQ 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

RTS 


LDA 

STA 

LDA 

STA 

JSR 

BEQ 

LDA 

STA 

LDA 

STA 

BEQ 

FLA 

PLA 

LDA 

STA 

STA 

RTS 

LDA 
STA 


#3 

SB,X 

BOT,X 

SET01 

TOP 


LDX 
LDA 
STA 
DEX 
BPL 

LDA 

SEC 

SBC       BOT 

AND    #%1U11100 

STA       MID 

TOP+1 
BOT+1 
MID+1 
MID+1 


LDA 
SBC 
STA 
LSR 
ROR      MID 


MID 

MID+1 

PANIC 

MID 

BOT 

MID 

MID+1 

BOT+1 

MID+1 


BOT 

MID 

BOT+1 

MID+1 

CHKMID 

NOPROB 

TOP 

MID 

TQP+1 

MID+1 

NOPROB 


#0 

MID 

MID+1 


found  il,  now  back  up  a  little 
In  the  first  half 
in  the  second  half 

MID  is  the  new  TOP 
go  back 

MID  is  the  new  BOT 
and  loop 

MID  minus  two 
check  it 

move  down  one  more 
mid  plus  two 


copy  SB  and  EB 
to  BOT  and  TOP 
count  down  to  255 
loop 

And  midpoint 

subtract  BOT 

make  sure  it  will  be  even  after  the  rotate 

store  in  MID  temporarily 

high  byte,  too 

subtracts 

into  MID 

cut  in  half  the  high 

and  low  bytes  of  MID 

The  halfway  point  is  ready. 

better  check  it 

are  any  bits  on? 

no,  and  we  haven't  found  it 

carry  is  always  clear 

add  to  BOT 

high  byte,  too 

MID  Is  ready 

so  we  can  go  back 

Maybe  if s  not  on  the  list. 


MID 
ZP 


check  it 

found  (he  string 

check  top 


found  it 

get  rid  of  the  address 

from  the  JSR 

zero  out  MID 


get  the  pointer 
to  the  string 
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COCl 

AD 

E3 

CI 

LDA 

MID+1 

;  and  store  in 

C0C4 

85 

FC 

STA 

ZP+1 

;ZP 

C0C6 

AO 

01 

LDY 

#1 

;  next. 

C0C8 

Bl 

FB 

LDA 

(ZP),Y 

;  the  string  address 

COCA 

85 

FE 

STA 

Z2+1 

;  goes  into  7.2 

COCC 

88 

DEY 

;  .Y  is  zero 

COCD 

Bl 

FB 

LDA 

(ZP),Y 

COCF 

85 

FD 

STA 

Z2 

;  Compare  them. 

COD1 

B9 

76 

C2 

CMTHEM 

LDA 

SEARCH,Y 

;  get  a  character 

COD4 

DO 

OS 

BNE 

CKMI 

;  if  not  zero,  check  more 

C0D6 

11 

FD 

ORA 

(Z2),Y 

;  Is  the  string  also  a  zero? 

CODS 

DO 

10 

BNE 

TOOHI 

;  no,  the  string  is  too  high 

CODA 

60 

RTS 

;  cute,  RTS  with  the  equal  flag  set 

CODB 

AA 

ckmi 

TAX 

;  save  it 

CODC 

Bl 

FD 

LDA 

(Z2>,Y 

CODE 

FO 

OD 

BEQ 

TOOLOW 

;  if  Z2  is  zero,  mid  is  too  low 

COEO 

8A 

TXA 

;  get .A  back 

COE1 

Dl 

FD 

CMP 

(Z2),Y 

:  compare  search  to  12.  which  is  MID 

C0E3 

90 

05 

BCC 

TOOHI 

;  MID  is  too  high 

C0E5 

DO 

06 

BNE 

TOOLOW 

;  MID  is  loo  low 

C0E7 

C8 

INY 

;  they're  equal,  so 

COE8 

DO 

E7 

BNE 

CMTHEM 

;  go  back  for  another 

COEA 

A9 

FF 

TOOHI 

LDA 

#255 

;  make  sure  the  minus  flag  is  on 

COEC 

60 

RTS 

;  return 

COED 

A9 

01 

TOOLOW 

LDA 

#1 

;  plus  flag 

COEF 

60 

RTS 

COFO 

A2 

03 

MIDTOP 

LDX 

#3 

;  copy  from  MID  to  TOP 

C0F2 

DO 

02 

BNE 

ALWAYS 

;  go  forward 

C0F4 

A2 

01 

MIDBOT 

LDX 

#1 

;  else  copy  from  MID  to  BOT 

C0F6 

AO 

01 

ALWAYS 

LDY 

#1 

C0F8 

B9 

E2 

a 

ALWLOP 

LDA 

MID.Y 

COFB 

9D 

DE 

a 

STA 

BOT,X 

;  .X  is  either  3  or  1  to  start 

COFE 

CA 

DEX 

;  count  down 

COFF 

88 

DEY 

ClOO 

10 

F6 

BPL 

ALWLOP 

;  go  back 

C102 

4C 

5C 

CO 

JMP 

MIDSET 

;  set  a  new  MID  and  (maybe)  return 

C105 

AD  E2 

a 

MIDMIN 

LDA 

MID 

;  subtract  2  from  MID 

aoe 

38 

SEC 

CI  09 

E9 

02 

SBC 

#2 

C10B 

8D 

E2 

Cl 

STA 

MID 

C10E 

AD  E3 

Cl 

LDA 

MID+1 

an 

E9 

00 

SBC 

#0 

C113 

8D 

E3 

a 

STA 

MID+1 

ai6 

60 

RTS 

C117 

AD  E2 

a 

MIDPLS 

LDA 

MID 

;  add  2  to  MID 

C11A 

18 

CLC 

CUB 

69 

02 

ADC 

#2 

CUD 

8D 

E2 

a 

STA 

MID 

C120 

AD 

E3 

Cl 

LDA 

MID+1 

C123 

69 

ou 

ADC 

#0 

C12S 

8D 

E3 

Cl 

STA 

MID+1 

C128 

60 

RTS 

C129 

READFILE 

„ 

■ 

; 

C129 

SETLFS 

— 

65466 

C129 

SETNAM 
OPEN 

^ 

65469 
65472 

C129 

CHKIN 

— 

65478 

SRCBES 


C129 

CHRIN 

=« 

65487 

C129 

CLOSE 

= 

65475 

C129 

CLRCHN 

= 

65484 

C129 

A9 

01 

LDA 

#1 

logical  file  number 

C12B 

A2 

OS 

LDX 

#8 

device  number  for  disk  drive 

C12D 

A0 

02 

LDY 

#2 

secondary  address  (2-14  are 

C12F 

20 

BA 

FF 

JSR 

SETLFS 

C132 

A9 

08 

LDA 

#FNLEN 

length  of  Filename 

CI  34 

A2 

D2 

LDX 

#<FNAME 

address  of  filename 

C136 

AO 

CI 

LDY 

#>FNAME 

C138 

20 

BD 

FF 

JSR 

SETNAM 

C13B 

20 

CO 

FF 

JSR 

OPEN 

C13E 

A2 

01 

LDX 

#1 

logical  file  number 

CI40 

20 

C6 

FF 

JSR 

CHK1N 

set  for  input 

C143 

A9 

00 

LDA 

#<BUFEER 

set  up  a  pointer 

CI45 

85 

FB 

STA 

ZP 

in  ZP 

C147 

8D 

00 

50 

STA 

POINTR 

and  in  the  pointer  table 

C14A 

A9 

60 

LDA 

#>BUFFER 

high  byte 

C14C 

85 

FC 

STA 

ZP  +  1 

CUE 

8D 

01 

50 

STA 

POINTR+1 

C15I 

A9 

00 

LDA 

#<POINTR 

POINTR  points  to  the  buffer 

C153 

8D 

DA 

CI 

STA 

SB 

put  it  in  the  starting  byte  SB 

C156 

18 

CLC 

C157 

69 

02 

ADC 

#2 

add  2 

G159 

85 

FD 

STA 

Z2 

and  store  in  Z2 

C15B 

A9 

50 

LDA 

#>POINTR 

high  byte 

C15D 

8D 

DB 

CI 

STA 

SB+1 

into  SB 

CI  60 

69 

do 

ADC 

#0 

handle  the  carry 

CI  62 

85 

FE 

STA 

Z2+1 

C164 

AO 

00 

LDY 

*0 

CI66 

20 

CF 

FF    GETCHR 

JSR 

CHRIN 

get  a  character 

C169 

C9 

OD 

CMP 

*13 

check  for  <RETURN> 

C16B 

FO 

35 

BEQ 

DELIMIT 

C16D 

C9 

20 

CMP 

#32 

look  for  a  space 

C16F 

90 

09 

BCC 

CHKEND 

eliminate  characters  0-31 

C171 

FO 

2F 

BEQ 

DELIMIT 

spaces  are  delimiters 

C173 

91 

FB 

STA 

(ZP),Y 

C175 

C8 

INY 

C176 

DO 

02 

BNE 

CHKEND 

check  for  the  end 

C178 

E6 

FC 

INC 

ZP+1 

increment  the  pointer 

C17A 

A6 

90 

CHKEND 

LDX 

STATUS 

C17C 

FO 

E8 

BEQ 

GETCHR 

if  equal,  get  more  characters 

C17E 

A9 

00 

LDA 

#0 

close  it  up  with  three  zeros 

C180 

91 

FB 

STA 

(ZP).Y 

store  it 

C182 

20 

BO 

CI 

JSR 

ADDYZP 

reset  ZP 

C185 

91 

FB 

STA 

(ZP).Y 

C187 

C8 

[NY 

C188 

91 

FB 

STA 

(ZP),Y 

C18A 

A9 

01 

LDA 

#1 

C18C 

20 

C3 

m 

JSR 

CLOSE 

close  the  file 

C18F 

20 

CC 

FF 

JSR 

CLRCHN 

clear  channels 

C192 

A5 

FD 

LDA 

Z2 

save  the  end  of  the  buffer 

C194 

38 

SEC 

C195 

E9 

06 

SBC 

#6 

which  is  six  bytes  too  high 

C197 

8D 

DC 

CI 

STA 

EB 

in  end  buffer  EB 

C19A 

A5 

FE 

LDA 

Z2+1 

C19C 

E9 

00 

SBC 

#0 

C19E 

8D 

DD 

CI 

STA 

EB+1 

C1A1 

60 

RTS 

•  the  end  of  the  routine 

C1A2 

CO 

00 

DELIMIT 

CPY 

#0 

•  is  this  the  First  character? 
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C1A4 

FO 

D4 

BEQ 

CHKEND 

;  yes,  go  back 

;  Enter  this  routine  il  a  space  or  carriage 
;  return  is  found  after  a  word. 

C1A6 

A9 

00 

LDA 

#0 

;  zero  marks  the  division 

C1A8 

91 

FB 

STA 

(ZP).Y 

:  put  a  zero  in  memory 

C1AA 

20 

BO 

ci 

JSK 

ADDYZP 

:  add  .Y  to  ZP  (plus  one) 

C1AD 

4C 

7A 

Cl 

IMP 

CHKEND 

;  and  check  for  end  of  file 

C1B0 

38 

ADDYZP 

SEC 

;  add  one  to  ,Y 

C1B1 

98 

TYA 

.-  put  it  in  .A 

C1B2 

65 

FB 

ADC 

ZP 

;  add  to  ZP 

C1B4 

85 

FB 

STA 

ZP 

.  fixZP 

C1B6 

A9 

00 

LDA 

#0 

;  handle  the  high  byte 

G1B8 

A8 

TAY 

;  put  zero  back  into  .Y 

C1B9 

65 

FC 

ADC 

ZP+1 

;add 

C1BB 

85 

FC 

STA 

ZP+1 

:  and  store 

C1BD 

C8 

fNY 

:  store  the  high  byte  of  ZP 

C1BE 

91 

FD 

STA 

(Z2),Y 

:  into  the  POINTR  table 

C1C0 

88 

DEY 

;  and  the  low  byte 

C1C1 

A5 

FB 

LDA 

ZP 

C1C3 

91 

FD 

STA 

(Z2),Y 

C1C5 

AS 

FD 

LDA 

Z2 

;  now  add  2 

C1C7 

IB 

CLC 

C1C8 

69 

02 

ADC 

#2 

C1CA 

85 

FD 

STA 

Z2 

:  to  Z2,  the  pointer  to  POINTR 

C1CC 

90 

02 

BCC 

BYEBYE 

;  if  carry  set 

C1CE 

E6 

FE 

INC 

Z2+1 

;  increment  the  high  byte 

C1DO 

98 

BYEBYE 

TYA 

;  exit  with  zero  in  .A 

C1D1 

60 

RTS 

C1D2 

46 

49 

4C 

FNAME 

ASC 

"FILE.S.R" 

;  name  of  ASCII  text  file  to  be  sorted  and 
;  searched 

C1DA 

FNLEN 

= 

•-FNAME 

CIDA 

00 

00 

SB 

BYTE 

0.0 

G1DC 

00 

00 

EB 

BYTE 

0,0 

C1DE 

00 

00 

BOT 

.BYTE 

0,0 

C1E0 

00 

00 

TOP 

BYTE 

0,0 

C1E2 

00 

00 

MID 

-BYTE 

0,0 

C1E4 

ALPHA 

= 

• 

i 

;  this  routine  alphabetizes  the  list  of  point 

C1E4 

AD 

DC 

Cl 

LDA 

EB 

;  set  up  the  top  of  the  bubble  sort 

C1E7 

8D 

74 

C2 

STA 

ENDBUB 

;  save  it 

C1EA 

AD 

DD 

Cl 

LDA 

EB+1 

:  high  byte 

C1ED 

8D 

75 

C2 

STA 

ENDBUB +1 

;  too 

C1F0 

AD 

DA 

Cl 

BUBLP1 

LDA 

SB 

C1F3 

85 

F9 

STA 

Pi 

;  set  up  a  zero-page  pointer  to  the  pointer 
;  table 

C1F5 

AD 

DB 

Cl 

LDA 

SB+1 

C1F8 

85 

FA 

STA 

Pl  +  1 

;  PI  is  the  pointer  to  pointers 

C1FA 

A9 

2A 

LDA 

*"* 

CIFC 

20 

D2 

FF 

JSR 

CHROUT 

,  print  an  asterisk 

C1FF 

AO 

03 

BUBLP2 

LDY 

#3 

;  gel  two  two-byte  pointers  (0-3) 

C201 

Bl 

F9 

ZLOOPY 

LDA 

(P1),Y 

.  get  a  pointer 

C203 

AA 

TAX 

;  can't  store  zero  page.Y  from  .A,  but  .X 
.  works 

C204 

96 

re 

STX 

ZP,Y 

;  not  indirect 

C206 

38 

DEY 

;  loop 

C207 

10 

F8 

BPL 

ZLOOPY 

;  go  back  for  more 

;  Now  ZP  and  Z2  point  to  words. 

C209 

C8 

INY 

;  .Y  was  255;  make  it  0 

C20A 

BI 

FB 

BUBLP3 

LDA 

(ZP),Y 

:  compare  the  words 

C20C 

Dl 

FD 

CMP 

(Z2).Y 
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C20E 

DO 

04 

BNE 

CHECKM 

if  not  equal,  check  whether  they  should 
swap 

C210 

C8 

INY 

otherwise.  INC  the  Y  register 

C211 

DO 

F7 

BNE 

BUBLP3 

and  go  back  for  more  (should  branch 
always) 

C213 

18 

CLC 

just  in  case 

C214 

90 

IS 

CHECKM 

BCC 

OKRITE 

if  carry  is  clear,  they're  OK 

C216 

AO 

00 

LDY 

#0 

else,  switch  them 

C218 

A5 

FD 

LDA 

Z2 

put  pointer  in  Z2 

C21A 

91 

F9 

STA 

(P1),Y 

into  the  pointer  table 

C21C 

C8 

INY 

.Yis  1 

C21D 

A5 

FE 

LDA 

Z2+1 

high  byte,  too 

C21F 

91 

J9 

STA 

(P1),Y 

C221 

C8 

INY 

.Yis  2 

C222 

A3 

FB 

LDA 

ZP 

and  move  ZP  up  two  bytes 

C224 

91 

F9 

STA 

(P1),Y 

C226 

C8 

INY 

.Yis  3 

C227 

A5 

FC 

LDA 

ZP+1 

high  byte 

C229 

91 

F9 

STA 

(P1),Y 

PI  has  to  move  up  a  couple  of  notches. 

C22B 

A5 

F9 

OKR1TE 

LDA 

PI 

C22D 

18 

CLC 

C22E 

69 

02 

ADC 

#2 

C230 

85 

P9 

STA 

PI 

C232 

A5 

FA 

LDA 

Pl  +  1 

C234 

69 

00 

ADC 

#0 

C236 

85 

FA 

STA 

Pl  +  1 

C238 

CD 

75 

C2 

CMP 

ENDBUB+1 

'  are  we  at  the  end? 

C23B 

90 

C2 

BCC 

BUBLP2 

;  no 

C23D 

DO 

09 

BNE 

ENDPASS 

yes,  move  ahead 

C23F 

A5 

F9 

LDA 

PI 

•  maybe,  check  the  low  byte 

C241 

CD 

74 

C2 

CMP 

ENDBUB 

;  are  they  the  same? 

C244 

FO 

02 

BEQ 

ENDPASS 

;  ves,  quit 

C246 

90 

B7 

BCC 

BUBLF2 

;  no,  it's  smaller 

; 

;  End  of  a  pass.  Move  ENDBUB  down  by 
.two. 

C248 

AD 

74 

C2 

ENDPASS 

LDA 

ENDBUB 

C24B 

38 

SEC 

C24C 

E9 

02 

SBC 

#2 

;  subtract  2  (low  byte) 

C24E 

8D 

74 

C2 

STA 

ENDBUB 

;  save  it 

C251 

AD 

75 

C2 

LDA 

ENDBUB+l 

;  adjust  high  byte 

C254 

E9 

00 

SBC 

#0 

;  subtract  0  (or  1) 

C256 

8D 

75 

C2 

STA 

ENDBUB+1 

C259 

CD 

DB 

CI 

CMP 

SB+1 

;  are  we  down  to  the  start? 

C25C 

FO 

05 

BEQ 

MAYBE 

:  maybe 

C25E 

90 

OE 

BCC 

OUTBUB 

;  yes,  gone  too  far 

C260 

4C 

FO 

CI 

JMP 

BUBLP1 

;  no,  jump  back 

C263 

AD 

74 

C2 

MAYBE 

LDA 

ENDBUB 

;  check  low 

C266 

CD 

DA 

CI 

CMP 

SB 

;  against  SB 

C269 

FO 

03 

BEQ 

OUTBUB 

;  equal,  we're  done 

C26B 

4C 

FO 

CI 

JMP 

BUBLP1 

;  no,  keep  going 

C26E 

A9 

93 

OUTBUB 

LDA 

#147 

;  clear 

C270 

20 

D2 

EF 

JSR 

CHROUT 

:  the  screen 

C273 

60 

RTS 

;  and  quit 

C274     00     00  ENDBUB       .BYTE    0,0 

C276  SEARCH        = 

See  also  ALPNTR,  ALSWAP,  SRCLIN. 


;  leave  256  bytes  for  this  buffer 
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Name 

Linear  search  for  a  string  or  other  value 

Description 

Word  processors  often  feature  a  find  or  a  search-and-replace 
option.  SRCLIN  looks  for  a  matching  string  by  starting  at  the 
beginning  and  searching  forward  until  the  target  string  is 
discovered.  A  second  entry  point  for  the  routine  provides  a 
find-next-occurrence  function. 

Prototype 

1.  Before  calling  the  subroutine,  store  the  start  and  end  of  text 
in  the  variables  TEXSTA  and  TEXEND. 

2.  Store  a  search  string  in  memory  (at  STRING),  terminated  by 
a  zero  byte. 

3.  Begin  SRCLIN  by  setting  WHERE  to  the  start  of  text 
(TEXSTA).  Skip  this  step  if  you're  searching  for  the  next 
occurrence. 

4.  Copy  the  pointer  from  WHERE  to  zero  page  (Zl). 

5.  Set  .Y  to  zero. 

6.  Compare  the  character  from  STRING  to  the  character 
pointed  to  by  Zl  (both  indexed  by  .Y). 

7.  If  they're  not  equal,  increment  Zl,  make  sure  it  doesn't  go 
past  TEXEND,  and  loop  back  to  step  5. 

8.  If  Zl  exceeds  TEXEND,  the  string  hasn't  been  found.  Store 
zeros  into  WHERE  and  quit. 

9.  If  the  first  (or  second  or  diird)  character  matches,  increment 
.Y  and  go  back  to  step  6  until  the  zero-terminator  appears. 

Explanation 

Compared  with  SRCBIN,  this  is  a  slow  and  inefficient  way  to 
look  for  a  string  in  memory.  But  that's  not  necessarily  a 
disadvantage. 

In  a  data-oriented  application  such  as  a  database  program, 
you  expect  certain  fields  to  be  alphabetized.  If  you  need  a 
search  routine,  SRCBIN  is  much  faster  than  SRCLIN  as  long 
as  the  data  has  already  been  sorted. 

But  in  text-oriented  software  such  as  a  word  processor,  the 
words  in  memory  will  be  arranged  grammatically  instead  of 
alphabetically.  A  binary  search  is  faster  than  a  sequential/  lin- 
ear search,  but  you'd  have  to  waste  time  and  memory 
alphabetizing  the  words  in  the  text  file  before  the  binary  rou- 
tine could  even  begin.  A  linear  search  can  start  searching 
immediately. 
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The  SRCLIN  routine  has  two  entry  points.  If  you  want  to 
search  from  the  beginning  of  the  text  area,  JSR  SRCLIN.  But  if 
you've  found  the  first  occurrence  of  the  string  and  you  want 
to  find  the  second,  third,  fourth,  and  so  on,  JSR  SRCNEX. 
When  the  SRCLIN  and/or  SRCNEX  routines  are  finished, 
you  can  find  the  address  of  the  string  in  WHERE,  in  Zl,  and 
in  the  A  and  X  registers. 

Warning:  The  SRCLIN  routine,  as  it's  written,  is  sensitive 
to  the  case  of  characters.  For  example,  if  you're  looking  for 
elephant  and  the  word  Elephant  appears  as  the  first  word  in  a 
sentence,  SRCLIN  won't  consider  them  a  match.  A  capital  £ 
isn't  the  same  as  a  lowercase  e.  To  ameliorate  this  problem, 
you  can  insert  one  of  the  conversion  routines  such  as  MIXUPP 
to  convert  strings  to  uppercase  or  lowercase. 


Routine 


cooo 

Zl 

= 

SFB 

cooo 

CHKOUT 

= 

SFFD2 

cooo 

LINPRT 

■= 

SBDCD 

;  LINPRT  =  $8E32  On  the  128 

cooo 

20 

2B 

CO 

JSR 

SRCLIN 

,  search  (or  the  string 

C003 

20 

CD 

BD 

B1GLOP 

JSR 

LINPRT 

;  pnnt  the  address 

C006 

A9 

20 

LDA 

«32 

;  and  a  space 

C008 

20 

D2 

FF 

JSR 

CHROUT 

;  after  the  number 

COOB 

AD 

8F 

CO 

LDA 

WHERE 

;  now  check  if  not  found 

CODE 

0D 

8F 

CO 

ORA 

WHERE 

;  if  either  is  nonzero 

con 

DO 

01 

BNE 

ITSOK 

;  continue 

C013 

60 

RTS 

;  else,  we're  finished 

C014 

A0 

00 

ITSOK 

LDY 

#0 

C016 

Bl 

FB 

PRLOOP 

LDA 

(Zl).Y 

C018 

20 

D2 

FF 

JSR 

CHROUT 

C01B 

C8 

INY 

C01C 

CO 

0A 

CPY 

*10 

;  print  ten  characters 

C01E 

DO 

F6 

BNE 

PRLOOP 

C020 

A9 

OB 

LDA 

#13 

;  print  RETURN 

C022 

20 

D2 

FF 

JSR 

CHROUT 

C025 

20 

3E 

CO 

JSR 

SRCNEX 

!  search  for  the  next  one 

C028 

4C 

03 

CO 

IMP 

BIGl.OP 

C02B 

SRCLIN 

= 

• 

.-  beginning  of  the  routine 

C02B 

AD  81 

CO 

LDA 

TEXSTA 

;  starting  address  of  text 

C02E 

8D 

Si- 

CO 

STA 

WHERE 

;  into  the  WHERE  pointer 

C031 

85 

FB 

STA 

Zl 

;  and  Zl 

C033 

AD 

8C 

co 

LDA 

TEXSTA+1 

;  high  byte 

C036 

8D 

90 

CO 

STA 

WHERE +1 

;  also 

C039 

85 

FC 

STA 

Zl+1 

C03B 

4C 

4B 

CO 

JMP 

SRCLOP 

;  skip  over  the  next  part 

C03E 

SRCNEX 

- 

• 

;  entry  for  SRCNEX— search  for  the  next 
;  occurrence 

C03E 

AD  8F 

CO 

LDA 

WHERE 

;  lake  the  WHERE  pointer 

C041 

8$ 

FB 

STA 

Zl 

;  and  store  In  Zl 

C043 

AD 

90 

CO 

LDA 

WHERE+1 

;  high  byte,  too 

C046 

85 

FC 

STA 

Zl+1 

C048 

20 

6B 

CO 

JSR 

Z1INC 

;  and  count  forward  one  to  avoid  repeatii 

C04B 

A0 

00 

SRCLOP 

LDY 

ffO 

;  come  back  here  for  more 
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CD4D    B9    91     CO    MOCHA       IDA      STRING,Y 
C05O     FO    OE  BEQ      FOUND1T 


C052  Dl  FB 

C054  FO  06 

COS6  20  6B    CO 

C059  4C  4B    CO 

C05C  C8 

C05D  DO  EE 

C05F  60 


C06F 

C071 

C073 

C076 

C078 

C07A 

C07D 

C07F 

C080 

C081 

C083 

C086 

C089 

C08A 


E6  FC 
AS  FB 
CD  8D 
DO  12 
A5  FC 
CD  8E 
DO  OB 
68 
68 

A9    00 
8D    8F 
8D    90 
AA 
60 


CMP  (Z1),Y 

BEQ  MORECV 

JSR  Z1INC 

JMP  SRCLOP 

MORECM    INY 

BNE  MOCHA 
RTS 


C060  A6  FB 

C062  8E  BF     CO 

C065  A5  FC 

C067  8D  90     CO 

C06A  60 

C06B  E6  FB 

C06D  DO  02 


CO 


CO 


FOUNDrr  LDX 
STX 
LDA 
STA 
RTS 

Z1INC  INC 

BNE 

INC 

DONINC      LDA 

CMP 

BNE 

LDA 

CMP 

BNE 

NOTFOUND  PLA 

PLA 

LDA 

STA 

STA 

TAX 

OUTINC       RTS 


Zl 

WHERE 
Zl+1 
WHERE+1 

Zl 

DONINC 

Zl  +  1 

Zl 

TEXEND 

OUTINC 

Zl  +  1 

TEXEND +1 

OUTINC 


#0 

WHERE 

WHERE+1 


C08B  00  CC  TEXSTA 

C08D  FF  CF  TEXEND 

C08F  00  CC  WHERE 

C091  46  49     4C  STRING 

C095  00 

See  also  SRCBIN. 


.WORDSCC00 
.WORDSCFFF 
.WORDSCC00 
ASC  •'FILE- 
BYTE    0 


;  gel  a  character 

;  if  zero,  ifs  the  end  of  the  siring  and  it 

;  matches 

;  compare  it  to  the  text 

;  if  they're  equaL  continue 

;  otherwise,  increment  the  Zl  pointer 

;  and  check  the  next  character 

;  Y  increases  by  one 

i  and  go  back  for  the  next  character 

;  this  should  never  happen  if  the  string  is 

:  fewer  than  255  characters 

:  Zl  points  to  the  string 

;  copy  the  address  to  WHERE 


;  this  just  increments  the  Zl  pointer 

;  do  the  high  byte  if  Zl  has  counted  up  to 

;  zero 

;  high  byte 

;  see  if  we're  done 

;  is  it  the  same  as  the  end  address? 

;  no,  keep  going 

;  the  low  byte  matches 

;  compare  the  high 

;  if  not  equal,  keep  going 

;  trash  the  calling  address 

;  pull  the  other  byte 

;  zeros  mean  no  match 
;  in  WHERE 

;  return  (two  different  ways) 

:  starting  address  of  the  text 
;  last  character 

;  pointer  to  the  middle  of  the  file 
;  name  of  text  file  to  be  searched 
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Name 

Store  system  memory  to  expansion  RAM 

Description 

STASH  (in  conjunction  with  FETCH)  provides  a  simple 
RAMdisk  for  the  128.  On  a  128,  with  this  routine  and  a  RAM 
Expansion  Module  (either  model  1700  or  1750),  you  can  store 
the  contents  of  a  block  of  system  memory  into  expansion 
RAM. 

Prototype 

1.  Enter  this  routine  with  the  REC  registers  set  with  the  appro- 
priate system-memory  base  address,  expansion-RAM  base 
address,  and  number  of  bytes  to  transfer.  The  X  register 
should  contain  the  system  bank  number. 

2.  Load  .Y  with  the  value  required  in  the  command  register 
(location  57089)  to  perform  a  stash  operation. 

3.  JMP  to  the  Kernal  routine  DMACALL. 

Explanation 

When  a  model  1700  or  1750  RAM  Expansion  Module  is 
plugged  into  the  128,  the  RAM  Expansion  Controller  chip 
(REC)  in  the  unit  appears  at  locations  57088-57098  in  the 
i28's  address  space.  This  chip  performs  four  different  memory 
management  operations.  One  of  these — storing  system  mem- 
ory to  expansion  RAM,  or  stashing — is  carried  out  by  this  rou- 
tine. (A  discussion  of  the  REC  registers  can  be  found  in 
Mapping  the  Commodore  128  from  COMPUTE!  Publications). 

The  program  below  relies  on  STASH  to  store  the  BASIC 
program  currently  in  memory  to  one  of  four  32K  blocks,  or 
partitions,  within  the  RAM  expansion  module.  In  order  to  in- 
sure later  retrieval  of  the  BASIC  program  (see  the  program 
provided  with  FETCH),  certain  pointers — specifically  to  the 
start  and  end  of  the  program — are  saved  before  the  program 
itself. 

To  use  the  program  listed  here,  assemble  it  and  SYS  to  its 
starting  address  from  BASIC.  Following  the  SYS  address,  spec- 
ify the  partition  where  the  current  BASIC  program  is  to  be 
saved.  For  instance,  assuming  you  assemble  the  program  at 
3072  as  shown,  you  would  enter  SYS3072,1  to  store  a  BASIC 
program  in  partition  1. 

When  the  SYS  executes,  BASIC  stores  the  partition  num- 
ber you've  specified  in  the  accumulator.  At  this  point,  the  ma- 
chine language  program  takes  over. 
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First,  it  checks  to  see  that  the  partition  number  provided 
is  in  the  range  1-4.  If  it  isn't,  an  error  message  to  this  effect  is 
printed  and  the  program  terminates.  Otherwise,  the  program 
continues  by  setting  up  the  REC  registers.  The  first  one 
considered  is  the  expansion  bank  register. 

The  two  memory  expansion  modules  currently  available 
are  partitioned  into  64K  blocks,  or  banks,  of  free  RAM.  The 
model  1700  has  two  banks  (banks  0  and  1),  for  a  total  of  128K 
while  the  1750  has  eight  banks  (banks  0-7),  for  a  total  of 
512K.  Since  the  program  here  requires  four  separate  32K 
blocks  of  memory,  banks  0  and  1  are  used  in  the  RAM  expan- 
sion module,  with  partitions  1  and  2  assigned  to  bank  0,  and 
partitions  3  and  4  to  bank  1 . 

After  the  proper  expansion  bank  number  has  been  stored, 
the  base  address  for  the  expansion-RAM  module  is  set  to 
either  OK  or  32K.  Following  this,  the  system  base  address  (ZP) 
to  the  BASIC  pointers,  number  of  bytes  to  stash  (4),  and  the 
sytem  bank  number  (0)  are  stored  in  the  appropriate  REC  reg- 
isters. STASH  is  then  called.  ' 

STASH,  in  turn,  accesses  DMACALL,  a  Kernal  routine 
that  is  generally  called  when  performing  operations  involving 
expansion  RAM.  The  requested  REC  command— the  value  or- 
dinarily placed  in  57089— is  passed  to  DMACALL  in  the  Y 
register. 

Once  the  start-  and  end-of-BASIC  pointers  have  been 
stashed,  the  BASIC  program  itself  is  stored  in  the  same  par- 
tition with  a  similar  procedure.  During  the  stash  operation,  the 
expansion-RAM  base  address  increments  automatically  as  each 
byte  is  transferred  (bits  6  and  7  in  57098  are  00  by  default). 
As  a  result,  once  the  BASIC  pointers  have  been  stored,  the 
expansion  base  address  is  ready  for  a  second  stash  operation 
and  requires  no  updating. 

Note:  A  swap  or  verify  routine  would  closely  resemble  the 
setup  shown  in  this  program.  If  you  attempt  to  write  one,  be 
sure  to  change  the  contents  of  the  command  register  (in  .Y)  for 
the  proper  operation  (stash,  fetch,  swap,  or  verify)  before  call- 
ing DMACALL. 

Routine 

OC0O  CHROUT       -  65490 

DMACALL    =  65360  ;  Kernal  routine  which  passes  command  In  JC 

:  to  DMA  controller 
DMA5YA       =  57090  ;  DMA  system  memory  base  address  register 

I  DMAEXA       =  57092  :  DMA  expansion  memory  base  address 

;  register 
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ocoo 

OCM 

OCOO 
OCOO 
OCOO 


DMABNK 

= 

57094 

DMADAT 

— 

57095 

TXTTAB 

= 

45 

TEXTTP 

=* 

4624 

ZP 

— 

251 

OCOO 
0C02 

C9 
90 

01 

BD 

CMP 
BCC 

#1 
PRTMSC 

0CO4 
0C06 

C9 

BO 

05 
59 

CMP 
BCS 

#5 
PRTMSC 

0C08 
0C09 
OCOB 
OCOC 
OCOF 

38 
E9 
4A 

8D 
A9 

01 

06 
00 

DF 

SEC 
SBC 
LSR 
STA 
LDA 

#1 

DMABNK 
#0 

0C11 

8D 

04 

DF 

STA 

DMAEXA 

0C14 

90 

02 

BCC 

EXPOFF 

0C16 
0C18 

A9 
BD 

20 
05 

DF   EXPOFF 

LDA 
STA 

#32 
DMAEXA+1 

0C1B 

A5 

2D 

LDA 

TXTTAB 

0C1D 
OCIF 
0C21 
0C23 

85 
AS 
85 

AD 

FB 

2E 

rc 

10 

12 

STA 
LDA 
STA 
LDA 

ZP 

TXTTAB+ 1 

ZP-H 

TEXTTP 

0C26 
0C28 
0C2B 
0C2D 

85 
AD 
85 
A9 

FD 
11 
FE 
FB 

12 

STA 
LDA 
STA 
LDA 

ZP+2 
TEXTTP +1 
ZP+3 

#ZP 

0C2F 
0C32 

BD 
A9 

02 
04 

DF 

STA 
LDA 

DMASYA 
*4 

0C34 
0C37 
0C39 
0C3C 

8D 
A9 
8D 
8D 

07 
00 
08 
03 

DF 

DF 
DF 

STA 
LDA 
STA 
STA 

DMADAT 
•0 

DMADAT+1 
DMASYA +1 

0C3F 
0C40 

AA 
20 

6F 

OC 

TAX 

[SR 

STASH 

0C43  38 

0C44  AD  10      12 

0C47  E5  2D 

OC49  8D  07     DF 

0C4C  AD  11     12 

0C4F  E5  2E 

0C51  8D  08     DF 

0C54  A5  2D 


DMA  expansion  memory  bank  register 
DMA  number  of  bytes  to  transfer 
start-of-BASIC  pointer 
;  end-of-BASIC  program  pointer 


;  Store  BASIC  program  into  RAM  expansion 

;  bank  0  or  1  on  32K  boundaries. 

;  Use  this  program  along  with  the  program 

i  under  FETCH  entry. 

;  make  sure  .A  is  in  range  1-4 

i  .A  is  less  than  1.  so  print  an  error  message 

;  and  leave 

;  .A  Is  5  or  greater,  so  print  error  message 

;  and  leave 

;  now  subtract  1  to  put  It  in  range  0-3 

;  determine  RAM  expansion  bank 

;  store  it  into  DMA  bank  register 

:  determine  32K  offset  in  each  bank  (high 

;  byte) 

;  aiso  store  zero  into  base  address  for 

;  expansion  memory  (low  byte) 

:  if  partition  number  is  1  or  3,  carry  is  clear. 

;  so  OK  offset 

;  offset  by  32K  if  partition  number  is  2  or  4 

;  store  in  base  address  for  expansion  memory 

:  (high  byte) 

;  save  start-of-BASIC  address  pointer  in  zero 


;  save  end-of-BASIC  address  pointer  in  zero 


SEC 

LDA  TEXTTP 

SBC  TXTTAB 

STA  DMADAT 

LDA  TEXTTP+1 

SBC  TXTTAB+ 1 

STA  DMADAT+1 

LDA  TXTTAB 


store  starting  address  of  two  pointers  In 
;  system  memory  address  register 
;  low  byte 

;  store  number  of  bytes  to  transfer  in  DMA 
;  register  (low  byte) 

;  store  zero  to  high  byte 

;  also  store  zero  to  high  byte  of  system 

;  memory  address 

;  put  system  memory  bank  number  in  .X 

;  store  BASIC  pointers 

;  Now  store  BASIC  program  directly  after  the 

;  pointers. 

;  determine  number  of  bytes  in  BASIC 

,  program 

;  gel  end-of-BASIC  low  byte 

;  subtract  start-of-BASIC  low  byte 

;  store  result  into  DMA  register  for  number  of 

:  bytes  to  transfer 

;  get  end-of-BASIC  high  byte 

;  subtract  start-of-BASIC  high  byte 

.-  store  to  high  byte  of  register 

;  store  starting  address  ol  BASIC  as  system 

:  base  address 
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STASH  (128  only) 


0C36 

8D    02 

DF 

STA 

DMASYA 

0C59 

A5    2E 

LDA 

TXTTAB+1 

0C5B 

8D    03 

DF 

STA 

DMASYA +1 

0C5E  4C  6F     0C 

0C61  AO  00  PRTMSG 

OC63  B9  74     OG    PRTLOP 

0C66  FO  06 

0C68  20  D2   FF 

0C6B  C8 

0C6C  DO  F5 

0C6E  60  PRTEND 


0C6F    AO   80  STASH 

0C71     4C    50     FF 

0C74     4E    4F    54     ERRMSG 

0C90     00 

See  also  FETCH. 


/MP       STASH 


LDY 

LDA 

BEQ 

)SR 

1NY 

BNE 

RTS 


LDY 
JMP 

.ASC 


#0 

ERRMSG.Y 
PRTEND 
CHROUT 

PRTLOP 


#W000OO0O 
DMACALL 


;  System  bank  number  is  in  _X,  DMAEXA 
;  updates  automatically  (see  57098). 
;  store  BASIC  program  and  RT5 

;  index  for  PRTLOP 

;  get  a  character  for  the  error  message 

;  end  on  a  zero  byte 

;  print  the  character  if  not  zero 

;  next  character 

;  branch  always 

;  leave  the  program 

;  Enter  this  routine  with  DMA  registers  set 
;  up,  and  system  bank  number  in  X 
;  command  register  (57089)  value  for  stash 
;  call  DMA  Kernal  routine  and  RTS 


-BYTE   0 


'NOT  A  VALID  PARTITION  NUMBER" 
error  message 


;  terminator  byte 
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STP64  (64  only) 


Name 

Print  a  string  on  the  64  with  STROUT 

Description 

STP64  relies  on  the  BASIC  routine  STROUT  to  print  a  string 
to  the  current  output  device. 

Prototype 

1.  Load  the  address  of  the  string  into  .A  (low  byte)  and  .Y 
(high  byte). 

2.  JSR  to  the  STROUT  routine  in  BASIC  ROM  to  print  the 
string  (ending  in  a  zero  byte). 

Explanation 

Due  to  the  limits  of  STROUT,  STP64  can  print  strings  that  are 
no  longer  than  255  bytes.  Use  STRCPT  if  you  wish  to  print 
longer  strings. 

In  the  example,  STP64  sends  the  string  to  the  screen  (the 
default  device).  Output  can  be  directed  to  other  peripherals, 
such  as  printers,  by  changing  the  current  output  device  num- 
ber (location  154)  or  by  calling  the  Kernal  CHKOUT  routine 
after  opening  a  file  to  another  device. 

Warning:  Be  sure  to  place  the  string  you  intend  to  print 
outside  your  working  code.  If  you  place  the  string  immediately 
after  the  JSR  STROUT  instruction,  the  64  will  interpret  the 
characters  of  the  string  as  if  they  were  ML  instructions. 

Routine 

C000  STROUT        =  43806 

)  Print  string  "HELLO". 

C000  A9  08  STP64  LDA  #<STRING  ;  low  byte  of  airing 

C002  A0  CO  LDY  #>STRING  ;  high  byte  of  string 

C004  20  IE  AB  JSR  STROUT  ;  print  the  string 

C007  60  RTS 

C008  48  45  4C    STRING         -ASC  "HELLO"  ;  message  to  pnnt 

C00D  00  BYTE  0  ;  ending  in  a  zero  byte 

See  also  PTABAD,  PTABCT,  STP128,  STRCPT,  STRLEN. 
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STP128  (128  only) 


Name 

Print  a  string  on  the  128  with  PRIMM 

Description 

STP128  relies  on  the  Kemal  routine  PRIMM  to  print  a  string 
to  the  current  output  device. 

Prototype 

1.  JSR  to  PRIMM. 

2.  The  ASCII  string  (ending  in  a  zero  byte)  immediately  fol- 
lows in  the  code. 

Explanation 

Because  it  relies  on  PRIMM,  STP128  can  only  print  strings 
that  are  no  longer  than  255  bytes.  To  print  longer  strings,  use 
STRCPT. 

In  the  example,  STP128  sends  output  to  the  screen  (the 
default  device).  Output  can  be  directed  to  other  peripherals, 
such  as  printers,  by  changing  the  current  output  device  num- 
ber in  location  154  or  by  opening  a  channel  and  performing  a 
Kernal  CHKOUT. 

Warning:  Always  JSR  to  PRIMM  rather  than  JMPing  to  it, 
since  PRIMM  uses  the  return  address  of  the  JSR  to  locate  the 
string. 

Routine 


ocoo 


PRIMM 


65405 


OCOO 

20 

7D    FF     STP128 

JSR        PRIMM 

0C03 

48 

45     4C    STRING 

.ASC     "HELLO 

0C08 

00 

.BYTE  0 

0C09 

60 

RTS 

Print  HELLO. 

print  the  string  that  follows 

ASCI i  message  to  print 
and  ends  in  a  zero  byte 


See  also  PTABAD,  PTABCT,  STP64,  STRCPT,  STRLEN. 


496 


STPFLG 


Name 

Check  for  STOP  key  by  using  the  system  STOP  flag 

Description 

The  flag  at  location  145  is  used  to  detect  when  the  STOP  key 
has  been  pressed.  A  value  of  127  in  this  location  indicates  that 
STOP  has  been  pressed. 

Prototype 

1.  Compare  the  contents  of  the  STOP  flag  with  127. 

2.  Return  with  the  status  register  Z  flag  set  if  STOP  is  pressed. 

Explanation 

Similar  to  the  example  routine  for  STPKER,  this  routine  prints 
B's  until  STOP  is  pressed.  Comparing  the  contents  of  STKEY 
with  127  sets  or  clears  the  Z  flag  just  as  if  we  had  executed 
the  Kernal  STOP  routine.  That  is,  only  if  STOP  is  detected  will 
Z  =  1. 

Note:  The  flag  at  145  is  updated  only  during  normal  IRQ 
interrupts.  So  if  you  write  your  own  interrupt  routine,  use 
STPKER  instead.  One  advantage  of  using  STPFLG,  however, 
is  that  only  .A  is  affected,  whereas  STPKER  affects  both  .A 
and  .X. 

Routine 


cooo 
cooo 

STKEY 

= 

145 

;  STOP  key  flag 

CHROUT 

= 

65490 

>* 

j  Prim  B's  until  stop  Is  pressed. 

COOO    A9 

42 

Loor 

LDA 

#66 

;  print  B 

C002     20 

D2 

FF 

JSR 

CHROUT 

C005     20 

OB 

CO 

|SR 

STPFLG 

,  check  STOP  key 

COOS     DO 

F6 

BNF. 

LOOP 

:  STOP  key  not  pressed,  so  LOOP 

C00A    60 

RT5 

-.  Check  STOP  key  flag.  If  pressed,  sel  Z  flag 
;  in  status  register. 

C00B     A5 

91 

STPFLG 

LDA 

STKEY 

;  check  STOP  key  flag 

C00D    C9 

7F 

CMP 

#127 

;  STOP  key  pressed? 

CO0F     60 

RTS 

;  Z  (lag  set  accordingly 

See  also  SHFCHK,  STPKER. 
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STPKER 


Name 


Check  for  STOP  key  using  Kernal  STOP  routine 

Description 

The  Kernal  STOP  routine  allows  you  to  determine  when  the 
STOP  key  has  been  pressed.  The  zero  flag  is  set  if  the  STOP 
key,  either  alone  or  in  combination  with  certain  other  keys, 
has  been  pressed.  Otherwise,  the  Z  flag  is  clear. 

Prototype 

1.  JSR  to  the  Kernal  STOP  routine  and  RTS  (or  simply  JMP  to 
STOP). 

2.  Upon  return,  the  Z  flag  will  be  set  if  STOP  is  pressed. 

Explanation  : 

To  demonstrate  this  routine,  we  print  A's  while  Z  =  0.  When 
STOP  is  pressed,  Z  =  1,  and  we  clear  the  screen. 

Note:  Unlike  STPFLG,  STPKER  is  not  IRQ-dependent. 
However,  STPKER  affects  both  .A  and  .X,  whereas  STPFLG 
only  affects  the  accumulator. 

Routine 


pressed,  clear 


cooo 

STOP 

-— 

65505 

;  Kernal  STOP  routine 

cooo 

CHROUT 

65490 

■  Print  As.  When  STOP  key 
.*  screen. 

cooo 

A9 

41 

LOOP 

LDA 

#65 

:  print  A 

C002 

20 

D2 

FF 

JSR 

CHROUT 

C005 

20 

10 

CO 

JSR 

STPKER 

;  check  STOP  key 

C008 

DO 

F6 

BNE 

LOOP 

;  if  zero  is  clear,  then  LOOP 

C00A 

A9 

93 

CLRCHR 

LDA 

#147 

;  dear  screen 

COOC 

20 

D2 

EF 

JSR 

CHROUT 

C00F 

60 

RTS 

:  Check  STOP  key.  Z  Hag  se 

C010 

20 

El 

FF 

STPKER 

JSR 

STOP 

;  Kernal  STOP  key  check 

C013 

60 

RTS 

See  also  SHFCHK,  STPFLG. 
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STRCPT 


Name 

Print  a  string  with  a  custom  printing  routine 

Description 

This  routine  prints  a  zero-terminated  ASCII  string  of  any 
length.  It's  similar  to  the  STROUT  routine  in  Commodore  64 
ROM. 

Prototype 

1.  Load  .A  with  the  low  byte  of  the  address  of  the  string  and 
store  it  in  zero  page. 

2.  Do  the  same  with  the  high  byte  of  the  address  of  the  string. 

3.  Set  an  index  (.Y)  to  zero  to  initialize  the  main  loop 
(STRLOP). 

4.  Execute  STRLOP  until  the  zero  byte  is  reached  or  until  .Y 
reaches  zero. 

5.  If  the  index  rolls  over,  increment  the  high  byte  value  in  the 
zero-page  pointer  to  the  string  address  and  continue  STRLOP. 

Explanation 

You  may  find  the  built-in  routines  for  printing  strings  (BASIC 
STROUT  on  the  64  and  Kemal  PRIMM  on  the  128)  limiting  in 
certain  situations.  Suppose,  for  instance,  that  while  program- 
ming on  your  64,  you  need  to  switch  out  BASIC  ROM.  It  may 
not  be  convenient  to  switch  BASIC  back  in  during  your  pro- 
gram just  to  print  a  string  with  STROUT.  Instead,  you  can 
simply  incorporate  STRCPT  into  your  code. 

Furthermore,  there  will  be  times  when  you'll  need  to  print 
strings  longer  than  255  characters.  Neither  STROUT  nor 
PRIMM  can  handle  this  chore.  But  STRCPT,  designed  to  print 
longer  strings,  would  be  ideal. 

Also,  STRCPT  is  not  specific  to  the  64  or  the  128.  For 
this  reason  you'll  see  STRCPT  in  many  programs  in  this  book. 

Much  like  STP64  and  STP128,  the  important  point  to 
remember  in  using  STRCPT  is  to  place  the  string  outside  your 
working  code.  If  you  place  the  string  in  the  working  portion  of 
STRCPT,  your  computer  will  attempt  to  execute  the  characters 
of  the  string  as  if  they  were  ML  instructions. 

In  the  example,  STRCPT  sends  the  string  to  the  screen 
(the  default  device).  Output  can  be  directed  to  other 
peripherals,  such  as  printers,  by  opening  a  channel  to  the  de- 
vice and  executing  CHKOUT. 
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STRCPT 


Routine 

cooo 
cooo 


CHROUT       =  65490 

ZP  =251 


STRCPT 


STRLOP 


COOO  A9  1A 

C0O2  85  FB 

C0O4  A0  CO 

C006  84  FC 

C008  AO  00 

COOA  Bl  FB 

COOC  FO  OB 

COOE  20  D2    FF 

COU  C8 

C012  DO  F6 

COW  E6  FC 


C016     4C    OA    CO 

C019     60  FINISH 


LDA      #<STRING 
STA       ZP 

#>STRING 

ZP+1 

#0 


LDY 
STY 
LDY 


LDA      (ZP),Y 
BEQ       FINISH 


JSR 
INY 
BNE 

INC 

JMP 
RTS 


COLA    48 
COLF    00 


45     4C    STRING 


CHROUT 
STRLOP 
ZP+1 
STRLOP 


ASC      "HELLO" 
.BYTE    0 


;  Print  HELLO  with  custom  print  routine 

.  (allows  >255  characters). 

;  low  byte  of  string 

;  store  it 

;  high  byte  of  string 

;  store  it  also 

;  initialize  index 

;  load  each  character  from  string 

;  if  zero  byte,  then  finished 

;  print  character 

;  for  next  character 

;  If  not  more  than  256  bytes,  then  get  next 

;  character 

;  otherwise,  increment  high  byte  of  the 

;  pointer 

;  and  continue  printing 


;  message  to  print 
;  ending  in  zero  byte 


See  also  PTABAD,  PTABCT,  STP128,  STP64,  STOLEN. 
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STRLEN 


Name 

Determine  the  length  of  a  string 

Description 

From  time  to  time,  you'll  want  to  find  out  how  many  charac- 
ters are  in  a  particular  string.  Perhaps  a  string- handling  opera- 
tion or  a  screen-positioning  routine  requires  this  information. 
STRLEN  provides  you  with  the  length  of  any  zero-terminated 
string  containing  fewer  than  256  characters. 

Prototype 

1.  Initialize  .Y  to  255  to  serve  as  a  character  counter  . 

2.  Begin  counting  characters  in  the  string  by  incrementing  .Y. 

3.  Check  each  character  in  the  string  for  a  zero  byte. 

4.  If  the  character  byte  is  not  zero,  go  to  step  2. 

5.  Otherwise,  transfer  the  length  of  the  string  (in  the  Y  reg- 
ister) to  .A  and  RTS. 

Explanation 

In  the  example  below,  a  line  of  text  is  entered  into  the  text  in- 
put buffer  by  using  the  BASIC  routine  INLIN.  The  address  of 
this  string  data  is  stored  in  zero  page.  STRLEN  then  returns 
the  length  of  the  string  in  the  accumulator.  The  framing  rou- 
tine prints  the  length  with  NUMOUT  prior  to  returning  to 
BASIC. 

Note:  An  RTS  cannot  be  used  to  return  to  BASIC  here  be- 
cause the  text  in  the  input  buffer  would  be  interpreted  by 
BASIC  as  a  direct  command.  See  TXTINP  for  a  discussion  of 
this  problem. 

Warning:  The  loop  that  searches  for  a  string  ($C01B- 
$C01F)  will  never  end  if  there  are  no  zero  bytes  within  the 
256  locations  after  the  starting  address  of  the  buffer.  The 
INLIN  ROM  routine  always  ends  a  string  with  the  number  0, 
so  this  is  not  a  concern  within  this  example  program.  How- 
ever, if  you  use  this  subroutine  within  your  own  programs,  be 
sure  the  string  you're  examining  is  fewer  than  256  characters 
long  and  that  it  ends  with  a  zero  byte. 

Routine 


cooo 

CHROUT      = 

65490 

cooo 

BUF                = 

512 

cooo 

ZP                = 

251 

cooo 

INLIN            = 

42336 

;  INUN  =  22176  on  the  128 

cooo 

LINPRT         - 

48589 

,  LINPRT  =  36402  cm  the  128 

;  Input  a  line  of  text  until  RETURN  and 
;  determine  its  length. 
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STRLEN 


COOO     20     60     A5 


C003  A9  00 

C005  85  FB 

C007  AO  02 

C009  84  FC 

COOB  20  19     CO 


JSR        INLIN 


LDA  #<BUF 

STA  ZP 

LDY  #>BUF 

STY  ZP  +  1 


JSR 


STRLEN 


COOE  AA  NUMOUT    TAX 

COOF  A9    00  LDA  #0 

C011  20     CD   BD  JSR  LINPRT 

COM  A2    80  LDX  «128 

C016  6C    00     03  IMP  (768) 


C019  AO    FF 

C01B  C8 

C01C  Bl    FB 

C01E  DO    FB 

C020  98 

C021  60 


STRLEN       LDY      #255 

LENLOP        INY 

LDA      (ZP),Y 
BNE       LENLOP 
TYA 

RTS 


input  3  line  of  text  wiih  the  BASIC  routine 
INUN 

Store  the  resulting  text  string  address  in 

zero  page. 

low  byte  of  input  buffer 

store  in  zero  page 

high  byte  of  input  buffer 

also  store  in  zero  page 

get  string  length 

Print  length  with  NUMOUT. 

place  low  byte  of  number  in  .X 

high  byte  Is  zero 

print  the  length 

error  handler  code  for  READY  message 

return  to  BASIC  and  print  READY  prompt 

Return  the  length  of  the  string  (<256 

characters)  m  .A. 

String's  address  is  in  zero  page. 

index  into  string 

load  the  next  character 

check  for  zero  byte 

you've  reached  the  end  of  the  string,  so 

return  length  in  .A 


See  also  PTABAD,  PTABCT,  STP128,  STP64,  STRCPT. 
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SUBBYT 


Name 

Subtract  one  byte  value  from  another 

Description 

The  SBC  (SuBtract  with  Carry)  instruction  subtracts  a  value 
from  the  number  currently  in  the  accumulator.  The  example 
program  illustrates  the  basic  technique  for  subtracting  one 
number  from  another. 

Prototype 

1.  Set  the  carry  flag  with  SEC. 

2.  Load  the  accumulator  (LDA)  with  the  first  number. 

3.  Subtract  the  second  number  (SBC)  and  handle  the  result  as 
you  wish. 

Explanation 

The  example  program  waits  for  the  user  to  press  two  keys.  If  C 
(ASCII  67)  is  pressed  first,  followed  by  A  (ASCII  65),  the  num- 
ber 65  is  subtracted  from  67  and  the  result  (2)  prints  to  the 
screen. 

If  you  switch  the  two  letters,  the  calculation  of  65  —  67, 
(which  should  be  —2)  gives  a  result  of  254  instead.  It's  im- 
portant to  remember  that  byte  values  are  limited  to  the  range 
0-255  and  that  if  you  add  or  subtract  two  numbers  that  result 
in  a  number  outside  of  that  range,  the  values  wrap  around  at 
256.  When  such  an  overflow  occurs,  the  carry  flag  will  be  set 
(after  addition)  or  clear  (after  subtraction). 

An  interesting  side  effect  of  this  fact  is  that  the  compare 
instructions — CMP,  CPX,  and  CPY — which  compare  two  num- 
bers, act  like  SBC.  If  you  subtract  a  smaller  (or  equal)  number, 
carry  is  set.  If  you  subtract  a  larger  number,  carry  is  clear. 
Thus,  after  a  compare  instruction,  carry  is  clear  if  the  number 
in  .A,  .X,  or  .Y  is  smaller  than  the  second  number. 

Routine 


cooo 

GETIN 

= 

SFFE4 

cooo 

LINPRT 

m 

SBDCD 

;  LINPRT  =  S8E32  on  th 

cooo 

CHROUT 

*5 

$FFD2 

cooo 

20 

3? 

CO 

JSR 

GETKEY 

:  gel  a  key  (ASCII  value) 

C003 

8D 

3D 

CO 

STA 

NUMBER  1 

;  store  it 

C006 

20 

37 

CO 

JSR 

GETKEY 

;  get  a  second  key 

C009 

8D 

3E 

CO 

STA 

NUMBERS 

;  store  it.  too 

cooc 

AE 

3D 

CO 

LDX 

NUMBER1 

;  now  print  it 

COOF 

A9 

00 

LDA 

#0 

COM 

20 

CD 

BD 

JSR 

LINPRT 

C014 

AS 

0D 

LDA 

#13 

C016 

20 

D2 

FF 

JSR 

CHROUT 

;  print  RETURN 

C019 

AE 

3E 

CO 

LDX 

NUMBER2 

;  second  number 
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C01C  A9    00 

C01E  20    CD  BD 

C021  A9    OD 

C023  20     D2    FF 


LDA  #0 

JSR  LINPRT 

LDA  #13 

JSR  CHROUT 


C026     AD  3D    CO    SUBBYT       LDA      NUMBER1 


C029  38 

C02A  ED   3E     CO 

C02D  8D   3F    CO 

C030  AA 

C031  A9    00 

C033  20    CD  BD 

C036  60 

C037  20     E4     FF     GETKEY 

C03A  FO     FB 

C03C  60 


SEC 

SBC       NUMBER2 

STA       TOTAL 

TAX 

LDA      #0 

ISR         LINPRT 

RTS 

JSR        CET1N 
BEQ       GETKEY 

RTS 


:  print  it 

:  RETURN  again 

;  the  first  number 
I  set  the  carry  flag 
I  subtract  the  second 
;  store  It 
;  put  it  in  .X 

I  and  print  it 


C03D  00 
C03E  00 
C03F    00 


NUMBER1  .BYTE  0 
NUMBER2  .BYTE  0 
TOTAL  .BYTE    0 


See  also  SUBFP,  SUBINT. 
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Name 

Subtract  one  floating-point  number  from  another 

Description 

Given  a  number  in  the  second  floating-point  accumulator 
(FAC2)  and  another  number  in  FAC1,  this  routine  subtracts 
(FAC2  minus  FAC1)  and  puts  the  result  in  FAC1. 

Prototype 

1.  Store  a  number  in  FAC2. 

2.  Store  another  number  in  FAC1. 

3.  Call  the  ROM  routine  FSUBT. 

Explanation 

The  example  routine  subtracts  300  from  258.  The  result  is 
—  42,  which  is  converted  to  ASCII  numbers  and  is  printed  to 
the  screen.  Note  the  abundance  of  ROM  routine  calls,  which 
generally  make  it  easy  to  handle  floating-point  values. 

Routine 


cuoo 

ZP 

= 

$FB 

cooo 

CHROUT 

= 

SFFD2 

cooo 

FSUBT 

= 

SB853 

:  FSUBT  -  $8831  on  the  128— subtract  FAC1 

;  from  FAC2;  result  in  FAC1 

cooo 

MOVEF 

= 

$BC0F 

:  MOVEF  =  $8C3B  on  the  128— moves  FAC1 

;  to  FAC2 

;  GTVAYF  =  $AF03  on  the  128 — converts 

cooo 

G1VAYF 

— 

$B391 

.-  integer  to  floating  point 

cooo 

FOUT 

$BDDD 

;  FOUT  =  $8E42  on  the  128— converts  FAC1 

;  to  ASCII  string 

I 

;  Convert  the  numbers  258  and  300  to 

;  floating  point  and  subtract. 

cooo 

A9 

01 

LDA 

#>258 

;  high  byte  of  258 

C002 

AO 

02 

LDY 

*<258 

;  low  byte 

C004 

20 

91 

B3 

JSR 

GIVAYF 

;  convert  it;  now  it's  in  FAC1 

C007 

20 

OF 

BC 

J5R 

MOVEF 

:  move  FAC1  to  FAC2 

C00A 

A9 

01 

LDA 

«>300 

:  high  byte  of  300 

cooc 

AO 

2C 

LDY 

»<300 

:  tow  byte 

C00E 

20 

91 

B3 

JSR 

GIVAYF 

;  convert  it 

:  FAC1  now  holds  300.  and  FAC2  holds  258. 

con 

20 

29 

CO 

JSR 

SUBFP 

1  subtract  (258  -  300);  the  result  (-42)  is  left 
J  in  FAC1 

C014 

20 

DD 

BD 

JSR 

FOUT 

;  convert  to  ASCII 

C017 

85 

FB 

STA 

ZP 

.-  pointer 

C019 

'84 

FC 

STY 

ZP+1 

;  to  the  string 
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C01B 

AO 

00 

LDY 

#0 

COID 

Bl 

FB 

PRTLOP 

LDA 

(ZP),Y 

COIF 

DO 

01 

BNE 

PRNIT 

C021 

60 

RTS 

C022 

20 

D2 

FF 

PRNIT 

ISR 

CHROUT 

C025 

C8 

TNY 

C026 

DO 

F5 

BNE 

PRTLOP 

C028 

60 

RTS 

C029 

20 

53 

B8 

SUBFP 

JSR 

FSUBT              • 

C02C 

60 

RTS 

subtract  f  ACJ  from  FAC2 
the  result  is  In  FAC1 


See  also  SUBBYT,  SUBINT. 
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Name 

Subtract  one  2-byte  integer  from  another 

Description 

A  single  opcode  (SBC)  handles  subtraction,  but  you  have  to 
set  the  carry  flag  first.  This  routine  illustrates  how  to  do 
multiple-byte  subtraction. 

Prototype 

1.  Set  the  carry  flag  (SEC). 

2.  Load  the  low  byte  into  .A  (LDA). 

3.  Subtract  with  carry  (SBC)  the  second  byte. 

4.  Store  the  result  (STA). 

5.  Repeat  the  LDA,  SBC,  STA  sequence  for  higher  bytes. 

Explanation 

The  rule  to  remember  for  both  adding  and  subtracting  is  al- 
ways to  clear  the  carry  flag  before  adding  and  always  to  set 
carry  before  subtracting.  Start  with  the  low  byte  and  work  to- 
ward the  higher  bytes.  The  SEC  (SEt  Carry)  instruction  is 
needed  only  once  at  the  beginning  of  the  multiple-byte 
subtraction.  After  the  first  byte  is  subtracted,  carry  takes  care 
of  itself. 

The  example  program  takes  the  value  in  the  pointer  from 
VARTAB  (the  end  of  the  BASIC  text  area)  and  subtracts  the 
address  of  the  beginning  of  the  BASIC  text  area.  It  then  prints 
a  number  that  represents  the  number  of  bytes  used  by  the 
BASIC  program  in  memory.  Since  BASIC  puts  two  zeros  at  the 
end  of  a  program,  the  number  2  will  print  if  you  have  no  pro- 
gram in  memory. 

Note;  If  the  number  subtracted  is  larger  than  the  other 
number  (500  —  1120,  for  example),  the  carry  flag  will  be  clear 
when  the  routine  finishes,  and  the  result  will  wrap  around 


fror 

n  $ 

301 

)0  to  $ 

*K88  or  below. 

Routine 

cooo 
cooo 
cooo 

TXTTAB 

VARTAB 
LINPRT 

- 

43 

45 
SBDCD 

;  TXTTAB  =  45  on  the  128— beginning  of 

:  BASIC  program  text 

j  end  of  the  text  for  BASIC  (substitute 

;  TXTTP  =  4624  for  the  128) 

.  UNPRT  =  S8E32  on  the  128 

COOO     A5 

C002     8D 
C005     A5 
C007    8D 
COOA    A5 

2D 

35 

2E 
36 

2B 

CO 
CO 

LDA 

STA 
LDA 
STA 

LDA 

VARTAB 

NUM1 
VARTAB +  1 
NUM1+1 
TXTTAB 

;  the  end  of  BASIC  (substitute  TXTTP  for  the 
;  128) 

;  high  byte  (substitute  TXTTP+1  for  the  128) 

:  the  start  of  BASIC 
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cooc 

8D 

37 

CO 

STA 

NUM2 

COOF 

A5 

2C 

LDA 

TXTTAB+ 1 

;  high  byte 

con 

8D 

38 

CO 

STA 

NUM2+1 

;  The  two  numbers  have  been  prepare 

C014 

20 

21 

CO 

ISR 

SUBINT 

;  subtract  the  second  number  from  the 

C017 

AE 

39 

CO 

LDX 

MINUS 

;  low  byte  of  the  result 

COIA 

AD 

3A 

CO 

LDA 

M1NUS+1 

;  high  byte 

C01D 

20 

CD 

BD 

ISR 

UNPRT 

;  print  it 

C020 

60 

RTS 

C021 

38 

SUBTNT 

SEC 

;  always  sei  cany  before  subtracting 

C022 

AD 

35 

CO 

LDA 

NUM1 

;  low  byte  first 

C025 

ED 

37 

CO 

SBC 

NUM2 

;  subtract 

COM 

8D 

39 

CO 

STA 

MINUS 

;  and  store  the  result 

C02B 

AD 

36 

CO 

LDA 

NUM1+1 

;  high  byte 

C02E 

ED 

38 

CO 

SBC 

NUM2+1 

;  subtract  (don't  SEO 

C031 

8D 

3A 

CO 

STA 

MINUS +1 

COM 

60 

RTS 

;  finished 

C035 

00 

00 

NUM1 

.BYTE 

0,0 

C037 

00 

00 

NUM2 

.BYTE 

0,0 

C039 

00 

00 

MINUS 

.BYTE 

0,0 

See  also  SUBBYT,  SUBFP. 
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Name 

Save  processor  registers  in  memory 

Description 

At  times  you'll  face  a  situation  where  you'll  need  to  go  to  a 
subroutine  that  might  change  the  contents  of  the  processor 
registers  .A,  .X,  .Y,  and  .P — but  you  want  to  remember  the 
current  state  of  the  registers  when  the  subroutine  ends.  This 
routine  saves  the  registers  in  memory,  so  you  can  find  them 
again  when  you  return. 

Prototype  : 

1.  Push  .P  onto  the  stack  temporarily. 

2.  Store  .A,  .X,  and  .Y  in  memory. 

3.  Pull  .P  from  the  stack,  but  into  A  (PLA,  not  PLP). 

4.  Store  A  into  memory. 

Explanation 

The  processor  status  register  contains  the  various  flags — zero, 
negative,  overflow,  carry,  and  so  on — and  the  flags  can 
change  very  quickly.  (A  single  LDA  will  often  change  several 
flags.)  Because  it's  so  fragile,  it  must  be  handled  first.  After  we 
have  pushed  it  temporarily  onto  the  stack,  the  rest  of  the  sub- 
routine is  fairly  simple.  Just  store  the  registers  into  memory: 
TEMPA,  TEMPX,  and  TEMPY.  Finally,  the  P  register  is  pulled 
off  the  stack  (into  the  accumulator  this  time),  and  it's  stashed 
in  TEMPP. 

Note:  This  routine  is  slower  and  takes  more  memory  than 
the  routine  that  saves  the  registers  onto  the  stack.  It  does  have 
one  advantage,  though:  This  one  can  exist  as  a  subroutine. 
You  can  JSR  SVREGM  before  calling  the  routine  that  changes 
the  registers.  The  other  routine  must  be  in-line  code.  If  you 
have  several  areas  where  the  registers  must  be  remembered, 
this  subroutine  will  save  memory  in  the  long  run.  On  the 
other  hand,  if  you  find  yourself  constantly  saving  and  restor- 
ing the  registers,  your  program  design  may  be  flawed;  this  sort 
of  routine  can  be  replaced  by  various  other  techniques. 

Routine 


cooo 

08 

SVREGM 

PHP 

;  first  push  the  .1'  status  to  retrieve  later 

C001 

SD 

0V 

CO 

STA 

TEMPA 

;  save  .A 

C004 

8E 

10 

CO 

STX 

TEMPX 

; save  -X 

C007 

8C 

11 

CO 

STY 

TEMPY 

; save  .Y 

COOA 

68 

PLA 

;  get  .P  from  the  stack  (into  .A  this  time) 

CUOB 

8D 

12 

CO 

STA 

TEMPP 

; 
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CODE     60 


COOF  00 

CO10  00 

COll  00 

C012  00 


TEMPA  .BYTE  00 

TEMPX  BYTE  00 

TEMPY  .BYTE  00 

TEMPP  .BYTE  00 


;  we're  done 

i  Variables 


See  also  RSREGM,  SVREGS. 
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Name 

Save  and  restore  registers  on  the  stack  within  a  routine  (in-line 
code) 

Description 

Occasionally,  you'll  have  a  situation  where  the  A,  X,  and  Y 
registers  hold  important  information,  but  you'll  need  to  call  a 
subroutine  that  may  leave  them  in  an  indeterminate  state.  The 
solution  is  to  save  them  as  you  enter  the  routine  and  then  re- 
store them  before  exiting.  The  fastest  way  to  store  registers  is 
to  push  them  onto  the  stack. 

Prototype 

1.  Push  .P  (processor  status)  onto  the  stack. 

2.  Push  .A  and  then  transfer  .X  and  .Y  to  .A  for  pushing. 

3.  Execute  the  routine. 

4.  Restore  the  registers  by  pulling  them  off  the  stack  (in 
reverse  order). 

Explanation 

The  processor  status  contains  the  various  flags  (.N,  .Z,  .C,  and 
so  forth)  and  can  change  with  a  single  LDA,  so  we  have  to 
push  it  first  (PHP).  Next,  we  have  to  save  the  accumulator,  be- 
cause it's  not  possible  to  push  .X  and  .Y  directly.  After  .P  and 
.A  have  been  saved,  .X  is  transferred  to  .A  (TXA)  and  pushed 
(PHA),  and  then  .Y  is  transferred  and  pushed. 

The  four  important  registers  are  now  on  the  stack.  The 
routine  at  $C006-$CGTE  is  unimportant  (it  prints  the  letters 
A-Z),  but  it  does  mess  up  the  contents  of  all  registers.  So, 
when  it's  finished,  we  get  back  the  registers  by  pulling  the 
values  back.  Since  they  went  on  the  stack  in  the  order  .P,  .A, 
.X,  and  .Y,  it's  necessary  to  pull  them  off  in  the  reverse  order 
(.Y,  .X,  .A,  and  .P).  When  that's  done,  the  RTS  sends  us  back 
to  the  calling  routine. 

Warning:  You  must  do  the  pushing  and  pulling  within  the 
same  routine.  The  SVREGS  routine  cannot  be  used  as  a  sepa- 
rate subroutine  because  JSR  needs  the  stack  to  preserve  the 
program  counter.  If  you  were  to  use  SVREGS  as  a  subroutine, 
the  JSR  would  put  two  bytes  onto  the  stack;  then  SVREGS 
would  push  .P,  .A,  .X,  and  .Y  onto  the  stack.  The  RTS  would 
cause  two  bytes  to  be  pulled  off  (the  return  address),  but  they 
would  be  the  former  contents  of  .X  and  .Y,  and  the  program 
would  return  to  some  unknown  location. 
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In  general,  if  you  push  a  certain  number  of  bytes  onto  the 
stack  within  a  subroutine,  you  must  pull  the  same  number  off 
before  you  RTS. 

Routine 


cooo 

CHROUT 

= 

cooo 

08 

SVREGS 

PHP 

C001 

48 

PHA 

C002 
C003 
COM 
COOS 

8A 

48 
98 
48 

TXA 
PHA 
TYA 
PHA 

SFFD2 


C006 

A2 

02 

LDX 

#2 

C008 

A9 

41 

LDA 

»65 

C00A 

AO 

0D 

OUTLOP 

LDY 

#13 

COOC 

20 

D2    FF 

HMLOOP 

JSR 

CHROUT 

C00F 

18 

CLC 

C010 

69 

01 

ADC 

#1 

C012 

38 

DEY 

C013 

DO 

F7 

BNE 

IN  LOOP 

C015 

48 

PHA 

C016 

A9 

OD 

LDA 

#13 

C018 

20 

D2    FF 

JSR 

CHROUT 

C01B 

68 

PLA 

C01C 

CA 

DEX 

CO  ID 

DO 

EB 

BNE 

OUTLOP 

C01F  68 

C020  A8 

C021  68 

C022  AA 

C023  68 

C024  28 

C02S  60 


PLA 
TAY 
PLA 
TAX 
PLA 
PLP 
RTS 


;  posh  the  processor  status,  which  is  most 

;  fragile 

;  push  the  accumulator,  because  we  need  it 

;  for  the  next  two  pushes 

;  .X  into  .A 

;  push  it 

;  .Y  into  jV 

;  push  it 

:  .P,  .A.  .X,  and   Y  have  been  pushed  onto 

;  the  stack 

:  in  that  order. 

;  now  a  dummy  routine,  just  to  change  the 

:  registers 

;  .X  is  changed 

;  .A  is  changed 

:  Y  is  changed 

;  print  it 

;  .P  is  changed 

;  increase  the  accumulator 

;  count  down  13  to  I 

i  print  13  characters 

:  save  A  (a  save  within  a  save) 

;  carriage  return 

;  new  line 

;  get  back  .A 

;  go  back  for  the  second  13  letters 

:  By  now  the  registers  have  been 
;  changed,  so  we  restore  them  in 
:  reverse  order  (.Y.  .X,  .A.  .P). 

;pull 

;  put  it  In  .Y 

.poll 

;  into  .X 

;  pull  A 

;pull.P 

;  return,  with  all  registers  intact 


See  also  RSREGM,  SVREGM. 
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Name 

Memory  swap 

Description 

Whenever  you  need  to  swap  two  blocks  of  memory,  use  this 
routine.  On  the  128,  SWAPIT  can  even  exchange  memory 
from  one  bank  to  another. 

Prototype 

This  is  a  two-part  routine.  In  an  initialization  routine  (here, 
either  SWAPCO  or  SWAPSC): 

1.  Store  the  starting  address  of  the  lower  memory  block  to  be 
swapped  in  ZP  and  the  address  of  the  higher  memory  block 
in  ZP+2. 

2.  The  subroutine  ONELES,  called  from  SWAPCO  and 
SWAPSC,  insures  that  the  memory  block  pointed  to  by  ZP 
has  the  lower  address  of  the  two  blocks  to  be  swapped.  (If 
the  address  of  the  memory  block  in  ZP  is  higher,  a  second 
subroutine  called  FLIPZP  switches  the  addresses  in  ZP  and 
ZP+2.) 

In  SWAPIT  itself: 

1.  Jump  to  the  subroutine  OVRLAP  to  determine  whether  the 
two  memory  blocks  overlap.  In  the  process,  store  the  num- 
ber of  bytes  to  be  swapped  in  a  counter  (COUNTR). 

2.  If  the  two  memory  blocks  overlap,  return  from  OVRLAP 
with  the  carry  flag  set  to  indicate  that  an  error  has  occurred. 

3.  Continue  with  SWAPIT  if  the  carry  is  clear  (meaning  there 
is  no  overlap).  Otherwise,  return  to  the  main  calling  pro- 
gram with  the  carry  set. 

4.  Load  a  byte  from  the  first  block.  Store  it  in  .X  temporarily 
while  a  byte  is  read  from  the  second  memory  block. 

5.  Store  the  byte  from  the  second  block  into  the  first.  Recall 
the  byte  in  .X  and  store  it  into  the  second  memory  block. 

6.  Repeat  steps  4  and  5  until  the  bytes  counter  (COUNTR) 
reaches  zero. 

7.  Clear  the  carry  flag  before  returning  from  SWAPIT. 

Explanation 

In  the  example  program,  blocks  of  memory  representing  the 
screen  are  exchanged — first  color  and  then  text  memory.  You 
could  use  a  routine  like  this  one  in  setting  up  a  help  screen. 
Whenever  the  user  pressed  a  certain  key,  the  help  screen 
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would  be  swapped  with  the  current  screen.  Later,  the  normal 
screen  would  be  reenabled. 

Enter  any  key  within  the  main  loop  (MAINLP)  of  this 
program,  and  the  corresponding  character  prints  to  the  screen. 
The  exceptions  are  the  Fl,  F7,  and  left-arrow  (-)  key.  Left  ar- 
row exits  the  program,  while  Fl  and  F7  cause  screen  swaps.  Fl 
saves  the  current  screen  as  a  help  screen  (as  long  as  HELPFL  = 
0)  and  F7  retrieves  it.  Once  the  help  screen  is  displayed,  any 
key  you  press  restores  the  normal  text  screen. 

On  the  128,  since  the  function  keys  are  predefined  as 
BASIC  commands,  you'll  need  to  enter  the  following  line 
before  running  the  program: 

KEY1,CHR$U33):  KEY7,CHR$<136) 

A  number  of  subroutines  are  called  in  preparation  for 
SWAPIT.  The  first  one  (either  SWAPCO  or  SWAPSC,  depend- 
ing on  whether  you're  swapping  color  or  text  memory)  stores 
the  addresses  of  the  two  memory  blocks  to  swap  in  zero  page. 
Before  exiting  this  routine,  a  second  subroutine,  ONELES,  is 
accessed.  ONELES  (calling  the  subroutine  FLIPZP  if  it's 
needed)  insures  that  the  address  pointed  to  by  the  first  zero- 
page  pointer  (ZP)  is  lower  in  memory  than  that  in  the  second 
zero-page  pointer  (ZP+2). 

Once  the  pointers  are  created,  SWAPIT  is  called.  The  first 
thing  SWAPIT  does  is  check  for  overlap  between  the  two 
blocks  of  memory  that  are  going  to  be  swapped.  This  is  han- 
dled by  the  subroutine  OVRLAP. 

OVRLAP  initially  stores  the  number  of  bytes  you  want  to 
swap — previously  defined  as  NUMBER — in  a  two-byte  counter 
(COUNTR).  At  the  same  time,  it  adds  this  number  to  the  block 
that's  lower  in  memory  (in  ZP).  If  the  resulting  number  is 
higher  than  the  start  of  the  second  memory  block,  the  carry 
flag  is  set  to  indicate  overlap.  So,  upon  returning  to  SWAPIT, 
if  carry  is  set,  an  error  message  is  printed,  and  the  program 
terminates. 

If  there's  no  overlap,  SWAPIT  continues,  exchanging 
bytes  one  at  a  time  from  the  two  memory  blocks  until 
COUNTR  decrements  to  zero. 

On  the  128,  memory  can  be  swapped  from  bank  to  bank. 
Two  Kernal  routines  specific  to  the  128  are  required:  INDFET, 
in  place  of  the  LDA  (ZP),Y  at  $C095,  and  INDSTA,  for  the 
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STA  (ZP),Y  at  $C09A.  In  each  case,  you  must  substitute  either 
three  or  four  instructions.  Look  at  MVU128  or  MOVEDN  for 
details  on  how  to  set  this  up. 

Routine 


cooo 

ZP 

— 

251 

cooo 

CHROUT 

= 

65490 

cooo 

GETIN 

— 

65508 

cooo 

BLOCK1 

■= 

1024 

memory  block  1 

cooo 

COLBL1 

= 

55296 

color  block  1 

cooo 

BLOCK2 

= 

14384 

memory  block  2 

cooo 

COLBL2 

«= 

15384 

color  block  1 

COOO 

A9 

00 

LDA 

#0 

initialize  HELPFL 

C002 

8D 

21 

CI 

STA 

HELPFL 

C005 

A9 

93 

CLRCHR 

LDA 

B147 

dear  the  screen 

C007 

20 

D2 

FF 

JSR 

CHROUT 

COOA 

20 

E4 

FF 

MAINLP 

JSR 

GETIN 

get  a  keypress 

COOD 

FO 

FB 

BEQ 

MA1NLP 

If  no  keypress 

COOF 

C9 

5F 

CMP 

#95 

is  it  the  left-arrow  key? 

con 

FO 

OD 

BEQ 

EXIT 

if  so,  leave  the  program 

C013 

C9 

85 

CMP 

#133 

is  it  Fl? 

C015 

FO 

OA 

BEQ 

SAVEHS 

if  so,  save  a  help  screen 

C017 

C9 

88 

CMP 

«136 

isitF7? 

C019 

FO 

ID 

BEQ 

HELP 

if  so,  recall  a  help  screen 

C01B 

20 

D2 

FF 

JSR 

CHROLIT 

otherwise,  print  the  character 

C01E 

DO 

EA 

BNE 

MAINLP 

branch  always 

C020 

60 

EXIT 

RTS 

exit  the  program 

C021      20     65     CO    SAVEHS        JSR        SWAPCO 


C024 
C027 

20 

B0 

2E 

CO 

JSR 
BCS 

SWAFTT 

ERROR 

C029 

20 

79 

CO 

JSR 

SWAPSC 

C02C 
C02F 

20 

BO 

SD 
26 

CO 

JSR 
BCS 

SWAPIT 
ERROR 

C031 
C033 
C036 

A9 

8D 
DO 

01 

21 
CD 

a 

LDA 

STA 
BNE 

#1 

HELPFL 

CLRCHR 

C038 

AD 

21 

a 

HELP 

LDA 

HELPFL 

C03B 
C03D 
C040 
C043 
C045 
C048 

E0 
20 

20 
FO 
20 
4C 

CD 
4B 
E4 
FB 
4B 
OA 

CO 

FF 

CO 
CO 

HELPLP 

BEQ 

JSR 

JSR 

BEQ 

JSR 

JMP 

MA1NLP 

SWAP2 

GETIN 

HELPLP 

SWAP2 

MA1NLP 

C04B 

20 

65 

CO 

SVVAP2 

JSR 

SWAPCO 

C04E 

20 

8D 

CO 

JSR 

SWAPIT 

Save  the  current  screen  as  a  help  screen  on 
Fl.  Recall  it  on  F7. 
Quit  on  left-arrow  key. 


SAVEHS  saves  a  help  screen; 

set  zero-page  pointers  to  color  memory 

for  two  screens 

swap  color  memory  tor  the  two  screens 

if  color  memory  overlaps,  print  error 

message 

set  zero-page  pointers  to  text  for  two 

screens 

swap  text  for  the  two  screens 

if  screen  memory  overlaps,  print  error 

message  and  leave 

to  indicate  help  screen  has  been  saved 

and  continue  by  clearing  screen 

HELP  recalls  a  help  screen. 

determine  whether  a  help  screen  has 

previously  been  saved 

no  help  screen  has  been  saved 

swap  in  the  help  screen 

wait  for  keypress  to  swap  in  normal  screen 

if  no  keypress 

swap  in  the  normal  screen 

and  continue 

Swap  primary  and  help  screens. 

set  zero-page  pointers  to  color  memory  for 

two  screens 

swap  color  memory  for  two  screens 
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C051 

20 

79 

CO 

JSR 

SWAPSC 

C054 

4C 

8D 

CO 

JMP 

swapp- 

C057 
C059 
C05C 
C05E 
C061 
C062 
C064 

AO 

B9 
FO 
20 
C8 
DO 
60 

00 

04 
06 
D2 

F5 

CI 
FF 

ERROR 
ERRLP 

EREXIT 

LDY 

LDA 

BEQ 

JSR 

INY 

BNE 

RTS 

ed 

ERRMSCY 

EREXIT 

CHROUT 

ERRLP 

C065 

A9 

00 

SWAPCO 

LDA 

»<COLBLl 

C067 
C069 
C06B 
C06D 

85 
AO 
84 
A9 

FB 
D8 
VC 
18 

STA 
LDY 
STY 
LDA 

ZP 

#>COLBLl 
ZP  +  1 
#<COLBL2 

C06F 
C071 
C073 
C075 

85 
AO 
84 
20 

FD 
3C 
FE 
BC 

CO 

STA 
LDY 
STY 
JSR 

ZP+2 
*>COLBL2 
ZP+3 
ONELES 

CQ78 

60 

RTS 

C079 

A9 

00 

SWAPSC 

LDA 

#<BLOCK1 

C07B 
C07D 

C07F 
C081 

85 
AO 
84 
A9 

FB 
04 

FC 
30 

STA 
LDY 
5TY 
LDA 

ZP 

#>BLOCKl 
ZP+1 
#<BLOCK2 

C083 
C085 
C087 
C089 

85 
AO 
84 
20 

FD 
38 
FE 

BC 

CO 

5TA 
LDY 

STY 
JSR 

ZP+2 
*>BLOCK2 
ZP+3 
ONELES 

C08C    60 


RTS 


:  set  zero-page  pointers  to  text  for  two 

;  screens 

;  swap  text  for  two  screens  and  RTS 

;  Error  message  for  overlap  of  two  memory 

:  blocks. 

;  as  an  index 

;  prim  the  message  character  by  character 

;  exit  on  a  zero  byte 

;  print  a  character 

;  for  next  character 

;  branch  always 


,  SWAPCO  iniHali7.es  ZP  to  screen  1  color 
:  and  ZP+2  to  screen  2  color. 
;  store  low  and  high  bytes  of  screen  1  color 
;  toZP 


;  store  low  and  high  bytes  of  screen  2  color  to 
;  zero  page  also 


make  sure  screen  at  ZP  is  lower  in  memory 
than  the  one  at  ZP+2 


SWAPSC  initializes  ZP  to  screen  1  text  and 

ZP+2  to  screen  2  text. 

store  low  and  high  bytes  of  screen  1  text 

toZP 


;  store  low  and  high  bytes  of  screen  2  text  to 
;  zero  page  also 


:  make  sure  screen  at  ZP  is  lower  in  memory 
;  than  the  one  at  ZP+2 


C08D 

20 

El     C 

0    SWAPIT 

JSR 

OVRLAP 

C090 
C092 

90 
60 

01 

BCC 
RTS 

INITSP 

C093 

C095 

A0 

Bl 

00 
FB 

INITSP 
SWAPLP 

LDY 
LDA 

#0 
(ZP),Y 

C097      AA 
C098      Bl     FD 


TAX 

LDA      (ZP  +  2),Y 


;  SWAPIT  swaps  NUMBER  bytes  at  the 
;  addresses  pointed  to  by  ZP  and  ZP+2. 
;  check  for  overlapping  blocks  and  store 
;  number  in  COUNTR 
;  memory  blocks  don't  overlap,  so  continue 
;  memory  blocks  overlap,  so  return  and 
;  print  error  message 

;  as  an  index  in  SWAPLP 

;  read  a  byte  from  first  block 

;  On  the  128,  use  INDFET  in  place  of  the 

;  previous  instruction 

;  to  swap  memory  from  bank  to  bank 

;  see  MVU128  and  MOVEDN  for  details 

;  store  it  in  .X 

;  read  a  byte  from  second  block  (if  needed, 

;  use  INDFET  on  128) 
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C09A    91     FB 


STA       (ZP),Y 


C09C 

BA 

TXA 

C09D 

91 

FD 

STA 

(ZP+2),Y 

C09F 

E6 

FB 

INC 

ZP 

C0A1 

DO 

OS 

BNE 

INCBU 

C0A3 

E6 

FC 

INC 

ZP+1 

C0A5 

E6 

FD 

INCBL2 

INC 

ZP+2 

C0A7 

DO 

02 

BNE 

LENCHK 

C0A9 

E6 

FE 

INC 

ZP+3 

COAB 

CE 

ID   CI 

IENCHK 

DEC 

COUNTR 

COAE 

DO 

E5 

BNE 

SWAPLP 

COBO 

CE 

IE    CI 

DEC 

COUNTR+1 

COB3 

AD 

IE    CI 

LDA 

COUNTR+1 

C0B6 

C9 

FF 

CMP 

#255 

COB8 

DO 

DB 

BNE 

SWAPLP 

COBA 

18 

CLC 

COBB 

6(1 

RTS 

COBC 

AS 

FE 

ONELES 

LDA 

ZP+3 

COBE 

C5 

FC 

CMP 

ZP+1 

COCO 

ro 

03 

BEQ 

LOWCMP 

COC2 

90 

08 

BCC 

FLIPZP 

C0C4 

611 

RTS 

C0C5 

AS 

FD 

LOWCMP 

LDA 

ZP+2 

C0C7 

C5 

FB 

CMP 

ZP 

CUC9 

90 

01 

BCC 

FLIPZP 

COCB 

60 

RTS 

COCC 

AS 

FB 

FLIPZP 

LDA 

ZP 

COCE 

48 

PHA 

COCF 

as 

FD 

LDA 

ZP+2 

C0D1 

85 

FB 

STA 

ZP 

C0D3 

68 

PLA 

C0D4 

85 

FD 

STA 

ZP+2 

C0D6 

A5 

FI- 

LDA 

ZP+1 

C0D8 

48 

PHA 

C0D9 

AS 

FE 

LDA 

ZP+3 

CODE 

85 

FC 

STA 

ZP+1 

CODD 

68 

PLA 

CODE 

85 

FE 

STA 

ZP+3 

COEO 

60 

RTS 

SWAPIT 


;  store  byle  from  BLOCK2  into  BLOCK1 

;  On  the  128,  use  INDSTA  in  place  of  tbe 

;  previous  instruction 

;  to  swap  memory  from  bank  to  bank 

;  see  MVU128  and  MOVE.DN  for  details 

;  put  byte  from  BLOCK),  in  .A 

;  store  byte  from  BLOCK1  into  BLOCK2  (if 

;  needed,  INDSTA  on  128) 

;  increment  low  byte  of  BLOCK1  and 

;BLOCK2 

;  increment  BLOCK2  by  1 

;  increment  high  byte  of  BLOCKl 

;  increment  low  byte  of  BLOCK2 

;  low  byte  has  yet  to  turn  over,  so  skip 

;  forward 

;  increment  high  byte  of  BLOCK2 

;  decrement  low  byte  of  counter 

;  if  not  equal,  more  remains,  so  continue 

;  swapping  bytes 

;  otherwise,  decrement  high  byte  of  counter 

;  keep  swapping  until  last  page  of  buffer 

;  has  been  swapped 

;  high  byte  goes  from  0  to  255  on  last  page 

;  we've  yet  to  reach  the  last  page,  so 

;  continue  switching  bytes 


;  Make  address  pointed  to  by  ZP  less  than 

;  address  pointed  to  by  ZP+2. 

;  high  byte  of  screen  2  (text  or  color) 

;  compare  with  high  byte  of  screen  1  (text 

;  or  color) 

;  if  equal,  compare  low  bytes 

;  screen  at  ZP  is  higher  in  memory,  so  flip 

;  them 

;  no  flip  necessary  based  on  high  bytes 

;  alone 

;  low  byte  of  screen  2  (text  or  color) 

:  compare  with  low  byte  of  screen  2  (text  or 

;  color) 

;  screen  at  ZF  is  higher,  so  flip  zero-page 

;  pointers 

;  no  flip  necessary 

;  Switch  ZP  pointers,  low  bytes  first. 

;  get  low  byte  for  first  screen  (text  or  color) 

;  store  it  on  the  stack 

;  get  low  byte  for  second  screen  (text  or 

;  color) 

;  store  as  low  byte  for  first  screen 

;  restore  low  byte  for  first  screen 

;  store  as  low  byte  for  second  screen 

;  now  do  the  same  for  the  high  bytes 


;  Determine  whether  memory  blocks 
;  overlap  and  store  number  of  bytes 
;  in  COUNTR. 


517 


SWAPIT 


COEl     AD  IB    CI     OVRLAP      LDA      NUMBER 
C0E4    8D    ID    CI  STA       COUNTR 

G0E7     18  CLC 


C0E8 

65 

FB 

ADC     ZP 

COEA 

8D 

IF 

a 

STA       SUM 

COED 

AA 

TAX 

COEE 

AD 

1C 

CI 

LDA      NUMBER +  1 

C0F1 

8D 

IE 

Cl 

STA       COUNTR +1 

C0F4 

65 

FC 

ADC      ZP+1 

C0F6 

8D 

20 

CI 

STA       SUM+1 

C0F9 

C5 

re 

CMP      ZP+3 

COFB 

90 

06 

BCC      NOTOVR 

COFD 

8A 

TXA 

COFE 

C5 

FD 

CMP     ZP+2 

aoo 

90 

01 

BCC      NOTOVR 

C102 

38 

SEC 

C103 

60 

NOTOVR 

RTS 

C104 

42 

4C 

4F 

ERRMSG 

.ASC      "BLOCK  1  AP 

aiA 

00 

.BYTE    0 

CUB 

E8 

03 

NUMBER 

.WORD  1000 

cud 

00 

00 

COUNTR 

.WORD0 

C11F 

00 

00 

SUM 

.WORD0 

C121     00 


HELPFL 


.BYTE    0 


;  store  low  byte  of  number  of  bytes  to  swap 

;  add  this  to  the  low  byte  of  the  lower 
;  block 

;  and  atore  low  byte  result  in  SUM 
;  save  low  byte  result  in  .X 
;  store  high  byte  also 

;  add  thi9  to  the  high  byte  of  lower  block 

;  and  again  store  high-byte  result 

:  compare  high-byte  result  with  high  byte 

;  of  second  block 

•  if  second-block  high  byte  is  greater, 

;  there's  no  overlap 

;  otherwise,  check  the  low  bytes;  get  low 

;  byte  of  addition  from  JC 

;  compare  with  low  byte  of  second  block 

;  if  second-block  low  byte  is  greater,  there's 

;  no  overlap 

;  set  the  carry  flag  to  indicate  overlapping 

;  memory  blocks 


;  terminator  byte 

;  number  of  bytes  to  swap 

:  counter  for  the  remaining  number  of  bytes 

;  to  swap 

;  two  bytes  for  sum  of  BLOCK1  and 

i  NUMBER 

;  help  screen  flag  (1  =  help  screen  in 

:  memory) 


See  also  MOVEDN,  MVU128,  MVU64. 
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Name 

Switch  uppercase  to  lowercase  and  vice  versa 

Description 

SWITCH  converts  the  character  value  in  the  accumulator  to 
lowercase  if  it  was  uppercase,  or  to  uppercase  if  it  was  lower- 
case. One  application  for  such  a  routine  is  in  a  word  processor 
program. 

Prototype 

1.  Check  the  character  value  to  see  whether  it  lies  within  one 
of  the  three  valid  ranges  for  alphabetic  characters:  decimal 
193-218,  97-122,  or  65-90. 

2.  If  it  doesn't,  exit  the  routine,  leaving  .A  intact. 

3.  If  the  character  in  .A  is  within  one  of  the  three  ranges,  shift 
left  with  ASL,  moving  bit  7  into  the  carry  flag. 

4.  If  carry  is  clear,  the  character  is  either  in  the  range  97-122 
or  65-90.  In  this  situation,  flip  bit  6,  changing  the  case.  (Bit 
6  will  later  shift  right  to  become  bit  5.)  Otherwise,  go  to 
step  5  because  the  character  is  in  the  range  193-218. 

5.  Perform  an  LSR  and  then  end  the  routine  with  RTS. 

Explanation 

In  the  example  program,  a  character  is  fetched  from  the  key- 
board. If  it's  a  letter,  its  case  is  changed  with  the  subroutine 
SWITCH.  The  character  is  then  printed  and  another  keypress 
accepted.  To  exit  the  program,  press  RETURN. 

Once  it  has  been  established  that  the  accumulator  con- 
tains a  letter  between  A  and  Z,  SWITCH  uses  the  character's 
bit  pattern  to  carry  out  the  actual  case  switching.  Take  a  look 
at  the  bit  patterns  of  characters  within  the  three  ASCII  ranges 
before  and  after  case  switching: 

Before:  After: 


Range 

Bit  Pattern 

Range 

Bit  Pattern 

Lowercase 

65-90 

%010x  xxxx 

97-122 

%011x  xxxx 

Uppercase  1 

97-122 

%0\\xxxxx 

65-90 

%010x  xxxx 

Uppercase  2 

192-218 

%\\0xxxxx 

65-90 

%010x  xxxx 

Within  the  bit  pattern,  a  0  designates  bits  that  are  always 
off,  and  a  1,  bits  that  are  always  on.  An  x  represents  bits  that 
can  be  on  or  off. 

Converting  a  character  in  the  range  65-90  to  the  range 
97-122,  or  vice  versa,  requires  that  you  flip  bit  5.  To  go  from 
the  range  192-218  to  65-90,  turn  off  bit  7. 
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This  is  exactly  what  occurs  within  FLIPIT.  The  bits  of  the 
letter  character  are  shifted  one  position  to  the  left  with  ASL.  If 
the  carry  flag  is  set,  the  character  is  in  the  range  192-218.  At 
this  point,  it's  simply  a  matter  of  restoring  it  to  its  original  bit 
pattern,  but  with  bit  7  off.  This  is  accomplished  with  LSR, 
which  always  shifts  a  zero  into  bit  7. 

If  carry  is  clear,  the  character  must  be  in  the  range  65-90 
or  97-122.  In  this  case,  bit  6  is  flipped  (it  was  previously  bit 
5),  and  an  LSR  is  performed,  moving  bit  6  back  to  its  proper 
position. 

Note:  SWITCH  can  easily  be  modified  to  narrow  the 
range  of  characters  converted.  For  instance,  to  convert  only  a, 
b,  and  c  from  the  lowercase  set  to  uppercase,  change  RANGE2 
to 

RANGE2  .BYTE  219,123,68 

Also,  notice  that  SWITCH  uses  the  Y  register.  If  you  ac- 
cess this  routine  from  within  a  loop  indexed  by  .Y,  be  sure  to 
save  this  register  to  a  temporary  location  first  and  restore  it 
upon  returning. 

Routine 


cooo 

CHROUT 

= 

65490 

cooo 

GETIN 

— 

65508 

cooo 
cooo 

DSFTCM 
ESFTCM 

- 

8 
9 

cooo 

A9 

0E 

LDA 

#14 

C002 

20 

D2 

FF 

ISR 

CHROUT 

coos 

A9 

08 

LDA 

#DSFTCM 

C007 

20 

D2 

EF 

|SR 

CHROUT 

C00A 

20 

E4 

FF 

WAn 

JSR 

GETIN 

C00D 

FO 

FB 

BEQ 

WAIT 

C00F 

20 

IF 

GO 

ISR 

SWITCH 

C012 

20 

D2 

FF 

)SR 

CHROUT 

C015 

C9 

0D 

CMP 

#13 

CQ17 

DO 

Fl 

BNE 

WAn 

C019 

A9 

09 

QUIT 

LDA 

#  ESFTCM 

C01B 

20 

D2 

TO 

JSR 

CHROUT 

C01E 

60 

RTS 

COIF 

A0 

03 

SWITCH 

LDY 

#3 

C021 

88 

LOOP 

DEY 

C022 

M 

10 

BMI 

EXIT 

C024 

D9 

35 

CO 

CMP 

RANGE1/Y 

C027 

90 

0B 

BCC 

EXIT 

COM 

D9 

38 

CO 

CMP 

RANGE2.Y 

C02C 

BO 

F3 

BCS 

LOOP 

C02E    0A 


FLIPIT 


ASL 


i  DSFTCM  —  II  on  the  128 
i  ESFTCM  =  12  on  the  128 

:  Switch  case  of  input,  quit  on  RETURN. 
;  set  for  lowercase  mode 

:  disable  SHIFT/Cammodore  key 

j  gel  a  character 

:  if  no  character,  then  wait 

;  switch  case  of  input 

;  print  it 

;  is  it  RETURN? 

;  no,  so  get  another  character 

;  enable  SHlhT  /Commodore  key 


;  Switch  case  of  ASCII  character  in  .A. 

;  index  to  table 

;  index  goo  2-1-0 

;  if  finished  checking  ranges 

;  character  is  less  than  RANGE1,  so  exit 

;  character  is  higher  than  RANGE2,  so  try 
;  next  range 

;  character  is  in  a  range,  shift  bit  7  into 
;  carry 
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C02F  BO  02 
C031  49  40 
C033     4A 


BCS       FIXTT 
EOR      #64 
LSR 


TOOT 

C034     60  EXIT  RTS 

C033     CI    61     41     RANGE1  .BYTE    193.97,65 

C038     DB    7B    5B    RANGE2  .BYTE    219,123,91 

See  also  CNVERT,  MIXLOW,  MIXUPP. 


;  character  is  >=128 

;  flip  MI  6 

,-  restore  it  (bit  7  becomes  0,  so  193-218 

;  convert*  to  65-90) 


;  lower  delimiter  of  each  range 
;  upper  delimiter-- 1  of  each  range 
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Name 

Convert  characters  from  true  ASCII  to  Commodore  ASCII 

Description 

When  you're  using  a  modem  to  telecommunicate,  the  charac- 
ters received  over  the  telephone  line  will  generally  be  true,  or 
standard,  ASCII.  Commodore  computers  use  a  slightly  dif- 
ferent character  code  standard  called  Commodore  ASCII.  So, 
any  terminal  program  you  write  on  the  64  or  128  should  in- 
clude a  routine  like  TASCAS  for  converting  character  codes 
from  true  ASCII  to  Commodore  ASCII.  Often  it  will  be  nec- 
essary to  perform  this  character  conversion  from  within  a  loop 
indexed  by  either  the  X  or  Y  register.  Because  of  this, 
TASCAS  was  designed  to  leave  both  these  registers  untouched. 

Prototype 

1.  AND  the  character  code  value  in  A  with  127  to  insure  that 
it's  in  the  range  0-127. 

2.  Check  the  value  to  see  whether  it  lies  within  true  ASCII 
uppercase  range  (65-90). 

3.  If  it's  less  than  65,  then  RTS,  leaving  A  intact. 

4.  If  the  value  in  A  is  within  the  range  65-90,  go  to  step  7. 

5.  Otherwise,  check  the  character  value  to  see  whether  it  falls 
within  true  ASCII  lowercase  range  (97-122). 

6.  If  it's  more  or  less  than  the  range,  then  RTS,  again  leaving 
A  intact 

7.  Flip  bit  5  and  RTS. 

Explanation 

In  the  example  program,  individual  bytes  representing  true 
ASCII  characters  are  fetched  from  BUFFER  and  are  then 
printed;  the  conversion  is  done  with  TASCAS,  and  the  result- 
ing Commodore  ASCII  value  is  printed.  This  process  continues 
until  a  zero  byte  is  read  in. 

TASCAS  takes  a  true  ASCII  value  in  A  and  returns  an 
equivalent  Commodore  ASCII  value  (also  in  .A). 

Conversion  from  true  ASCII  to  Commodore  ASCII  by  the 
routine  is  a  fairly  simple  matter  because  of  the  similarities 
among  the  two  character  sets.  True  ASCII  values  he  in  a  range 
0-127.  None  of  the  graphics  characters  present  in  the  upper 
half  of  the  Commodore  set  are  available  in  true  ASCII. 

Both  sets  are  identical  in  the  range  0-127,  except  for  one 
thing:  Uppercase  and  lowercase  letters  are  reversed.  This  dif- 
ference is  easily  handled  within  TASCAS  by  flipping  bit  5  of 
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the  character  value  using  the  EOR  command.  If  you  EOR  with 
the  number  32,  you  effectively  add  (or  subtract)  32,  depending 
on  whether  bit  5  is  clear  or  set. 


Routine 

cooo 
cooo 


CHROUT       =  65490 

UNPRT         -  48589 


COOO  A0  00 

CO02  B9  45  CO    LOOP 

C005  F0  22 

C007  8D  4D  CO 

COOA  8C  4E  CO 

C00D  20  2A  CO 

COIO  A9  20 

C012  20  D2  FF 

C015  AD  4D  CO 

C018  20  30  CO 


C01B  20  2A    CO 

C01E  A9  OD 

C020  20  D2    FF 

C023  AC  4E     CO 

C026  C8 

C027  DO  D9 

C029  60 


Qurr 


LDY 

LDA 

BEQ 

STA 

STY 

JSR 

LDA 

JSR 

LDA 

JSR 

JSR 
LDA 
JSR 
LDY 

iny 

BNE 
RTS 


C02A    AA 

C02B     A9    00 
C02D   4C   CD  BD 


NUMOUT    TAX 

LDA 
JMP 


#0 

BUFFER.Y 

QUIT 

TEMPA 

TEMPY 

NUMOUT 

«32 

CHROUT 

TEMPA 

TASCAS 

NUMOUT 

«13 

CHROUT 

TEMPY 

LOOP 


#0 
LINPRT 


C030  29  7F 

C032  C9  41 

C034  90  OE 

C036  C9  SB 

C038  90  08 


C03A  C9  61 

C03C  90  06 

C03E  C9  7B 

C040  BO  02 


C042     49     20 
C044     60 


TASCAS 


LOWCAS 


FLIPIT 
EXIT 


AND  #127 

CMP  #65 

BCC  EXIT 

CMP  #91 

BCC  FLIPrr 


CMP  #97 

BCC  EXIT 

CMP  #123 

BCS  EXIT 


EOR      #32 
RTS 


;  LINPRT  =  36402  on  the  128 

;  Get  a  number  representing  a  true  ASCII 
;  character  from  buffer,  and  print 
;  the  number.  Convert  the  character  to 
;  Commodore  ASCII,  and  print  its  value. 

j  get  a  true  ASCII  character 

;  save  .A 

;  save  .Y  (since  LINPRT  corrupts  ,Y) 

:  print  the  true  ASCII  value 

;  print  SPACE 

;  restore  .A 

;  convert  .A  from  true  ASCII  to  Commodore 

;  ASCII 

;  print  the  Commodore  ASCII  value 

;  print  RETURN 

;  restore  .Y 

;  for  next  value 

I  and  gel  another  character 

:  low  byte  of  true  ASCII  value  (see 

:  NUMOUT) 

;  high  byte 

;  print  the  ASCII  value 

,  Convert  true  ASCII  in  .A  to  Commodore 

;  ASCII  in  .A. 

;  value  must  be  0-127 

;  is  it  less  than  uppercase  A? 

;  yes,  so  leave  as  is 

;  is  it  greater  than  uppercase  Z.' 

;  no,  so  in  range  65-90,  switch  to  lowercase. 

;  Otherwise,  character  is  in  range  91-127. 

;  First  check  for  lowercase. 

;  is  it  less  than  lowercase  a? 

;  yes,  so  leave  it  as  is 

;  is  it  greater  than  lowercase  z? 

:  yes,  so  leave  as  is 

;  Character  is  in  lowercase  range  97-122,  bo 

;  switch  it  to  uppercase. 

;  change  uppercase  to  lowercase  or  vice 

:  versa 


;  Buffer  of  true  ASCII  character  bytes. 
C045     42     5F     60     BUFFER         .BYTE    66.95,96,33.97.122.90.0 
C04D   00  TEMPA         .BYTE0 ,  .A  storage 

C04E    00  TEMPY  .BYTE0  J  .Y  storage 

See  also  CASSCR,  CASTAS,  CNVERT,  SCRCAS. 


TOD1DL 


Name 

Time-of-day  (TOD)  dock  1  delay 
Description 

This  timer  routine  is  based  on  the  first  time-of-day  (TOD) 
clock.  TOD1DL  causes  delays  within  the  full  range  of  this 
clock,  from  1/10  second  up  to  24  hours. 

Prototype 

1.  Before  entering  this  routine,  define  the  delay  time  in  BCD 
(binary-coded  decimal)  format  as  DELAYT  in  the  variables 
at  the  end  of  the  program. 

2.  Using  TOD1ST,  set  TOD  clock  1  to  zero  (00:00:00.0  a.m.). 

3.  Compare  the  TOD  clock  1  reading  with  the  delay  specified. 
Begin  with  the  hours  byte,  to  stop  the  clock  from  updating, 
and  work  down  through  the  tenths-of-seconds  byte. 

4.  If,  before  comparing  the  entire  reading,  a  byte  in  the  clock 
reading  is  lower  than  the  corresponding  byte  in  the  delay 
time,  read  the  tenths-of-seconds  place  to  restart  the  clock 
and  jump  to  step  3. 

5.  When  a  byte  from  the  TOD  clock  reading  exceeds  the 
respective  delay-time  byte,  return  from  the  routine. 

Explanation 

The  example  program  demonstrates  how  this  routine  might  be 
incorporated  into  your  own  programs.  It  prints  a  message  to 
the  screen  and  allows  the  user  12  seconds  to  read  it— as  timed 
by  TOD1DL — before  clearing  the  screen. 

One  way  to  achieve  the  specified  delay  here  would  be  to 
add  the  delay  time  to  the  current  clock  time  and  then  wait  for 
the  clock  to  reach  this  total.  But  since  the  TOD  clock  keeps 
time  in  BCD  format,  and  digits  within  the  clock  turn  over  on 
different  values,  this  approach  would  become  quite  involved. 
BCD  arithmetic  counts  from  0  through  99,  while  clocks  count 
from  00  through  59,  except  the  hours  (01-12).  For  example, 
adding  three  minutes  to  3:58  should  result  in  4:01,  not  3:61. 

An  easier  way  to  go  about  this  is  to  start  the  clock  at  mid- 
night and  then  directly  compare  the  delay  time  with  the  cur- 
rent TOD  time.  This  is  the  method  used  here. 

At  the  outset  of  TOD1DL,  each  byte  within  TOD  clock  1 
is  set  to  zero,  beginning  with  the  hours  byte.  Because  of  its 
latching  mechanism,  the  clock  doesn't  actually  start  updating 
until  you  write  to  the  tenths-of-seconds  byte  (see  TOD2ST). 

Once  all  bytes  within  the  clock  are  set  to  zero,  a  byte-by- 
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byte  comparison  loop  is  undertaken.  The  routine  concludes 
when  the  clock,  time  exceeds  the  delay  time. 

The  delay  time,  DELAYT,  is  formatted  exactly  like 
TIMSET.  This  allows  you  to  cause  delays  of  up  to  24  hours,  al- 
though we're  not  sure  why  you'd  ever  need  such  a  long  delay. 
But  if  you  do  a  delay  longer  than  1 1  hours,  59  minutes,  set  the 
high  bit  in  the  hours  place  when  you  define  DELAYT,  just  as 
you  would  if  you  were  setting  a  TOD  clock  (again,  see 
TOD2ST  for  details). 

Note:  Although  based  on  the  first  TOD  clock,  the  routine 
could  be  modified  with  tittle  effort  to  use  the  second  TOD 
clock.  Just  replace  TODTN1  with  TODTN2,  and  TOD1ST  with 
TOD2ST,  throughout  the  routine. 


Routine 


cooo 

TODTN1 

= 

56328 

cooo 

TODTN2 

« 

56584 

cooo 

CHROUT 

= 

65490 

cooo 

AO 

00 

LDY 

«0 

C002 

B9 

4D 

CO 

PRTLOP 

LDA 

MF.SSACY 

COOS 

FO 

06 

BEQ 

PRTEND 

C007 

20 

02 

FF 

ISR 

CHROUT 

COOA 

C8 

1NY 

COOB 

DO 

F5 

BNE 

PRTLOP 

COOD 

20 

13 

CO 

PRTEND 

ISR 

TOD1DL 

C010 

4C 

31 

CO 

)MP 

CLRCHR 

C013     20     36     CO    TOD1DL       JSR        TOD15T 


C016 
C018 

A0    00 
A2    03 

COMPAR 

LDY 
LDX 

#0 

#3 

C01A 

BD  08 

DC  CMPLOP 

LDA 

TODTNIA 

C01D 
C020 
C022 

D9    49 

F0     08 
B0     0C 

CO 

CMP 
BEQ 
BCS 

DELAYT.Y 

NEXTPL 
FINIS 

C024 
C027 

AD  08 
4C    16 

DC 

CO 

LDA 
JMP 

TODTN1 
COMPAR 

C02A 
C02B 

C8 
CA 

NEXTPL 

INY 
DEX 

C02C 
C02E 
C030 

10     EC 
30     E6 
60 

FINIS 

BPL 

HMJ 

RTS 

CMPLOP 
COMPAR 

;  time-of-day  clock  1 — tenths-of-seconds 
;  register 

;  time-of-day  clock  2 — tenths-of-seconds 
;  register 

;  Allow  12  seconds  to  read  a  message  using 

;  TOD  dock  1  delay. 

;  first  print  a  message 

;  get  a  character  from  the  message  string 

;  quit  printing  on  a  zero  byte 

;  print  the  character 

j  for  nexl  character 

;  branch  always 

;  cause  a  TOD  clock  delay 

;  clear  the  screen  and  RTS 

;  Set  up  a  TOD  clock  1  delay. 

;  set  TOD  clock  1  to  all  zeros 

;  Now  wait  for  current  reading  to  agree 

i  with  DELAYT. 

;  as  an  index  for  DELAYT 

J  as  an  index  for  hrs.,  mins.,  sees.,  tenths  in 

;  TOD  clock 

;  read  TOD  dock  1— hrs.,  mins.,  sees., 

;  tenths 

;  compare  with  delay 

;  If  equal,  check  the  next  byte 

;  if  TOD  byte  is  greater,  time's  expired,  so 

;  return 

;  read  tenths  place  to  update  clock 

;  if  DELAYT  is  greater,  carry  is  dear,  so 

;  continue  comparing 

:  for  next  DELAYT  position 

;  for  next  dock  position  (mins.,  sees., 

tenths) 

;  do  all  four  bytes 

,-  do  it  all  again  if  time  hasn't  expired 

;  we're  finished 
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C031 

A9    93 

CLRCHR 

LDA 

#147 

C033 

4C    D2    FF 

JMP 

CHROUT 

C036     AO    00 
C038     A2    03 


TOD1ST 


C03A  B9    45     CO    SETLOP 

C03D  9D    08     DC 

C040  C8 

C041  CA 

C042  10     F6 

C044  60 


LDY       #0 
LDX       #3 

LDA      TIMSET,Y 

STA       TODTN1.X 

INY 

DEX 

BPL       SETLOP 

RTS 


;  time's  up,  so  clear  the  screen 
;  .in..!  RTS 

;  Set  TOD  clock  1  (or  2). 

;  Replace  TODTN1  with  TODTN2  to  set 

;  TOD  clock  2. 

;  as  an  index  in  TIMSET 

;  as  an  index  tor  his,  mins.,  sees.,  tenths  in 

; TODTN1 

;  read  in  the  time  to  sel 

;  store  to  clock — hrs.  first 

;  for  next  byte  In  TIMSET 

;  for  next  clock  byte  (mins.,  sees,  tenths) 

;  set  all  four  bytes  in  clock 


C04S  00  00     00     TIMSET         .BYTE  0.0,0,0  \  hrs..  mins.,  sees.,  tenths  to  set  dock 

„„  ,  i  ."  (00.00.00.0  a.m.) 

™n  ot  to     II     EI^aT.       ?5?  $?'$0'*12-*0       ^elay  in  BCD  hrs.,  mins..  sees.,  and  tenths 

™?  II  59     &     MESSAG       .ASC  '!CLR|YOU  HAVE  12  SECONDS  TO  READ  THIS. " 

C06F  00  BYTE  0  ;  string  terminator 

See  also  ALARM2,  INTCLK,  TOD1RD,  TOD2PR,  TOD2ST,  BYT1DL, 
BYT2DL,  INTDEL,  JIFDEL,  KEYDEL. 
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Name 

Read  a  time-of-day  (TOD)  clock 

Description 

This  routine  allows  you  to  read  either  time-of-day  clock.  It's 
currentiy  set  up  to  read  the  first  TOD  clock,  the  one  in  CIA  1. 
But  by  substituting  TODTN2  for  TODTN1  in  the  routine,  the 
second  TOD  clock  (in  CIA  2)  can  be  read.  In  such  instances, 
TOD2RD  would  be  a  more  appropriate  name  for  the  routine. 

Prototype 

1.  Set  the  Y  register,  which  serves  as  an  index  into  the  buffer 
holding  the  current  clock  reading  (BUFFER),  to  0.  The  X 
register  should  be  initialized  to  3  so  that  the  hours  place  is 
read  first. 

2.  In  RDLOOP,  read  each  byte — either  hours,  minutes,  sec- 
onds, or  tenths  of  seconds — from  one  of  the  TOD  clocks 
and  store  it  into  BUFFER. 

Explanation 

The  TOD  clocks  have  a  latching  function  which  prevents  them 
from  updating  anytime  you  read  or  write  to  them,  provided 
you  begin  with  the  hours  place  and  end  with  the  tenths-of- 
seconds  place.  This  mechanism  is  described  more  thoroughly 
under  entry  TOD2ST,  where  a  TOD  clock  is  set  to  a  specified 
time. 

At  any  rate,  the  important  point  for  this  routine  is  that 
you  must  read  the  TOD  clock  from  the  hours  place  to  the 
tenths-of-seconds  place.  Reading  the  hours  place  first  stops  the 
clock  from  updating.  Only  when  you  read  (or  write  to)  the 
tenths-of-seconds  place  will  the  clock  continue  updating. 

The  time  read  in  from  a  TOD  clock,  whether  it's  clock  1 
or  2,  is  in  a  binary-coded  decimal  format.  This  reading  is 
stored  here  in  BUFFER  as  a  four-byte  number,  just  as  it  ap- 
pears in  the  clock.  Each  half-byte,  or  hexadecimal  digit,  ac- 
tually represents  a  decimal  digit  in  the  clock  reading. 

For  example,  if  the  dock  reading  in  BUFFER  were 
$91,$49,$32,$04,  the  time  would  be  11:49:32.4  p.m.  (The  high 
bit  in  the  hours  byte  serves  as  an  a.m./p.m.  flag.) 
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Routine 

cooo 

TODTN1 

56328 

cooo 

TODTN2       - 

56584 

COOO     AO    00  TOD1RD      LDY      #0 

C002     A2    03  LDX       #3 

C0O4      BD   08     DC  RDLOOP      LDA      TODTNl.X 


C007 
COOA 
COOB 

99 
C8 
CA 

OF 

CO 

STA 
INY 
DEX 

BUFFER.Y 

COOC 
COOE 

10 
60 

F6 

BPL 
RTS 

RDLOOP 

COOF 

00 

00 

00 

BUFFER 

-BYTE 

0.0,0,0 

time-of-day  clock  1 — tenths-of-seconds 

register 

time-of-day  clock  2— tenths-of-seconds 


Read  TOD  clock  1  (or  2)  and  store  the 

reading  to  a  memory  buffer. 

Replace  TODTN1  with  TODTN2  to  read  in 

TOD  clock  2. 

as  an  index  for  buffer  position 

as  an  index  for  his.,  in  ins.,  sees.,  tenths 

read  the  TOD  clock— his.,  mins.,  sees., 

tenths 

store  to  buffer 

for  next  buffer  position 

for  next  clock  position  (mins.,  sees., 

tenths) 

read  four  bytes 


Storage  for  clock  reading.  Stored  in  BCD 

format  as 

hrs.,  mins.,  sees.,  and  tenths. 


See  also  ALARM2,  INTCLK,  TOD1DL,  TOD2PR,  TOD2ST. 
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Name 

Print  the  time-of-day  (TOD)  time 

Description 

TOD2PR  prints  the  current  reading  for  time-of-day  clock  2  in 
the  upper  left  corner  of  the  screen.  As  with  the  other  TOD 
clock  routines  presented  in  the  book,  the  remaining  TOD  clock 
can  be  used  instead.  In  this  case,  simply  replace  TODTN2  in 
the  routine  with  TODTN1.  If  you  like,  you  can  also  change  the 
name  of  the  routine  to  TOD1PR  to  indicate  that  TOD  clock  1 
is  being  printed. 

Prototype 

1.  Set  the  Y  register,  which  serves  to  index  the  screen  po- 
sition, to  zero.  The  X  register  is  initialized  to  3  so  that  the 
hours  byte  is  read  first. 

2.  In  PRTLOP,  read  a  byte — either  hours,  minutes,  seconds,  or 
tenths  of  seconds — from  one  of  the  two  TOD  clocks. 

3.  Shift  the  high  nybble  of  this  byte  into  its  low  nybble,  con- 
vert this  to  a  numeric  screen  code,  and  store  it  in  screen 
memory. 

4.  Mask  out  the  high  nybble  of  the  byte  taken  in  Step  2.  Con- 
vert the  remaining  low  nybble  to  a  screen  code  and  store  it 
to  the  screen. 

5.  For  the  tenths-of-seconds  byte,  only  the  low  nybble  is 
displayed. 

6.  After  each  half-byte  from  the  TOD  clock  has  been  po- 
sitioned on  the  screen  in  Steps  3,  4,  and  5,  store  the  screen 
code  for  a  colon  (or  for  a  decimal  following  the  seconds 
place). 

7.  When  PRTLOP  finishes,  skip  a  space  on  the  screen  and 
store  either  the  screen  code  for  P  (representing  p.m.)  or  A 
(for  a.m.)  in  screen  memory  depending  on  the  setting  of  bit 
7  of  the  hours  byte.  Then  return  from  the  routine. 

Explanation 

The  program  below  clears  the  screen,  then  jumps  to  TOD2PR 
to  display  the  current  time  setting  in  the  second  TOD  clock. 
Each  TOD  clock,  whether  it's  clock  1  or  2,  ceases  to  up- 
date as  soon  as  the  hours  byte  is  read  (or  written  to).  It  contin- 
ues updating  only  when  the  tenths-of-seconds  byte  is 
accessed.  (See  TOD2ST  for  details  on  this  latching  function.) 
For  this  reason,  you  should  always  read  these  clocks  from  the 
hours  place  down,  as  we've  done  here. 
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The  TOD  clocks  keep  time  in  binary-coded  format,  mak- 
ing conversion  of  the  clocks'  registers  to  screen  codes  rel- 
atively easy.  In  TOD2PR,  bytes  from  TOD  clock  2's  registers 
are  separated  into  half-bytes,  which  are  in  turn  converted  to 
screen  codes  and  displayed. 

To  make  the  display  more  readable,  a  colon  is  placed  be- 
tween the  digit  pairs  representing  the  hours,  minutes,  and  sec- 
onds place.  A  decimal  point  follows  the  seconds  place.  After 
all  digits  from  the  TOD  readout  are  displayed  on  the  screen, 
either  A  or  P  (for  a.m.  or  p.m.)  is  printed. 


Routine 


cooo 

TODTN2        = 

56584 

;  rime-of-day  clock  2 — tenths-of-seconds 
;  register 

cooo 

TODTNl        - 

56328 

;  rtme-of-day  clock  1 — tenths-of-seconds 
;  register 

cooo 

CHROUT      = 

65490 

cooo 

SCREEN 

1024 

;  first  text-screen  position 

cooo 

A9 

93 

CLRCHR 

LDA 

*147 

C002 

20 

D2 

FF 

ISR 

CHROUT 

C005 

4C 

08 

CO 

JMP 

TOD2PR 

C008 

A0 

00 

TOD2PR 

LDY 

#0 

C00A 

A2 

03 

LDX 

#3 

COOC 

BO 

08 

DD  PRTLOP 

LDA 

TODTN2.X 

C00F 

E0 

00 

CPX 

#0 

con 

FO 

10 

BEQ 

LOWNIB 

C013 

48 

PHA 

C014 

29 

70 

AND 

#%OU10000 

C016 

4A 

LSR 

C017 

4A 

1.SR 

C018 

4A 

LSR 

COW 

4A 

LSR 

C01A 

09 

30 

ORA 

#48 

C01C 

99 

00 

04 

STA 

SCREEN,Y 

COIF 

C8 

INY 

C020 

68 

PLA 

C021 

29 

OF 

AND 

#$0F 

C023 

09 

30 

LOWNIB 

ORA 

#48 

C025 

99 

00 

04 

STA 

SCREEN.Y 

C028 

C8 

tNY 

C029 

E0 

01 

CPX 

#1 

C02B 

F0 

04 

BEQ 

POINT 

C02D 

90 

OF 

BCC 

NEXTPL 

C02F 

DO 

07 

BNE 

COLON 

C031 

A9 

2E 

POINT 

LDA 

#46 

C033 

99 

00 

04 

STA 

SCREEN.Y 

C036 

DO 

05 

BNE 

CONTLP 

;  Clear  the  screen,  read  and  print  TOD  clock 

;  2  (or  1). 

;  Replace  TODTN2  with  TODTN1  to  read 

;  and  print  TOD  clock  1. 

;  clear  the  screen 

;  print  TOD  dock  2  and  RTS 

;  Read  and  print  TOD  clock  2. 

;  initialize  index  to  screen  position 

;  Initialize  index  (or  h  -■,.,  mins.,  sees.,  and 

;  tenths 

;  read  the  TOD  clock— hrs.,  min.,  sec., 

;  tenths 

;  skip  tenths  high  nybble 

;  store  it  temporarily 

;  mask  out  low  nybble  and  bit  7 

;  shift  high  nybble  into  low  nybble 


;  effectively  add  48  to  put  in  numeric  range 

,-  POKE  it  to  the  screen 

;  next  screen  position 

;  restore  the  byte  and  get  second  digit  from 

;  low  nybble 

I  mask  out  high  nybble 

,-  add  48 

;  POKE  low  nybble's  digit  to  the  screen 

;  next  screen  position 

;  we  want  to  put  a  decimal  between 

;  seconds  and  tenths 

;  POKE  a  decimal  point 

;  don'l  print  the  last  colon 

;  we're  not  between  seconds  and  tenths 

;  screen  code  for  decimal  point 

;  POKE  a  decimal  point 

;  branch  always 
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COM 

A9 

3A 

COLON 

LDA 

#58 

;  POKE  a  colon  between  hrs.,  mina.,  and 

C03A 

99 

oo 

04 

STA 

SCREEN,Y 

;  sees. 

C03D 

CH 

CONTLP 

INY 

;  next  screen  position 

C03E 

CA 

NEXTPL 

DEX 

;  for  next  dock  position  luiin..  sec,  tenths) 

C03F 

10 

CB 

BPL 

PRTLOP 

;  read  and  print  four  bytes 

C041 

C8 

INY 

;  skip  a  space 

C042 

AD 

OB 

DD 

LDA 

TODTN2+3 

;  get  the  hoars  byte 

C045 

30 

06 

BMI 

PMFLAG 

;  bit  7  is  set  indicating  p.m. 

C047 

A9 

01 

LDA 

#1 

;  screen  code  for  A  (a.m.) 

C049 

99 

00 

04 

PRAMPM 

STA 

SCREEN.Y 

;  POKE  ,i,n!...' p.m.  flag  to  screen 

CMC 

60 

RTS 

C04D 

A9 

10 

PMFLAG 

LDA 

#16 

;  screen  code  for  P  (p.m.) 

C04F 

DO 

F8 

BNE 

PRAMPM 

;  print  it 

See  also  ALARM2,  INTCLK,  TOD1DL,  TOD1RD,  TOD2ST. 
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Name 

Set  a  time-of-day  (TOD)  clock 

Description 

Each  of  the  two  CIA  (complex  interface  adapter)  chips  in  the 
64  and  128  has  a  built-in  time-of-day  (TOD)  clock.  Unlike  the 
jiffy  clock,  which  is  maintained  via  software  (the  IRQ  interrupt 
service  routine),  the  TOD  clocks  are  updated  automatically  by 
CIA  hardware.  The  TOD  clocks  aren't  used  at  all  by  the 
operating  system,  and  neither  the  64  or  128  provide  any  facil- 
ities in  ROM  for  reading  or  setting  the  TOD  clocks. 

With  this  routine,  you  can  set  either  time-of-day  clock.  As 
it's  currently  written,  the  routine  sets  the  second  TOD  clock 
(the  clock  in  CIA  #2).  But  you  can  just  as  easily  have  it  set  the 
clock  in  CIA  #1  by  replacing  TODTN2  with  TODTN1  within 
the  routine.  In  fact,  this  has  been  done  elsewhere  in  the  book. 
See  entries  INTCLK  and  TOD1DL.  In  those  instances,  this 
routine  is  referred  to  as  TOD1ST. 

Prototype 

1.  Initialize  .Y  to  0  and  .X  to  3.  (The  Y  register  indexes  the 
buffer  containing  the  actual  time  to  be  set,  or  TIMSET,  at 
the  end  of  the  routine.  The  offset  into  the  TOD  clock  is  .X.) 

2.  In  a  loop,  read  the  four  bytes  containing  the  time  setting 
and  store  them  to  a  TOD  clock. 

Explanation 

When  you  set  either  TOD  clock,  you  must  begin  with  the 
hours  place.  This  is  because  the  TOD  clocks  have  a  built-in 
latching  function.  Each  clock  stops  updating  as  soon  as  you 
read  or  write  to  the  hours  place  and  doesn't  start  again  until 
you  write  to  the  tenths-of-seconds  place.  (The  internal  reg- 
isters for  either  clock,  where  the  actual  time  is  kept,  are  main- 
tained during  this  process.)  This  approach  prevents  the  TOD 
clock  from  advancing  while  you're  in  the  middle  of  reading  or 
setting  it. 

The  TOD  clocks  keep  time  in  a  binary-coded  decimal  for- 
mat. Each  hexadecimal  digit,  or  half  byte,  in  the  clocks'  reg- 
isters is  interpreted  as  a  decimal  digit.  So,  the  example  time 
listed  in  TIMSET  as  $06,$59,$59,$0  is  59  minutes  and  59  sec- 
onds after  six  o'clock.  In  this  case,  the  time  is  a.m.  The  high 
bit  in  the  hours  byte  serves  as  an  a.m./p.m.  flag.  To  set  the 
clock  to  a  p.m.  time,  simply  add  $80  to  the  hours  byte. 

In  this  routine,  writing  to  the  TOD  registers  sets  the  cur- 
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rent  time.  But  these  registers  can  also  be  used  to  store  an 
alarm  time  if  the  TOD  clock  is  used  as  an  alarm  clock.  Bit  7  of 
CIA  control  register  B  is  the  key  (CI2CRB  at  56591  for  TOD 
clock  2  or  CIACRB  at  56335  for  TOD  clock  1).  Normally,  this 
bit  is  zero.  But,  if  you  set  it  to  one,  the  time  assigned  to  the 
TOD  registers  is  taken  as  an  alarm  time.  Routine  ALARM2 
demonstrates  this  technique. 

Note:  The  TOD  clocks  have  a  bug  in  the  a.m. /p.m.  func- 
tion. The  normal  way  to  count  time  is  to  consider  noon  to  be 
12:00  p.m.  and  midnight  to  be  12:00  a.m.  Thus,  the  p.m.  hours 
count  from  12  to  1  to  2  to  3,  and  so  on,  up  to  11.  But  the  CIA 
chip  counts  p.m.  hours  from  1  to  12  (which  seems  more  logi- 
cal, although  it's  not  how  things  are  done  in  the  real  world). 

If  you  set  the  TOD  hours  byte  to  12,  on  the  next  hour,  the 
a.m./p.m.  flag  bit  will  reverse  state.  For  example,  if  you  set 
the  clock  to  noon  (12:00  p.m.),  it  will  read  1:00  a.m.  when  the 
clock  reaches  1:00  in  the  afternoon  (1:00  p.m.). 

You  can  get  around  this  problem,  though.  If  the  hours 
place  is  to  be  set  to  12,  just  flip  the  a.m./p.m.  flag  bit  before 
setting  the  clock.  So,  12:15:16.0  a.m.  would  be  entered  in 
TIMSET  as  .BYTE  $82,$15,$16,$0. 


Routine 

cooo 
cooo 


TODTN2       =         56S84 
TODTN1        -  5632B 


COOO 

cow 

All 

a: 

00 
03 

TOD2ST 

LDY 
LDX 

#0 
#3 

C004 
COOT 
COOA 
C00B 

B9 
C8 

CA 

or 

08 

CO 
DD 

SETIOP 

LDA 
STA 
1NY 
DEX 

TTM5ET,Y 
TODTN2.X 

cooc 

C00E 

10 

60 

F6 

BPL 
RTS 

SETLOP 

COOF 

06 

59 

59 

TIMSET 

.BYTE 

$06,$59,$59,$0 

time-of-day  clock  2 — tenths-of-seconds 

register 

time-of-day  dock  1 — tenths-of-seconds 

regisier 

Set  TOD  dock  2  (or  1). 

Replace  TODTN2  with  TODTN1  to  set  TOD 

dock  1. 

as  an  index  in  TIMSET 

as  an  index  for  hrsv  mins.,  sees.,  tenths  of 

sees,  in  TODTN2 

read  in  the  time  to  set 

store  to  dock — hrs.  first 

for  next  TIMSET  byte 

for  next  clock  byte  imin.,  sec,  tenths  of 

sees.) 

set  all  four  bytes  of  dock 


hr    min.,  sec.  tenths  to  set  dock 

(06.59.59.0  a.m.) 

For  p.m.,  add  in  $80  to  hour  setting. 


See  also  ALARM2,  INTCLK,  TOD1DL,  TOD1RD,  TOD2PR. 
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Name 

Set  the  text  color  using  CHR$ 

Description 

TXTCCH  outputs  the  appropriate  ASCII  color  value  with 
CHROUT.  This  approach  is  often  more  convenient  than  stor- 
ing a  color  value  in  the  text  color  register.  Text  colors  can  eas- 
ily be  switched  from  within  an  ASCII  string  definition,  as  the 
example  illustrates. 

Prototype 

1.  Set  up  a  string  containing  certain  ASCII  color  codes  at  the 
end  of  your  program. 

2.  JSR  to  a  string  printing  routine  and  RTS  (or  simply  JMP  to 
it). 

Explanation 

Each  character  of  the  message  HELLO  is  printed  in  a  different 
color  using  STRCPT. 

Routine 


cooo 

CHROUT 

= 

65490 

cooo 

ZP 

= 

251 

cooo 

20 

04 

CO 

TXTCCH 

JSR 

STRCPT 

C003 

60 

RTS 

C004 

A9 

IE 

STRCPT 

LDA 

#<STRLNC 

C006 

85 

T* 

STA 

ZP 

C008 

A9 

CO 

LDA 

#>STRING 

COOA 

85 

re 

STA 

ZP+1 

cooc 

A0 

00 

LDY 

#0 

COOE 

Bl 

FB 

3TRLOF 

LDA 

(ZP).Y 

C010 

F0 

OB 

BEQ 

FINISH 

C012 

20 

D2 

FF 

JSR 

CHROUT 

C015 

C8 

INY 

C016 

DC) 

F6 

BNE 

STRLOP 

C018 

E6 

FC 

INC 

ZP+1 

C01A 

4C 

0E 

CO 

JMP 

STRLOP 

C01D 

60 

FINISH 

RTS 

COIF. 

05 

48 

9C 

STRING 

.ASC 

"(VVHT)Hj: 

;  Print  each  character  of  the  string  HELLO  in 
;  a  different  color. 
;  print  the  string 


;  Custom  string  printing  routine 

;  low  byte  of  string 

;  store  it 

,-  high  byte  of  string 

I  store  it  also 

;  as  an  index 

;  load  each  character  from  string 

;  if  zero  byte,  then  finished 

;  print  character 

;  for  next  character 

;  if  not  more  than  256  bytes,  then  get  the 

;  next  character 

;  otherwise,  increment  high  byte  address 

;  pointer  to  the  string 

;  and  continue  printing 


WHT}HJPUR}E(YEL}L(BLK}LjLT  BLU]0" 
;  "HELLO"  in  colors 
C028    00  .BYTE  0  ;  ending  in  a  zero  byte 

See  also  BCKCOL,  BORCOL,  COLFIL,  TXTCOL. 
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Name 

Input  a  line  of  text  using  a  custom  routine 

Description 

TXTCIN  simulates  the  BASIC  ROM  routine  INLIN  for  accept- 
ing a  line  of  input  from  the  keyboard,  blinking  cursor  and  all. 
But  unlike  INLIN,  which  takes  an  entire  line  of  input  at  once, 
TXTCIN  screens  each  character  individually  before  adding  it 
to  the  input  line.  By  building  the  input  line  in  this  manner,  the 
many  documented  problems  associated  with  INLIN  (or  IN- 
PUT) can  be  avoided.  Thus,  commas  and  characters  like  the 
cursor  keys,  CLEAR,  HOME,  and  so  on,  can  be  handled 
appropriately  by  the  input  routine. 

Prototype 

1.  Enable  the  cursor. 

2.  Get  a  character  with  GETIN. 

3.  Compare  the  input  character  with  a  table  of  unwanted 
characters  (BADKEY). 

4.  If  the  character  is  found  in  the  table  of  unacceptable  charac- 
ters, go  to  step  2. 

5.  If  the  character  is  DELETE,  see  whether  we're  at  the  start  of 
the  buffer.  If  so,  go  to  step  2.  Otherwise,  decrement  the 
buffer  index  (.Y)  by  2. 

6.  If  the  character  is  RETURN,  print  it  while  the  cursor  is  off, 
add  a  zero  byte  to  the  buffer,  and  RTS. 

7.  If  the  input  character  is  not  RETURN,  see  whether  the  input 
line  has  reached  its  maximum  length  (MAXLEN).  If  it  has, 
wait  for  a  RETURN. 

8.  Otherwise,  add  the  character  to  the  input  buffer,  increment 
the  buffer  index  .Y,  print  the  character  (again,  while  the 
cursor  is  off),  and  go  to  step  2  for  another  character. 

Explanation 

The  main  routine  in  the  example  is  exactly  like  the  one  shown 
for  TXTINP.  A  line  of  input  is  first  retrieved,  in  this  case  by 
TXTCIN,  and  the  resulting  string  data  in  the  input  buffer 
printed  with  a  modified  STRCPT.  (STRCPT  is  shortened 
since  the  string  is  fewer  than  256  bytes  long.)  As  with 
TXTINP,  we  return  to  BASIC  by  jumping  through  the  error 
handler  vector  at  768. 

With  a  few  changes,  the  input  routine  TXTCIN  can  be 
customized  for  each  input  required  in  your  program.  First, 
POKE  MAXLEN  with  the  maximum  number  of  characters  al- 
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lowed  in  the  current  input  line.  Then,  update  the  table  of  un- 
wanted keys  (BADKEY)  and  total  the  number  of  these  keys. 
POKE  this  number,  less  1,  into  the  location  corresponding  to 
NUMBAD  ($C026,  in  this  example). 

Notice  how  the  cursor  is  dealt  with  within  the  routine. 
IRQ  interrupts  must  be  disabled  before  each  input  character  is 
printed  and  reenabled  afterward.  Otherwise,  the  cursor  may 
flash  during  normal  interrupt  handling.  If  this  happens,  the 
character  will  appear  on  the  screen  in  reverse  video. 

Cursor  handling  within  TXTCIN  is  certainly  tedious  and 
adds  a  number  of  bytes  to  the  routine.  If  a  cursor  is  not  re- 
quired in  your  program,  you  can  eliminate  all  instructions  nec- 
essary to  set  it  up  and  shorten  the  routine  considerably. 

Note:  The  use  of  the  vector  at  768  to  exit  the  routine  is  re- 
quired here  to  prevent  BASIC  from  taking  your  input  as  a  di- 
rect command.  See  TXTINP  for  more  discussion  of  this. 


Routine 


cooo 

CHROUT 

m 

65490 

cooo 

GETIN 

= 

65508 

cooo 

BUF 

— 

312 

cooo 

ZP 

YSAVE 
BLNSW 

- 

25! 
253 
204 

m 

BLNCT 
BLNON 

= 

205 
207 

cooo 

20 

1C 

CO 

JSR 

TXTCIN 

C003 

A9 

00 

STRCPT 

LDA 

#<BUF 

C005 

85 

FB 

STA 

ZP 

C007 

A0 

02 

LDY 

#>BUF 

C009 

M 

FC 

STY 

ZP+1 

COOB 

A0 

00 

LDY 

#0 

COOD 

Bl 

FB 

STRLOP 

LDA 

(ZP),Y 

COOF 

FO 

06 

BEQ 

FINISH 

C011 

20 

D2 

FF 

JSR 

CHROUT 

C014 

C8 

INY 

C015 

DO 

F6 

BNE 

STRLOP 

C017 

A2 

60 

FINISH 

LDX 

#128 

C019 

6C 

00 

03 

IMP 

(768) 

COJC 

A0 

00 

TXTCIN 

LDY 

#0 

C01E 

84 

CC 

STY 

BLNSW 

C020 

84 

FD 

GETKEY 

STY 

YSAVE 

C022 

20 

E4 

FF 

WAIT 

JSR 

GETIN 

C025 

A2 

07 

LDX 

#NUMBAD 

C027 

DO  6B 

CO 

CKtOOP 

CMP 

BADKEY,X 

C02A 

FO 

F6 

BEQ 

WAIT 

C02C 

CA 

DEX 

:  BLNSW  =  2599  on  the  128 

.  BLNCT  =  2600  on  Ihe  128 

;  BLNON  -  2598  on  Ihe  128 

• 

;  Inpui  a  line  of  text  with  a  custom  routine 

;  and  print  it. 

;  get  the  input  line 

;  Print  il  with  shortened  STRCPT  and  return. 

:  low  byte  of  input  buffer 

;  store  it 

;  high  byte  of  input  buffer 

;  store  it  also 

;  as  an  index 

;  load  each  character  from  input  buffer 

;  if  zero  byte,  then  finished 

;  print  character 

;  next  character 

;  go  get  next  character 

;  code  for  READY  error  message 

;  return  to  BASIC  and  print  READY  prompt 

;  Custom  input  subroutine  using  GETTN  and 

j  flashing  cursor 

;  Initialize  index  into  input  buffer 

;  turn  on  cursor 

;  GETIN  corrupts  .Y,  so  save  it 

;  get  a  character  in  .A 

;  compare  character  to  each  value  in 

;  BADKEY  table 

;  if  response  is  illegal,  get  another  key 
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C02D 

10 

F8 

BPL 

CKLOOP 

;  check  next  bad  key 

C02F 

A4 

FD 

LDY 

YSAVE 

;  input  is  okay,  so  restore  .Y 

C031 

C9 

14 

CMP 

#20 

;  is  ii  DELete? 

C033 

DO 

06 

BNE 

NOTDEL 

;  not  DELete 

C035 

CO 

00 

CPY 

#0 

;  are  we  at  the  start  of  the  buffer? 

C037 

FO 

E7 

BEQ 

GETKEY 

;  If  so,  go  get  a  character 

C039 

88 

DEY 

;  if  DELete,  back  up  index  into  input  buffer 

C03A 

88 

DEY 

C03B 

C9 

OD 

NOTDEL 

CMP 

#13 

;  is  it  RETURN? 

C03D 

ro 

09 

BEQ 

PRTTT 

;  yes,  so  print  it 

C03F 

cc 

73 

CO 

CPY 

MAXLEN 

;  check  maximum  input  length 

C042 

FO 

DC 

BEQ 

GETKEY 

;  if  yes,  wait  for  RETURN 

C044 

99 

00 

02 

STA 

BUF.Y 

;  store  character  in  buffer 

C047 

C8 

INY 

;  increment  input  buffer  index 

C048 

A2 

01 

PRTTT 

LDX 

#1 

;  routine  to  print  each  character 

C04A 

86 

CD 

STX 

BLNCT 

;  set  cursor  timer 

C04C 

A6 

CF 

WA1TPR 

LDX 

BLNON 

C04E 

DO 

FC 

BNE 

WAITPR 

;  wait  till  flash  is  off 

COM 

78 

SEI 

;  turn  off  all  IRQ  interrupts  so  cursor  won't 
;  flash 

C051 

20 

D2 

FF 

ISR 

CHROUT 

;  print  the  character 

C054 

58 

CLI 

;  turn  on  IRQ  interrupts 

C055 

C9 

OD 

CMP 

#13 

;  is  it  RETURN? 

C057 

DO 

C7 

BNE 

GETKEY 

;  get  another  key  if  not  RETURN 

C059 

A9 

no 

LDA 

#0 

C05B 

99 

00 

02 

STA 

BUF,Y 

;  if  RETURN,  add  terminator  byte  of  zero 
;  to  the  string 

C05E 

A9 

01 

LDA 

01 

C060 

85 

CD 

STA 

BLNCT 

;  make  cursor  flash 

C062 

A5 

CF 

WAITBL 

LDA 

BLNON 

COM 

DO 

FC 

BNE 

WAITBL 

;  wait  until  cursor  not  flashed 

C066 

A9 

01 

LDA 

#1 

C068 

85 

CC 

STA 

BLNSW 

;  turn  off  cursor 

C06A 

60 

RTS 

C06B 

00 

BADKEY 

,BYT 

0 

;  if  no  key,  then  wail 

C06C 

91 

11 

9D 

.ASC 

"(UP)  {DOWN} {LEFT)  (RIGHT}" 

;  cursor  keys 

C070 

94 

-ASC 

"{INST}" 

,-  INST  key 

C071 

13 

93 

-ASC 

■•(HOME}{CLR}" 

;  HOME  and  CLR 

073 

NU.MBAD 

= 

• -BADKEY - 

1 

C073 

OA 

MAXLEN 

.BYTE 

10 

;  maximum  length  of  the  input  line 

See  also  TXTINP. 
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Name 

Set  the  text  color 

Description 

TXTCOL  sets  the  text  color  by  storing  the  appropriate  color 
value  in  the  text  color  flag  at  location  646  (location  241  on 
the  128). 

Prototype 

1.  Enter  this  routine  with  the  selected  color  value  in  .A. 

2.  Store  this  value  in  the  foreground  color  register  for  text 
(COLOR). 

Explanation 

The  example  program  makes  the  text  that  follows  green  in 
color.  See  COLFIL  for  a  table  of  color  values. 

Routine 


cooo 


COLOR 


646 


:  COLOR  =  241  on  the  128 — foreground 
:  color  lor  text 


COOO 
C003 
C006 

AD  OB 
20     07 
60 

CO 
CO 

LDA 

JSR 

RTS 

COLVAL 
TXTCOL 

1  Set  text  color  to  green. 
;  get  the  color  value 
;  and  set  it 

C007 
COOA 

8D    86 
60 

02 

TXTCOL 

STA 
RTS 

COLOR 

;  Set  text  color.  Enter  with  .A  containing  color 

;  value. 

;  set  text  color 

COLVAL 

BYTE 

S 

;  color  green 

See  also  BCKCOL,  BORCOL,  COLFIL,  TXTCCH. 
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Name 

Input  a  line  of  text  using  the  ROM  routine  INLIN 

Description 

You'll  find  this  short  routine  practical  in  many  programs. 
TXTINP  accepts  a  line  of  input  from  the  keyboard  and  stores 
it  as  a  zero-terminated  string  in  the  input  buffer  beginning  at 
location  512. 

Prototype 

Jump  to  the  BASIC  ROM  subroutine  INLIN. 

Explanation 

TXTINP  relies  on  the  built-in  BASIC  Kernal  routine,  INLIN, 
to  perform  an  INPUT  in  ML.  INLIN,  located  at  42336  on  the 
64  or  22176  on  the  128,  accepts  characters  from  the  current  in- 
put device  until  a  carriage  return  is  received  or  until  the  length 
of  the  current  logical  line  is  exceeded  (80  characters  on  the  64; 
160  on  the  128).  If  the  input  carries  you  to  the  next  logical 
line,  that  line  will  become  the  input  line,  just  as  in  BASIC. 
Once  you  have  entered  RETURN,  INLIN  tags  a  zero  byte  onto 
the  end  of  the  input  line  in  the  buffer. 

In  the  example,  TXTINP  fetches  characters  from  the  key- 
board, placing  them  in  the  text  input  buffer  at  512  until  RE- 
TURN is  pressed.  A  shortened  STRCPT  is  used  to  print  this 
string  data  (shortened  because  the  string  will  never  be  longer 
than  255  bytes).  After  this,  you're  returned  to  BASIC. 

Notice  that  instead  of  using  RTS  to  return  to  BASIC,  we 
jump  through  the  vector  at  768  to  BASIC'S  error  message  han- 
dler routine.  (A  value  of  128  in  the  X  register  indexes  the 
READY  prompt  from  a  table  of  error  messages.)  This  is  nec- 
essary here  since  BASIC'S  input  buffer  has  been  corrupted 
with  input  from  INLIN.  You'll  see  what  we  mean  if  you  sub- 
stitute an  RTS  for  LDX  #128:JMP  (768).  BASIC  will  attempt  to 
execute  whatever  input  follows  on  the  current  line  as  if  it  were 
a  direct  command. 

Note:  Since  TXTINP  uses  BASIC'S  own  INPUT  routine,  it 
suffers  from  all  the  problems  inherent  to  this  statement.  Punc- 
tuation characters  like  commas  and  colons  cannot  be  entered 
within  the  input  line;  control  characters  like  the  cursor  keys, 
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CLEAR,  and  HOME  allow  the  user  to  leave  the  input  line;  and 
so  on.  Such  input  can  have  disastrous  effects  upon  your  pro- 
gram. In  many  instances,  especially  where  the  user  is  likely  to 
be  a  novice,  you  should  use  a  custom  routine  like  TXTCIN, 
which  screens  individual  characters  within  the  input  line. 
Routine 


INLIN -=  22176  on  the  128 

Input  a  line  of  text  until  RETURN  and 

print  it. 

input  a  line  of  text  into  keyboard  buffer 

Now  print  it  with  a  shortened  version  oi 

STRCPT  (buffer  is  <256  bytes), 

low  byte  of  input  buffer 

store  it 

high  byte  of  input  buffer 

store  It  also 

as  an  index 

load  each  character  from  input  buffer 

if  zero  byte,  then  finished 

print  character 

for  next  character 

go  get  the  next  character 

code  for  READY  error  message 

return  to  BASIC  and  print  READY  prompt 

Input  a  line  of  text  into  the  keyboard  buffer 
with  the  BASIC  ROM  routine  INUN. 


cooo 

CHROUT 

= 

65490 

COOD 

cooo 

BUF 
ZP 

z 

512 
251 

cooo 

INLIN 

■ 

42336 

cooo 

20 

1C 

CO 

JSR 

TXTINP 

C003 

A9 

00 

STRCPT 

LDA 

#<BUF 

C005 

85 

FB 

STA 

ZP 

C007 

A0 

02 

LDY 

#>BUF 

C009 

84 

FC 

STY 

ZP+1 

COOB 

A0 

00 

LDY 

#0 

COOD 

Bl 

FR 

STRLOP 

LDA 

<ZP),Y 

COOF 

E0 

06 

BEQ 

FINISH 

con 

20 

D2 

FF 

JSR 

CHROUT 

C014 

C8 

INY 

C015 

DO 

Ffe 

BNE 

STRLOP 

C017 

A2 

80 

FINISH 

LDX 

#128 

C019 

6C 

00 

(13 

IMP 

(768) 

one 

20 

60 

A5 

TXTINP 

JSR 

INLIN 

COIF 

60 

RTS 

See  also  TXTCIN. 
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Name 

Validate  a  disk 

Description 

This  is  the  equivalent  of  the  BASIC  statement  OPEN 
l,8,15,"V0":CLOSE  1,  which  reads  through  the  directory  arid 
checks  the  allocation  of  disk  sectors.  There's  no  need  to  vali- 
date very  often,  though  if  you  accidentally  leave  a  disk  file 
open  when  you  turn  off  the  computer,  the  result  is  a  poison,  or 
splat,  file,  which  may  cause  significant  problems  in  the  future. 
You  should  not  scratch  a  splat  file,  which  is  marked  in  the 
directory  with  an  asterisk  (*)  next  to  the  file  type;  you  should 
validate  the  disk  that  contains  the  poison  file. 

Prototype 

1.  Open  the  command  channel  (Kernal  SETLFS,  SETNAM, 
OPEN). 

2.  Provide  "VO"  as  the  name  of  the  file  being  opened. 

3.  Close  the  channel. 

Explanation 

At  the  start  of  the  routine,  SETLFS  sets  a  logical  file  number  1, 
on  device  8  (the  disk  drive)  and  channel  15.  SETNAM  sets  the 
name  to  "VO",  which  means  Validate  on  drive  0.  The  Kernal 
OPEN  routine  is  sufficient  to  send  this  command  to  the  disk 
drive.  To  finish  up,  close  the  channel. 

The  validate  normally  takes  some  time  to  finish.  This  is 
because  it  reads  through  the  directory  to  find  every  legitimate 
file,  then  traces  through  the  sectors  each  program  or  file  uses. 
Each  valid  sector  is  then  marked  as  already  used  in  the  block 
allocation  map  (BAM). 

Warning:  Do  not  use  the  validate  routine  if  you  have  a 
double-sided  1571  disk  in  the  drive,  and  the  1571  is  in  single- 
sided  1541  mode.  You'll  lose  the  second  half  of  the  disk.  To  be 
safe,  send  the  double-sided  (1571  mode)  command  "U0>M1" 
to  the  disk  drive  on  channel  15  before  you  validate  the  disk. 

You  should  also  avoid  using  this  routine  to  validate  disks 
formatted  for  use  with  the  new  GEOS  operating  system  for  the 
64.  GEOS  provides  its  own  Validate  program.  Performing  a 
standard  validation  on  a  GEOS  disk  will  result  in  the  loss  of 
vital  information. 
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Routine 

cooo 


C000  A9  01 
C002  A2  06 
COM     AO   OF 


COOS 
COW 

COOB 


COOD    AO    CO 


COOF 
C012 
C015 
C017 
C01A  20 
COID    60 


SETLFS 

SETNAM 

OPEN 

CLOSE 

CLRCHN 

VALIDT 


—  $FFBA 

SFFBD 

=  SFFCO 

$FFC3 

=  $FFCC 

LDA     #1 

LDX      #8 
LDY       #15 


20     BA   FF 
A9    03 
A2    IE 


20     BD  FF 
20     CO    FF 
A9    01 
20     C3    FF 
CC  FF 


JSR 

LDA 

LDX 

LDY 

JSR 

JSR 

LDA 

JSR 

JSR 

RTS 


SETLFS 

#BUFLEN 

#<BUFFER 

#>BUFFER 

SETNAM 

OPEN 

#1 

CLOSE 

CLRCHN 


;  logical  file  number 

;  device  number  for  disk  drive 

;  secondary  address  for  drive  command 

;  channel 

;  prepare  to  open  it 

;  length  of  buffer 

;  -X  and  .Y  hold  the 

;  address  of  (he  buffer 

;  set  name 

;  open  It 

;  and  Immediately 

;  close  the  command  channel 

;  clear  the  channels 

;  all  done 


C01E     56     30 
C020     OD 
C021 


.ASC      "VO" 

.BYTE    13 

-  •- BUFFER 


(  Data  area 

;  RETURN  character 


BUFFER 
BUFLEN 

See  also  CONCAT,  COPYFL,  FORMAT,  INITLZ,  RENAME,  SCRTCH. 
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Name 

Write  to  80-column  attribute  memory 

Description 

If  you've  worked  with  the  40-column  screen  of  the  64  or  128, 
you're  probably  used  to  color  memory  that  can  hold  16  different 
values.  The  128's  80-column  screen  has  attribute  memory  that 
not  only  controls  colors,  but  also  controls  flash  mode,  under- 
line mode,  reverse  mode,  lowercase/uppercase  or  uppercase/ 
graphics  mode,  and  so  forth.  This  routine  changes  the  attri- 
butes of  a  chunk  of  the  screen. 

Prototype 

1.  Enter  the  routine  with  the  attribute  value  in  .A  and  the 
screen  position  in  .X  and  .Y. 

2.  Save  the  attribute  temporarily. 

3.  Calculate  the  color  address  from  .X  and  .Y. 

4.  Send  the  corresponding  address  for  attribute  memory  to  the 
VDC  chip. 

5.  Store  the  attribute  into  attribute  memory. 

Explanation 

The  128's  80-column  screen  has  80  columns  and  25  rows,  a 
total  of  2000  locations.  Within  its  private  16K  of  memory, 
there  are  2000  bytes  devoted  to  screen  memory,  plus  2000 
bytes  for  attribute  memory.  The  figure  shows  how  an  individ- 
ual byte  of  attribute  memory  controls  the  functions. 

Attribute  Memory  Byte 


Bit 


Value 


128 


M 


32 


16 


3       2 


■Intensity 


■Blue 


-6reen 


LRed 


'-flash 

Ulnderline 
Reverse 
Iwercase 
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The  low  nybble  (bits  0-3)  controls  the  color,  with  various 
combinations  of  red,  green,  blue,  and  intensity.  The  high 
nybble  (bits  4-7)  controls  the  additional  attributes  such  as 
flash,  underline,  reverse,  and  lowercase.  For  example,  if  the 
underline  bit  is  a  1,  the  character  is  underlined.  If  the  lower- 
case bit  is  1,  the  letter  A  appears  as  lowercase  a.  (If  it's  0,  an  A 
appears  as  an  uppercase  A,  and  uppercase  letters  print  as 
graphics  characters.) 

The  example  program  stores  a  %  101 11101  into  attribute 
memory  at  x  position  9,  y  position  4 — column  10,  row  5,  be- 
cause the  upper  left  corner  is  (0,0).  It  stores  the  value  into  ten 
bytes.  The  upper  nybble  of  %1011  turns  on  lowercase,  under- 
line, and  flash.  The  lower  nybble  of  %1101  turns  the  color  to 
bright  yellow  (green  +  red  +  intensity). 

For  more  about  how  the  internal  VDC  registers  work,  see 
RE80CO  and  WR80CO. 


Routine 

ocoo 
ocoo 
ocoo 
ocoo 

ocoo 
ocoo 
ocoo 


CHROUT 
VDCADR 
VDCDAT 
VRMHI 

VRMLO 
VRDAT 
COLMEM 


OCOO  A9  93 

0CO2  20  D2    FF 

0C05  A2  07 

0C07  A0  CF 

0C09  A9  45 

0C0B  20  D2    FF     LP01 

0COE  88 

0C0F  DO  FA 

0C11  CA 

0C12  DO  F7 

0C14  A9  BD 

0C16  A2  09 

0C18  A0  04 

0C1A  20  28     0C 

0C1D  A0  0A 

0C1F  A2  IF  SVCLP 

0C21  20  99    0C 

0C24  88 

0C25  DO  F8 

0C27  60 


LDA 

JSR 

LDX 

LDY 

LDA 

JSR 

DEV 

BNE 

DEX 

BNE 

LDA 

LDX 

LDY 

JSR 

LDY 

LDX 

JSR 

DEY 

BNE 

RTS 


$FFD2 
54784 
54785 
18 

19 
31 

$0800 


#147 

CHROUT 

#>1999 

=<1999 

#69 

CHROUT 

LP01 

LPOl 

#%10111101 

#9 

#4 

VDCCOL 

#10 

#31 

STRVDC 

SVCLP 


Kerna!  print  routine 

gateway  byte  1 — the  register  address 

gateway  byte  2 — the  data  to  be  written 

register  for  memory  address  to  access  (high 

byte) 

register  for  memory  address  (low  byte) 

register  for  number  to  be  sent 

address  of  color  memory  in  the  VDC's 

private  memory 

clear  screen 


;  the  letter  E 
;  print  It 


;  1999  times 

;  lowercase,  underline,  flash,  bright  yellow 

;  x  position  9 

;  y  position  4 

;  store  it 

;  ten  more  times 

;  register  31 

!  store  it 

I  and  branch  back  ten  times 


0C28  8D  96 
0C2B  A9  00 
0C2D    8D    97 


0C    VDCCOL 


oc 


,-  Enter  VDCCOL  with  the  number  to  lie 
.-  POKEd  to  color/attribute  memory  in  .A, 
;  and  the  x  and  y  locations  in  .X  and  .Y. 

STA       TEMPA  ;  Bave  .A 

LDA     #0  ;  dear  the  address 

STA      COLADR  ;  of  color  memory  low 
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0C30 

8D 

9H 

oc 

STA 

COLADR+1      ; 

and  high  byte 

0C33 

98 

TYA 

j 

move  .Y  lo  .A 

0C34 

OA 

ASL 

; 

times  2 

0C35 

8D 

97 

oc 

STA 

COLADR         ; 

save  It 

0C38 

OE 

97 

oc 

ASL 

COLADR         ; 

times  4  flow) 

0C3B 

2E 

98 

oc 

ROL 

COLADR+1     ; 

(highl 

0C3E 

OE 

97 

oc 

ASL 

COLADR         ; 

timet  9  (low) 

0C41 

2E 

98 

oc 

ROL 

COLADR +3      ; 

(high) 

0C44 

18 

CLC 

now  add  in  .A 

0C45 

60 

97 

oc 

ADC 

COLADR           ; 

limes  8  plus  times  2  is  times  10  (net) 

0C48 

8D 

97 

oc 

STA 

COLADR 

store  it 

0C4B 

A9 

00 

LDA 

#0                  ; 

0C4D 

6D 

98 

oc 

ADC 

COLADR+1     ; 

fix  the  high  byte 

0C5O 

8D 

98 

oc 

STA 

COLADR+1     ; 

and  store  it 

0C53 

AO 

03 

LDY 

#3                     ; 

times  10  times  8  (again)  Is  times  80 

0C55 

OE 

97 

OC    LOOP80 

ASL 

COLADR 

0C58 

2E 

98 

OC 

ROL 

COLADR+1 

0C5B 

88 

DEY 

0C5C 

DO 

F7 

BNE 

LOOP80 

Now  COLADR  holds  0,  80, 160,  and  so 
forth. 

0C5E 

SA 

TXA 

put  -X  in  .A  and 

0C5F 

6D 

97 

oc 

ADC 

COLADR         ; 

add  it  (carry  Is  always  clear) 

0C62 

8D 

97 

OC 

STA 

COLADR          ; 

store  It 

0C65 

A9 

00 

LDA 

#0                       J 

high  byte,  too 

0C67 

6D 

98 

OC 

ADC 

COLADR+1 

0C6A 

8D 

98 

OC 

STA 

COLADR+1 

Now  COLADR  holds  a  number  0-1999 
for  the  screen/color  memory  location. 

0C6D 

A9 

00 

LDA 

#<COLMEM 

add  in  the  beginning  of  color  memory 
($0800  inside  the  VDC) 

0C6F 

so 

97 

OC 

ADC 

COLADR 

0C72 

8D 

97 

oc 

STA 

COLADR 

0C75 

A9 

08 

LDA 

#>COLMEM 

0C77 

6D 

98 

OC 

ADC 

COLADR+1 

0C7A 

8D 

98 

OC 

STA 

COLADR+1 

0C7D 

A2 

12 

LDX 

#VRMHI 

set  the  high  byte 

0C7F 

AD  98 

OC 

LDA 

COLADR+1 

to  point  to  color  memory 

0C82 

20 

99 

UC 

JSR 

STRVDC 

store  It 

0C85 

A2 

13 

LDX 

#VRMLO 

now  the  low  byte 

0C87 

AD 

97 

oc 

LDA 

COLADR 

0C8A 

20 

99 

oc 

JSR 

STRVDC 

0C8D 

A2 

IF 

LDX 

#VRDAT 

the  data  to  write 

0C8F 

AD 

96 

oc 

LDA 

TEMPA 

retrieve  the  value  from  .A 

0C92 

20 

99 

oc 

JSR 

STRVDC 

0C95 

60 

RTS 

and  ifs  done 

0C96 

00 

TEMPA 

.BYTE 

0 

0C97 

00 

00 

COLADR 

.BYTE    0,0 

0C99 

STRVDC 

= 

• 

;  .X  is  the  register;  .A  Is  the  information 

0C99 

8E 

00 

D6 

STX 

VDCADR 

;  store  the  register  address 

0C9C 

AE 

00 

D6    SVLOOP 

LDX 

VDCADR 

:  now  wait 

0C9F 

10 

FB 

BPL 

SVLOOP 

:  until  bit  7  is  set 

0CA1 

8D 

01 

D6 

STA 

VDCDAT 

;  and  store  the  data 

0CA4 

60 

RT5 

See  also  CUST80,  RE80CO,  WR80CO. 
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Name 

Verify  a  disk  file 

Description 

VERIFY  checks  a  copy  of  your  BASIC  or  ML  program  on  disk 
to  insure  that  it  is  the  same  as  the  one  currently  in  memory.  If 
there  are  any  differences  between  the  program  in  memory  and 
the  corresponding  one  on  disk,  this  routine  prints  NOT  OK. 

Prototype 

1.  On  the  128,  set  the  bank  to  15. 

2.  Set  the  parameters  as  1,8,1  to  verify  "PROGRAM" 
(SETLFS,  SETNAM). 

3.  On  the  128,  prior  to  SETNAM,  load  .A  with  the  bank 
containing  the  program  you  wish  to  verify  and  .X  with  the 
bank  containing  its  filename.  Then  ]SR  to  SETBNK. 

4.  Store  a  1  in  .A  for  to  indicate  a  verify  operation. 

5.  JSR  to  the  Kernal  routine  LOAD. 

6.  Check  the  carry  flag  for  a  disk  error  (carry  is  set  after  a 
LOAD  error). 

7.  Check  bit  4  of  the  I/O  status  flag  at  144  to  see  if  the  error 
was  a  verify  error. 

8.  If  bit  4  is  set,  print  NOT  OK. 

9.  Otherwise,  print  OK. 

Explanation 

This  routine  is  very  straightforward.  To  use  it,  simply  sub- 
stitute for  PROGRAM  the  name  of  the  program  you  wish  to 
verify. 

Notice  that  VERIFY  is  similar  in  many  ways  to  the  load 
routines  (LOADAB,  LOADBS,  LOADRL).  A  key  difference  in 
the  setup  is  the  value  placed  in  the  accumulator  prior  to 
JSRing  to  LOAD.  A  value  of  zero  in  .A  indicates  that  a  load 
operation  is  to  be  performed.  A  nonzero  value  signifies  a  ver- 
ify operation. 

There  are  probably  several  ways  to  see  whether  the  pro- 
gram in  memory  has  verified  properly.  A  direct  way,  employed 
here,  is  to  check  bit  4  of  the  status  flag  at  144.  If  this  bit  is  set, 
a  verify  error  has  occurred  and  the  full  error  message  NOT  OK 
is  printed.  If  bit  4  is  cleared,  meaning  no  verify  error  has  oc- 
curred, the  index  pointer  to  the  error  message,  .Y,  is  offset  in 
MSGNOK,  so  only  OK  gets  printed.  This  trick  prevents  us 
from  having  to  include  a  routine  to  print  the  second  message. 

Note:  VERIFY  currently  lacks  complete  disk  error  check  - 
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ing  (except  for  checking  the  carry  flag  after  JSR  LOAD).  You 
can  add  this  feature  if  you  like  by  incorporating  the  subroutine 
DERRCK  into  the  code.  Place  DERRCK  just  before  FILENM, 
as  noted  in  the  source  listing.  Jump  to  DERRCK  immediately 
after  the  JSR  LOAD  instruction.  Also,  be  sure  to  open  the  error 
channel  (15)  at  the  beginning  of  the  program  (noted  in  the 
source  listing). 

On  the  128,  you  must  define  and  include  BNKNUM  and 
BNKFNM  at  the  end  of  the  program. 


Routine 


coon 

SETLFS 

— 

65466 

cooo 
cooo 

SETNAM 

= 

65469 

LOAD 

— 

65493 

cooo 

CHROUT 

= 

65490 

cooo 

STATUS 

= 

144 

cooo 

SETBNK 

•» 

65384 

cooo 

MMUREG 

= 

65280 

cooo 


VERIFY         - 


C000  A9  01 

C002  A2  08 

C004  A0  01 

C006  20  BA    FF 


C009 

A9 

09 

C00B 

A2 

38 

COOD 

AO 

CO 

C0OF 

20 

BD 

FF 

C012 

A9 

01 

COM 

20 

D5 

FF 

C017  08 

C018  A9    0D 

C01A  20     D2    FF 

C01D  28 

C01E  B0    OA 

C020  AS    90 

C022  29     10 

C024  DO    04 


LDA  #1 

LDX  #8 

LDY  #1 

JSR  SETLFS 


LDA  #FNLENG 

LDX  #<FHENM 

LDY  #>FILENM 

JSR  SETNAM 

LDA  #1 

JSR  LOAD 


PHP 

LDA  #13 

JSR  CHROUT 

PLP 

BCS  NOTOK 

LDA  STATUS 

AND  #16 

BNE  NOTOK 


Kemal  bank  number  for  verify  and  filename 

(128  only) 

MMU  configuration  register  (128  only) 

Verify  the  Tile  (BASIC  or  ML)  cm  disk. 

Open  channel  15  here  if  you  include  disk 
error  checking  (DERRCK). 


LDA  #0;  sel  the  128  lo  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

logical  file  number  (value  doesn't  matter) 

device  number  for  disk  drive 

secondary  address  of  1  for  absolute  load 

set  parameters  for  verify 

Include  the  following  three  Instructions 

on  the  128  only. 

LDA  BNKNUM;  bank  containing  the 

program 

LDX  BNKFNM;  bank  containing  the 

ASCII  filename 

JSR  SETBNK 

length  of  filename 

address  of  filename 

set  up  filename 
flag  for  verify 
verify  the  file 

JSR  DERRCK;  Insert  here  for  error 
checking. 

store  the  carry  flag  setting 

print  OK  or  NOT  OK  on  next  line 

restore  carry  flag  setting 

if  disk  error  occurs,  carry  is  normally  set 

after  load 

check  the  I/O  status  flag 

test  bit  4  for  verify  error 

Bit  4  is  1,  so  verify  error  occurred.  Print 

"NOT  OK". 
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C026  AO  04 

C028  DO  02 

C02A  AO  00  NOTOK 

C02C  B9  41      CO     LOOP 

C02F  F0  06 

C031  20  D2    FF 

C034  C8 

C03S  DO  F5 

C037  60  FINISH 


LDY       #4 


;  No  verify  error.  Offset  into  message  to 
;OK.  " 

;  print  It 


BNE  LOOP 

LDY  #0 

LDA  MSGNOK.Y      ;  print  NOT  OK  or  OK 

BEQ  FINISH  ;  exit  on  aro  byte 

JSR  CHROUT 

INY 

BNE  LOOP  ;  continue  printing  message 

RTS 


C038     30     3A    50    FILENM 
C04! 


:  Insert  DERRCK  here  if  you're  including 
;  disk  error  checking. 


.ASC     "OtPROCRAM" ;  Substitute  the  name  of  your  program  here 
;  (<—  16  characters) 
FNLENG      =  •  -  FILENM     ;  length  of  filename 

;  Include  the  next  two  variables  for  the  128 

;  only. 

:  message  for  NOT  OK/OK 


C041     4E     4F     54     MSGNOK      .ASC      "NOTOK" 
C047     00  BYTE    0 


See  also  SAVEBS,  SAVEML. 


i  BNKNUM  BYTE  0;  bank  number  where 
;  program  to  verify  is  located 
;  BNKFNM  .BYTE'O;  bank  number  where 
;  ASCII  filename  is  located 
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Name 

Change  the  text  screen  location 

Description 

This  routine  lets  you  change  the  text  screen  location  within  the 
current  video  bank.  The  text  screen  must  be  placed  on  an  even 
IK  boundary  within  the  video  bank.  The  high  nybble,  bits 
4-7,  of  the  VIC-II  chip  memory  control  register  (53272)  deter- 
mines the  actual  offset  of  the  text  screen  within  the  chosen 
video  bank.  This  offset  can  have  values  from  0  through  15. 

Prototype 

1.  Enter  this  routine  with  .A  containing  the  IK  offset  for  the 
text  screen. 

2.  Multiply  .A  by  16,  shifting  the  low  nybble  to  the  high 
nybble. 

3.  Store  the  result  into  bits  4-7  of  the  VIC-II  memory  control 
register. 

Explanation 

The  example  routine  locates  the  text  screen  at  8192,  or  at  the 
8K  boundary,  within  the  current  video  bank.  Here,  SCROFF 
contains  the  offset  (in  IK  increments)  to  the  start  of  text  screen 
memory.  For  instance,  change  the  routine  to  start  the  text 
screen  at  an  offset  of  4K,  store  a  4  in  SCROFF. 

On  the  128,  the  value  in  location  2604  (VM1)  is  copied 
into  53272  during  each  IRQ  interrupt  as  long  as  you're  work- 
ing in  a  portion  of  the  screen  containing  text.  (If  you're  in  bit- 
map mode,  location  2605,  or  VM2,  is  copied  into  53272.)  So, 
on  the  128,  define  VMCSB  as  2604.  (Although  it's  not  nec- 
essary, you  can  also  change  the  label  to  VM1 .  If  you  do  this, 
be  sure  to  change  it  everywhere  it's  referenced  in  the  program.) 

Note:  This  routine  currently  uses  a  zero-page  location 
(251)  for  temporary  storage.  Unfortunately,  this  and  other 
available  zero-page  locations  are  heavily  used  by  many  other 
ML  routines.  If  your  program  requires  you  to  keep  this  loca- 
tion free,  just  reserve  a  labeled  byte  at  the  end  of  your  pro- 
gram for  storage  (for  example,  TEMPA  .BYTE  0)  and  substitute 
the  chosen  label  (here,  TEMPA)  everywhere  ZP  occurs  in  the 
source  code. 


549 


VICADR 


Routine 

cooo 

VMCSB 

= 

53272 

cooo 

ZP 

- 

251 

cooo 

AD 

18 

CO 

LDA 

SCROFF 

C003 

20 

07 

CO 

JSR 

VICADR 

C006 

60 

RTS 

C007 

OA 

VICADR 

ASL 

coos 

OA 

ASL 

C009 

OA 

ASL 

COOA 

OA 

ASL 

COOB 

85 

F8 

STA 

ZP 

COOD 

AD  18 

DO 

LDA 

VMCSB 

C010 

29 

OF 

AND 

#15 

C012 

05 

FB 

OKA 

ZP 

C014 

8D 

IB 

DO 

STA 

VMCSB 

C017 

60 

RTS 

C018    08  SCROFF       .BYTE   8 

See  also  CHOUTP,  VIDBNK. 


2604  on  the  128— VIC-U  chip  memory 
control  register 


Offset  text  screen  by  8K  in  current  video 

bank, 

.A  contains  screen  offset 

offset  text  screen 


Offsel  text  screen  by  IK  rimes  .A  in  current 

video  bank 

multiply  by  16  to  position  in  high  nybble 


;  store  temporarily 

;  retain  current  bits  0-3  of  VMCSB 

;  OR  in  bits  4-7 

;  and  store  result  in  control  register 


;  text  screen  offset  by  8K  within  video  bank 
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Name 

Change  the  VIC  chip  video  bank 

Description 

VIDBNK  lets  you  choose  the  current  16K  VIC  chip  video 
bank  from  four  possible  choices: 

BankO  (0-16383) 

Bank  1  (16384-32767) 

Bank  2  (32768-49151) 

Bank  3  (49152-65535) 

Prototype 

1.  Enter  the  routine  with  .A  containing  the  chosen  video  bank 
number  (0-3). 

2.  Set  the  CIA  #2  port  A  data  direction  register  for  output. 

3.  Store  the  result  of  3  minus  the  bank  number  into  bits  0-1  of 
the  CIA  #2  port  A  data  register. 

Explanation 

The  VIC  chip,  which  is  in  charge  of  all  video  output  on  the  64 
and  all  40-column  output  on  the  128,  can  access  only  16K  of 
memory  at  any  one  time.  This  16K  area  is  called  the  video 
bank.  Within  the  selected  16K  must  reside  all  video-oriented 
information:  sprite  shapes,  text  screen  memory,  hi-res  screen 
memory,  and  character  shapes.  Bank  0  is  the  default  video 
bank.  Because  locations  0-16384  are  often  used  for  other  pur- 
poses, it's  sometimes  useful  to  use  a  different  video  bank. 

Routine 


cooo 

CI2PRA 

•= 

56576 

;  CIA  #2  data  port  register  A 

cooo 

C2DDRA 

•= 

56578 

;  CIA  #2  data  direction  register  A 

cooo 

ZP 

251 

;  Select  video  bank  2. 

cooo 

AD  22 

CO 

IDA 

BNKNUM 

;  bank  number  (0-3) 

C003 

20     07 

CO 

ISR 

VIDBNK 

;  select  bank 

CQ06 

60 

RTS 

:  Select  a  video  bank.  Enter  with  ,A 
;  containing  the  chosen  bank  number. 

C007 

49     03 

VIDBNK 

EOR 

#3 

;  effectively,  (3  —  bank  number) 

C009 

85     FB 

STA 

ZP 

;  store  it  temporarily 

C00B 

AD  02 

DD 

LDA 

C2DDRA 

;  set  data  direction  register  for  output 

C00E 

09     03 

ORA 

#3 

C010 

8D    02 

DD 

STA 

C2DDRA 

C013 

AD  00 

DD 

LDA 

C12PRA 

;  take  current  CI2PRA  value 
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C0I6  29  FC 

C018  05  PD 

C01A  8D  00     DD 

C01D  60 


AND  #252 

ORA  ZP 

STA  CI2PRA 
RTS 


C01E     02  BNKNUM      .BYTE    2 

See  also  CHOUTP,  VICADR. 


;  and  keep  bits  2-7. 

;  OR  with  3  -  bank  number 

;  reset  register 


;  bank  2 


WARMST 


Name 

Warm  start 

Description 

The  difference  between  a  cold  start  and  warm  start  on  a  com- 
puter is  basically  one  of  degree.  A  warm  start  always  has  a 
less  severe  effect  on  the  machine. 

One  way  to  cause  a  warm  start  on  the  64  or  128  is  to 
JuMP  directly  to  the  warm-start  routine.  A  warm  start  also  oc- 
curs anytime  a  BRK  instruction  (0)  is  encountered. 

On  the  64,  the  result  of  a  warm  start  is  the  same  as  when 
you  press  the  RUN/STOP  and  RESTORE  keys  simultaneously. 
On  both  computers,  all  page  3  RAM  vectors  are  restored  to 
their  initial  settings.  In  addition,  the  character  set  and  the 
screen  are  reset  to  their  original  condition. 

Following  the  warm-start  routine  on  the  64,  you're  re- 
turned to  BASIC.  On  the  128,  you're  placed  in  the  monitor. 
On  both  machines,  the  BASIC  program  remains  intact. 

Prototype 

JuMP  to  a  location  containing  a  zero. 

Explanation 

To  demonstrate  the  effect  of  a  warm  start,  the  example  pro- 
gram initially  changes  the  screen  and  text  colors.  When  you 
press  B,  WARMST  is  executed,  causing  the  screen  and  text 
colors  to  be  restored  to  their  default  settings.  As  we've  in- 
dicated, on  the  64,  you're  left  in  BASIC.  On  the  128,  you're 
left  in  the  monitor. 

WARMST  is  the  same  for  both  computers.  In  either  case, 
you  JuMP  to  a  location  in  memory  that  you  know  contains  a 
zero.  Here,  a  zero  has  been  placed  in  memory  (in  zero  page) 
from  within  the  main  program. 

Routine 


cooo 


cooo 

cooo 
cooo 
cooo 


ZP 

= 

251 

GET1N 

•= 

6550S 

CHROUT 

= 

65490 

BGCOL0 

— 

53281 

COLOR 

= 

646 

EXTCOL 

_ 

53280 

LTGREN 

3= 

13 

GREEN 

= 

5 

WHITE 

"  = 

1 

screen  background  color  register  0 
COLOR  =  241  on  the  128— foreground 
color  register  for  text 
border-color  register 
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20 
F0 
20 
C9    42 


DO 


DO 


cooo 

C002 

C004 

C006 

C009 

COOB 

COOE 

C010 

C013 

C016 

C018 

C01B 

C01D    DO    F4 

COIF    4C    22     CO 


A9  00 

85  FB 

A9  OD 

8D  21 

A9  05 

8D  20 

A9  01 

8D  86 


BCKCOL 


BORCOL 


02 
FF 


E4 
FB 

D2   FF 


TXTCOL 


LOOF 


LDA 

STA 

LDA 

STA 

LDA 

STA 

LDA 

STA 

ISR 

BEQ 

JSR 

CMP 

BNE 

JMF 


»0 

ZP 

•LTGREN 

BGCOLO 

#GREEN 

EXTCOL 

"WHITE 

COLOR 

CET1N 

LOOP 

CHROirr 

#66 

LOOP 

WARMST 


C022     4C    FB    00     WARMST     JMP       ZP 

See  also  COLDST. 


I  Perform  a  warm  start  with  B  key. 
;  store  a  zero  byte  in  zero  page 

;  set  screen  background  color  to  light  green 

:  set  border  color  to  green 

;  set  text  color  to  white 

|  get  a  character 

;  if  no  input 

;  print  it 

;UitBT 

;  if  not,  get  another  key 

;  execute  warm  start 

;  WARMST  clears  the  screen  and  resets 

;  default  colors. 

•  warm  atari  caused  by  zero  byte  and  RTS 
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WINDOW  (128  only) 


Name 

Sets  windows  boundaries  using  escape  codes 

Description 

A  very  useful  feature  of  the  128  is  its  built-in  windowing 
capability.  As  your  programs  become  more  sophisticated, 
you'll  find  any  number  of  uses  for  windows — menus,  prompts 
(Y/N),  messages,  and  so  forth.  This  routine  shows  how  to  set 
up  a  text  window  on  the  128  by  using  escape  codes. 

Prototype 

1.  Enter  with  the  appropriate  window  dimensions  defined  by 
the  variables  TOPROW,  LEFTCL,  BTROWO,  and  RGTOFF  at 
the  end  of  the  program.  (Note  that  BTROWO  and  RGTOFF 
are  offsets  from  TOPROW  and  LEFTCL,  respectively.) 

2.  Position  the  cursor  at  the  top  left  corner  of  the  window  with 
PLOT. 

3.  Print  an  ESC-T  for  top. 

4.  Likewise,  position  the  cursor  at  the  bottom  right  position 
with  PLOT. 

5.  Print  an  ESC-B  for  bottom. 

Explanation 

To  use  PLOT  to  set  up  the  window  boundaries,  load  the  X 
and  Y  registers  with  the  row  and  column  number  of  the  win- 
dow border.  With  PLOT,  the  rows  and  columns  are  numbered, 
beginning  with  zero.  Possible  row  values  are  0-24;  columns 
can  run  from  0  through  39  (or  0-79  on  the  80-column  screen). 

After  the  top  corner  position  has  been  fixed  with  PLOT, 
we  load  .A  with  84  (for  ASCII  T)  and  print  it  in  the  form  of  an 
ESC  code  using  the  subroutine  ESCPRT.  In  ESCPRT,  the 
character  to  be  printed  is  stored  on  the  stack  while  an  ESC 
code — CHR$(27) — is  printed.  Following  this,  we  pull  the 
character  back  off  the  stack  and  print  it  as  well. 

A  similar  process  is  followed  in  establishing  the  bottom 
border  of  the  window.  This  time  an  ESC-B,  which  sets  the  bot- 
tom of  the  window,  is  printed.  It  should  be  noted  that  the  pre- 
vious action  (printing  ESC-T)  has  put  the  top  of  the  window  at 
a  given  location  and  that  the  Kernal  PLOT  routine  operates 
relative  to  the  current  window.  Thus,  the  values  for  the  bot- 
tom of  the  window  are  the  width  and  height  of  the  window, 
not  the  absolute  screen  coordinates  of  the  bottom  comer. 

Finally,  to  clearly  show  the  limits  of  the  window,  a 
continuous  stream  of  W's  is  printed. 
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Routine 


ocoo 

PLOT 

= 

65520 

ocoo 

CHROUT 

= 

65490 

ocoo 

20 

OB 

OC 

JSR 

WINDOW 

OC03 

A9 

57 

LDA 

*67 

0C05 

20 

D2 

FF 

LOOP 

|SR 

CHROUT 

0C08 

4C 

OS 

OC 

JMP 

LOOP 

OCOB 

AE 

30 

OC 

WINDOW 

LDX 

TOPROW 

OCOE 

AC 

31 

OC 

LDY 

LEFTCL 

0C11 

18 

CLC 

OC12 

20 

FO 

FF 

JSR 

PLOT 

0C15 

A9 

54 

LDA 

#84 

0C17 

20 

26 

oc 

JSR 

ESCPRT 

0C1A 

AE 

32 

OC 

LDX 

BTROWO 

0C1D 

AC 

33 

OC 

LDY 

RGTOFF 

0C20 

18 

CLC 

0C21 

20 

FO 

FF 

JSR 

PLOT 

0C24 

A9 

42 

LDA 

#66 

0C26 

48 

ESCPRT 

PHA 

0C27 

A9 

IB 

LDA 

#27 

0C29 

20 

D2 

FF 

JSR 

CHROUT 

0C2C 

68 

PLA 

OC2D 

4C 

D2 

FF 

JMP 

CHROUT 

0C30 

08 

TOPROW 

.BYTE 

8 

0C31 

OA 

LEFTCL 

.BYTE 

10 

0C32     08  BTROWO      -BYTE    8 

0C33     14  RGTOFF       .BYTE   20 

See  also  BIGMAP. 


Position  window  and  print  W's. 
set  up  the  window 
print  W 

again  and  again  and  again... 

Set  up  a  window  on  the  128  screen. 
top  left  position 

clear  carry  to  set  position 
set  cursor  at  -Y..X 
T  for  top  of  window 
print  ESC-T 
bottom  right 

set  position 

set  cursor  at  Y..X 

now  print  ESC-B  for  bottom  of  window 

save  character  to  print  to  the  slack 

print  ESC 

pull  character  from  stack 
print  it  and  RTS 

window's  top  left  comer  is  on  the  ninth  row 

and  eleventh  column 

The  following  two  values  are  offsets  from 

the  first  two. 

window's  bottom  right  comer  is  on  the 

seventeenth  row 

and  thirty-first  column 


WRBUFF 


Name 

Open  a  disk  buffer  and  write  a  sector  to  disk 

Description 

This  routine  copies  a  block  of  256  bytes  from  computer  mem- 
ory to  a  memory  buffer  inside  the  disk  drive.  This  is  relatively 
low-level  disk  output;  most  of  the  time  you  can  just  read  and 
write  program  or  sequential  files.  There  are  times,  however, 
when  you  will  want  to  write  directly  to  a  disk  sector  (a  disk 
editor  must  be  able  to  do  this  and  so  must  a  program  that 
"unscratches"  a  file  that's  been  accidentally  scratched). 

Prototype 

1.  OPEN  15,8,15  with  no  filename  (SETLFS,  SETNAM,  and 
OPEN). 

2.  OPEN  1,8,3  with  the  name  #  (SETLFS,  SETNAM,  and 
OPEN,  again).  This  sets  aside  a  buffer  in  disk  drive 
memory. 

3.  Write  256  bytes  to  logical  file  1,  the  buffer  (B-P  is  optional). 

4.  Send  the  U2  (block-write)  command  to  logical  file  15  to 
transfer  the  buffer  to  disk. 

5.  Close  open  channels. 

Explanation 

This  routine  depends  heavily  on  Kernal  routines;  note  the  nu- 
merous equates  at  the  top  of  the  program.  The  first  JSR  goes 
to  the  subroutine  OPEN15,  which  opens  the  command  chan- 
nel to  the  disk  and  is  the  equivalent  of  the  BASIC  command 
OPEN  15,8,15.  The  usual  SETLFS,  SETNAM,  and  OPEN 
Kernal  routines  are  called.  The  next  subroutine  opens  logical 
file  1  (with  secondary  address  of  3)  and  reserves  a  buffer  by 
using  the  special  filename  #.  At  address  $C006,  CHKOUT  sets 
up  the  buffer  to  receive  output.  Finally,  256  bytes  are  printed 
to  the  disk  buffer  via  CHROUT. 

Now  that  our  message  is  in  the  disk  buffer,  we  have  to 
write  it  from  disk  memory  to  the  disk  itself.  Again  CHKOUT 
diverts  output,  but  to  the  command  channel  15  this  time.  The 
command  we  send  (an  ASCII  string  at  the  end  of  the  program) 
is  U2  3  0  2  2.  The  U2  means  write  a  block;  3  is  the  secondary 
address  of  the  buffer  channel,  not  the  logical  file  number.  We 
opened  the  file  as  1,8,3  and  printed  to  1,  but  when  the  mem- 
ory is  copied,  we  provide  the  secondary  address  (channel  3) 
instead  of  1 .  The  next  number  (ASCII  0)  is  always  a  zero,  un- 
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less  you  happen  to  own  a  dual  drive.  The  next  two  numbers 
are  the  track  and  sector  (in  that  order). 

Note:  If  there's  a  specific  byte  or  two  you'd  like  to  change 
on  a  specific  sector,  you  should  first  read  the  sector  into  the 
disk  buffer.  Then  set  the  buffer  pointer  with  the  B-P  com- 
mand, write  the  character,  and  copy  memory  back  to  the 
appropriate  sector. 

Warning:  This  routine  writes  directly  to  a  disk  sector, 
regardless  of  what  might  already  be  there.  If  you're  going  to 
experiment  with  this  routine,  don't  use  a  disk  that  contains  im- 
portant files.  If  you  write  information  to  disk  sectors,  they  may 
be  overwritten  by  later  disk  access,  unless  you  mark  the  sector 
as  allocated  in  the  BAM. 


Routine 


cooo 

SETLFS 

= 

$FFBA 

cooo 

SETNAM 

= 

$FFBD 

cooo 

OPEN 

= 

SFFCO 

cooo 

CHKOUT 

= 

$FFC9 

cooo 

CHKIN 

— 

$FFC6 

cooo 

CHROUT 

= 

$FFD2 

cooo 

CHRIN 

■ 

$FFCT 

cooo 

CLOSE 

= 

$FFC3 

cooo 

CLRCHN 

* 

$FFCC 

cooo 

20 

47 

CO 

WRBUFF 

JSR 

OPEN1S 

;  open  command  channel 

C003 

20 

5E 

CO 

JSR 

OPNBUF 

;  open  a  buffer 

C006 

A2 

01 

LDX 

#1 

C008 

20 

C9 

FF 

JSR 

CHKOUT 

;  ready  to  tend  to  channel  1  (the  buffer) 

COOB 

90 

03 

BCC 

BUFOK 

;  carry  clear  if  no  error 

COOD 

4C 

79 

CO 

JMP 

ERROR 

;  else  print  error  message 

C010 

AU 

00 

BUFOK 

LDY 

#0 

;  index  "•  0 

C012 

B9 

BB 

CO 

WRITE 

LDA 

BLOCK.Y 

;  start  writing  to  the  buffer 

C015 

20 

D2 

FF 

JSR 

CHROUT 

;  send  it  out 

C018 

C8 

INY 

;  increment  index 

COW 

DO 

F7 

BNE 

WRITE 

;  and  go  back  for  another,  until  256  bytes 
;  are  sent 

C01B 

20 

CC 

FF 

JSR 

CLRCHN 

;  back  to  normal  I/O 

C01E 

A2 

OF 

LDX 

#15 

;  open  the  command  channel 

C020 

20 

C9 

FF 

JSR 

CHKOUT 

;  for  output 

C023 

90 

03 

BCC 

OUTOK 

;  carry  clear  ~  OK 

C025 

4C 

79 

cn 

JMP 

ERROR 

;  otherwise,  an  error 

C028 

AO 

00 

OUTOK 

LDY 

#0 

;  start  counter  at  zero 

C02A 

B9 

8E 

CO 

SENDIT 

LDA 

BLKWR.Y 

;  get  a  character 

C02D 

FO 

07 

BEQ 

Qurris 

C02F 

20 

D2 

FF 

JSR 

CHROUT 

,-  and  send  it 

C032 

C8 

INY 

;  count  up 

C033 

4C 

2A 

CO 

JMP 

SENDIT 

;  and  continue 

C036 

20 

CC 

FF 

Qurris 

JSR 

CLRCHN 

;  restore  I/O 

;  All  done,  so  close  it  down. 

C039 

A9 

01 

FINIS 

LDA 

#1 

C03B 

20 

C3 

FF 

JSR 

CLOSE 

;  close  logical  file  1 

C03E 

A9 

OF 

LDA 

#15 

COW 

20 

C3 

FF 

JSR 

CLOSE 

;  and  the  command  channel 

C043 

20 

CC 

FF 

JSR 

CLRCHN 

;  and  clear  the  channels 
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C046 

50 

RTS 

;  done 

;  subroutines 

C047 

A9 

OF 

OPEN15 

IDA 

#15 

;  logical  file  number 

C049 

A  2 

08 

LDX 

#8 

;  device  number  for  disk  drive 

C04B 

AO 

OF 

LDY 

#15 

;  secondary  address  for  command  channel 

C04D 

20 

BA 

FF 

JSR 

SETLFS 

;  set  parameters  to  be  opened 

CD50 

A9 

00 

I.  DA 

#0 

;  length  is  zero  (no  filename) 

C052 

20 

BD 

FF 

]SR 

SETNAM 

C055 

20 

CO 

FF 

JSR 

OPEN 

;  open  it 

C058 

90 

03 

BCC 

OK15 

;  check  for  error 

COSA 

4C 

79 

CO 

JMP 

ERROR 

;  print  the  message  if  there's  a  problem 

C05D 

60 

OK15 

RTS 

;  and  we're  done 

;  OPNBUF  opens  a  disk  buffer  for  writing 

C05E 

A  9 

01 

OPNBUF 

LDA 

#1 

;  logical  file  number 

C060 

A2 

06 

LDX 

#8 

;  device  number  for  disk  drive 

C062 

AO 

03 

LDY 

#3 

;  secondary  address  for  buffer  channel 

C064 

20 

BA 

FF 

JSR 

SETLFS 

C067 

A9 

01 

LDA 

#1 

;  one  character 

C069 

A2 

8D 

LDX 

#<BUFNAM 

;  the  filename  is  "#" 

C06B 

AO 

CO 

IDY 

#>BLTFNAM 

C06D 

20 

BD 

FF 

JSR 

SETNAM 

;  set  up  the  name 

C070 

20 

CO 

FF 

JSR 

OPEN 

;  now  ifs  ready 

C073 

90 

03 

BCC 

OKBUF 

;  to  OKBUF  if  no  error 

C075 

4C 

79 

CO 

JMP 

ERROR 

;  JMP  to  error  if  there  is 

C078 

60 

OKBUF 

RTS 

;  and  we're  done 

C079 

20 

cc 

FT 

ERROR 

|SR 

CLRCHN 

;  close  down  and  clear  channels 

C07G 

AO 

00 

LDY 

#0 

;  ready  to  print  message 

C07E 

B9 

9A 

CO 

MORE 

LDA 

ERRMSC.Y 

C081 

FO 

07 

BEQ 

MSGEND 

J  message  ends  with  zero 

C083 

20 

D2 

FF 

JSR 

CHROUT 

;  print  the  character 

C086 

C8 

INY 

;  increment  the  Index 

C087 

4C 

7E 

CO 

JMP 

MORE 

;  and  go  back 

COBA 

4C 

39 

CD 

MSGEND 

JMP 

FINIS 

;  finish  closing  Hies 
:  variables 

C08D 

23 

BUFNAM 

ASC 

"#" 

G08E 

55 

32 

20 

BLKWR 

.ASC 

"U2  3  0  2  2" 

U2  is  block-write  command 
3  is  secondary  address 
0  is  drive  number 
track  2.  sector  2. 


C098 

0D 

00 

.BYTE 

13.0 

C09A 

53 

4F 

to 

ERRMSG 

.ASC 

"Something  Is  wroni?  wi 

COBA 

00 

.BYTE 

0 

COBB 

BLOCK 

= 

• 

COBB 

54 

48 

49 

.ASC 

"this  is  a  string" 

C0CB 

20 

57 

48 

ASC 

"  which  we  are  writing" 

C0E0 

20 

54 

4F 

ASC 

"  to  the  disk  at  track  2" 

C0F7 

20 

53 

45 

.ASC 

"  sector  2" 

C100 

0D 

BYTE 

13 

See  also  RDBUFF. 
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Name 

Write  a  buffer  to  a  sequential  or  program  file 

Description 

WRITBF  relies  on  three  file-handling  routines — specifically, 
OPENFL,  WRITFL,  and  CLOSFL— to  write  a  data  buffer  to 
disk.  This  buffer,  whose  address  is  in  zero  page,  can  be  writ- 
ten as  either  a  sequential  or  a  program  file. 

Prototype 

In  the  calling  program  (MAIN,  below): 

1.  Define  the  length  of  the  data  buffer  to  write  to  disk  (as 
LENGTH). 

2.  On  the  128,  set  the  bank  to  15.  On  both  machines,  store  the 
address  of  the  data  buffer  in  zero  page.  Then  place  the 
buffer  length  in  the  .X  and  .Y  registers  (low  byte  in  .X,  high 
byte  in  .Y).  Finally,  JSR  to  WRITBF. 

In  WRITBF  itself: 

3.  Store  the  buffer  length,  in  .X  and  .Y  upon  entry,  into  a  two- 
byte  address  (here,  BUFCTR). 

4.  Open  a  sequential  or  program  filename  with  OPENFL. 

5.  Write  the  data  buffer  to  the  open  file  with  WRITFL. 

6.  Close  the  open  file  with  CLOSFL. 

Explanation 

In  the  example  program,  we  use  WRITBF  to  write  the  buffer 
containing  the  message  FILE  SEQUENTIAL  IS  37  CHARAC- 
TERS LONG  to  disk  as  a  sequential  file.  See  WRITFL  for  an 
explanation  of  how  to  write  a  program  file. 

Although  it  may  look  like  a  long  routine,  WRITBF  is  very 
short.  The  buffer  length  that  is  in  .X  (low  byte)  and  .Y  (high 
byte)  upon  entry  is  immediately  stored  in  BUFCTR.  From  this 
point  on,  it's  just  a  matter  of  accessing  the  three  routines  de- 
scribed elsewhere  in  this  book. 

Note:  You  can  add  disk  error  checking  to  this  program  by 
including  DERRCK,  as  we've  done  for  several  other  disk- 
related  routines  in  this  book. 

Routine 

cooo 


SETLfS 

= 

65466 

SETNAM 

= 

65469 

OPEN 

— 

65472 

CHKOUT 

=* 

65481 

CHROUT 

— 

65490 

CLOSE 

= 

65475 
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cooo 
cooo 
cooo 


CLRCHN  = 

ZP  = 

SETBNK  = 

MMUREG  = 


65484 

251 

65384 

65280 


COOO 


MAIN 


COOO 

A9 

71 

LDA 

=<BUFFER 

C002 

85 

FB 

STA 

ZP 

C004 

AO 

CO 

LDY 

=>BUFFER 

C006 

84 

FC 

STY 

ZP+1 

C008 

AE 

96 

CO 

LDX 

LENGTH 

COOB 

AC 

97 

CO 

LDY 

LENGTH +1 

CODE 

20 

12 

CO 

JSR 

WRITBF 

con 

60 

RTS 

C012 

8E 

98 

CO 

WRITBF 

STX 

BDFCTR 

C015 

8C 

9<) 

CO 

STY 

BUFCTR  +  ] 

coie 

20 

23 

CO 

JSR 

OPENFL 

C01B 

20 

39 

CO 

JSR 

WRITFL 

COIE 

A9 

01 

LDA 

#1 

C020 

4C 

5B 

CO 

JMP 

CtOSFL 

OPEN'FL 


C023  A9  01 

C025  A2  08 

C027  AO  02 

C029  20  BA    FF 


LDA  #1 

LDX  *8 

LDY  #2 

)SR  SETLFS 


C02C    A9    10 
C02E     A2    61 


LDA      *FNLENG 
LDX       *<HLENM 


Kernal  bank  number  for  data  and  filename 

(128  only) 

MMU  configuration  register  (128  only) 

WRITBF  uses  the  following  three  routines 
to  write  characters 

from  a  buffer  in  memory  to  a  sequential  or 
program  file: 

OPENFL  to  open  the  sequential/program 

file, 

WRITFL  to  write  characters  to  the  file,  and 

CLOSFL  to  dose  the  file  and  restore 

the  default  output  device. 

Enter  WRITBF  with  buffer  address  in  zero 
page,  length  in  .X,  .Y. 

LDA  jp0;  set  the  128  to  bank  15  (128  only) 

STA  MMUREG;  (128  only) 

store  address  of  buffer  to  zero  page 


store  length  of  buffer  in  .X  (law)  and  .Y 
(high) 


go  write  data  to  file 


WRITBF  opens  a  5EQ  or  PRG  file  data 

from  buffer  at  ZP. 

Enter  the  routine  with  buffer  length  in  .X 

(low  byte)  and  Y  (high). 

store  length  of  buffer  (in  .X  and  .Y)  to 

memory 

OPEN  the  file  with  parameters  1,8,2 
write  data  from  buffer  to  open  Hie 
file  to  close 

close  Hie  1,  reslore  default  devices,  and 
return  to  MAIN 

OPENFL  opens  a  sequential  or  program  file 
with  1,8,2  for  reading  or  writing. 

Open  channel  15  here  if  you  include  error 
checking  (DERRCK). 

logical  file  1 

device  number  for  disk  drive 

secondary  address  (2-14  are  OK) 

file  parameters  set 

Include  the  following  three  instructions  on 

the  128  only. 

LDA  BNKNUM;  bank  number  for  file  data 

LDX  BNKFNM;  bank  number  for  ASCII 

filename 

JSR  SETBNK 

length  of  filename 
address  of  filename 
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C030    AO   CO 

LDY 

#>FILENM 

C032     20     BD    FF 

ISR 

SETNAM 

C035     20     CO    FF 


C038     60 


JSR 


RT5 


OPEN 


C039 

A2 

01 

WRITFL 

LDX 

#1 

C03B 

20 

C9    FF 

JSR 

CHKOUT 

C03E 

AO 

00 

LDY 

"0 

C040 

Bl 

FB 

WRLOOP 

LDA 

(ZP),Y 

C042 

20 

D2 

FF 

]SR 

CHROUT 

C045 

E6 

FB 

INC 

ZF 

C047 

DO 

02 

BNE 

LENCHK 

C049 

E6 

FC 

INC 

ZP+1 

C04B 

CE 

98 

CO 

LENCHK 

DEC 

BLIFCTR 

C04E 

DO 

FO 

BNE 

WRLOOP 

C050 

CE 

99 

CO 

DEC 

BUFCTR+1 

C053 

AD 

99 

CO 

LDA 

BUFCTR+1 

C056 

C9 

FF 

CMP 

#255 

C058 

DO 

E6 

BNE 

WRLOOP 

C05A 

60 

RTS 

C05B 

20 

C3 

FF 

CLOSFL 

JSR 

CLOSE 

C05E 

4C 

CC 

FT 

JMF 

CLRCHN 

set  up  filename 

open  the  fde  for  writing 

ISR  DERRCK;  Insert  here  for  disk  error 
checking 

return  to  WRITBF 

WRTrFL  writes  characters  from  a  buffer 
whose  address  is  in  zero  page 
to  a  sequential  or  program  file. 

:  send  output  to  file  1 

:  Include  the  following  four  lines  to  send  the 

.  load  address  for  a  program  file. 

i  LDA  ZP;  output  low/high-byte  address  of 

:  buffer  in  zero  page  to  disk 

;  JSR  CHROUT 

;  LDA  ZP+1 

:  ISR  CHROUT 

;  initialize  index  into  the  storage  buffer 

;  load  a  character  from  buffer 

;  send  it  to  the  open  file 

;  Increment  low  byte  of  buffer  address 

:  low  byte  hasn't  turned  over,  so  skip  forward 

;  otherwise,  increase  high  byte 

;  decrement  low  byte  of  buffer  counter 

;  i(  not  equal,  more  of  the  buffer  remains,  so 

;  continue  writing 

:  otherwise,  decrement  the  high  byte  of 

;  buffer  counter 

!  continue  writing  until  last  page  of  buffer 

:  has  been  sent 

;  high  byte  goes  from  0  through  255  on  last 


C06I      30     3A    53     FILENM         .ASC 


C071 


FNLENC 


:  we've  yet  to  reach  last  page,  so  write  on 
:  return  to  WRTTBF 

:  CLOSFL  closes  the  logical  file  in  .A  and 

:  restores  default  devices. 

:  close  file  in  .A 

;  clear  all  channels,  restore  default  devices, 

; and  RTS 

:  Insert  DERRCK  routine  here  if  you're 
;  including  error  checking. 


"0:SEQUENTIAL,S,W" 

;  example  sequential  file  to  write 

;  ,S,W  is  optional  with  sequential  file  writes. 

;  Change  Filename  to  "O.PROGRAM.F.W"  to 

;  write  a  program  file. 
•-FILENM  :  length  of  filename 
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C07) 

46 

49 

■4C    BUFFER 

C096 

25 

00 

LENGTH 

C098 

00 

00 

BUFCTR 

WRITBF 


.ASC      "FILE  SEQUENTIAL  IS  37  CHARACTERS  LONG- 
WORDS?  ;  two  bytes  for  storing  buffer  length 
.WORD0                       ;  two-byte  counter  for  remaining  number  of 
:  bytes  to  write 

Include  the  next  two  variables  on  the  128. 

BNKNUM  .BYTE  0;  bank  number  for  file 

data 

BNKFNM  .BYTE  0;  bank  number  where 

ASCII  filename  is  located 


See  also  CLOSFL,  WRITFL. 
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Name 

Send  characters  to  a  sequential  or  program  file 

Description 

This  routine  transfers  data  from  a  buffer  whose  address  is  in 
zero  page  to  an  open  file.  It's  intended  to  be  used  in  a  pro- 
gram where  sequential  or  program  data  is  written  to  disk,  such 
as  WRITBF. 

Prototype 

1 .  Before  accessing  WRITFL,  call  OPENFL  to  open  a  channel 
where  the  data  will  be  written.  Also,  store  the  address  of 
the  data  buffer  to  be  written  to  disk  in  zero  page. 

2.  Define  the  output  channel  as  the  one  opened  with 
CHKOUT. 

3.  If  you're  outputting  a  program  file  and  wish  to  include  a 
program  load  address,  send  the  buffer  address  bytes  (low 
byte  first,  then  high  byte)  stored  in  zero  page. 

4.  Write  a  given  number  of  bytes  (the  number  is  stored  in  the 
counter  BUFCTR)  from  the  buffer  to  the  open  channel. 
Then  return  to  the  calling  program. 

Explanation 

WRITFL  takes  data  from  a  buffer  and  outputs  it  to  an  open 
disk  file  until  BUFCTR  bytes  have  been  sent.  The  routine  as- 
sumes the  data  buffer's  address  is  in  zero  page  (in  $FB,  labeled 
ZP).  Be  sure  to  set  up  this  pointer  before  accessing  WRITFL. 

In  the  example  below,  the  logical  file  used  for  the  transfer 
is  1.  This  file  number  should  have  been  assigned  previously 
by  a  routine  that  opened  the  data  channel.  If  you  need  to  out- 
put data  through  some  other  channel,  such  as  the  printer  or 
tape  drive,  load  the  X  register  with  the  appropriate  value  in 
$C000. 


Routine 

cooo 


CHKOUT  = 
CHROUT  = 
ZP 


65481 
65490 
251 


COOO     A2    01  WRITFL 

C002     20     C9    FF 


LDX       #1 

JSR        CHKOUT 


WRITFL  writes  characters  from  a  buffer 
whose  address  is  in  zero  page 
to  a  sequential  or  program  file. 

send  output  lo  file  1 

Include  the  following  four  lines  to  send 
the  load  address. 

LDA  ZP;  output  low/high  byte  address  of 
buffer  in  zero  page  to  disk 
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COOS  AO    00 

C007  Bl     FB  WRLOOP 

COOT  20     D2    FF 

COOC  E6    FB 

COOE  DO    02 

C010  E6    FC 

C012  CE    22     CO    tENCHK 

C01S  DO    FO 

C017  CE    23     CO 

C01A  AD  23     CO 

C01D  C9    FF 

COIF  DO    E6 

C021  60 


LDY  #0 

LDA  <ZP),Y 

JSR  CHROUT 

INC  ZP 

BNE  IENCHK 

INC  ZP+1 

DEC  BUFCTR 

BNE  WRLOOP 

DEC  BUFCTR+1 

LDA  BUFCTR+1 

CMP  #253 

BNE  WRLOOP 
RTS 


C022     00    00 


BUFCTR       ,WORD0 


VVRITFL 


JSR  CHROUT 
LDA  ZP+1 
JSR  CHROUT 

initialize  index  into  Ihe  storage  buffer 

load  a  character  from  buffer  whose 

address  is  in  ZP 

send  it  to  the  open  file 

increment  low  byte  of  buffer  address 

low  byte  hasn't  rolled  over,  so  skip 

forward 

otherwise,  increase  high  byte 

decrement  low  byte  of  buffer  counter 

if  not  equal,  more  of  the  buffer  remains, 

so  continue  writing 

otherwise,  decrement  the  high  byte  of 

buffer  counter 

continue  writing  until  last  page  of  buffer 

has  been  sent 

high  byte  goes  from  0  to  255  on  last  page 

we've  yet  to  reach  last  page,  so  write  on 

return  to  main  program 

two-byte  counter  for  remaining  number  of 
bytes  to  write 


See  also  CLOSFL,  WRITBF. 
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Name 

Set  colors  for  extended  background  color  mode 

Description 

Extended  background  color  mode  reduces  the  size  of  the  avail- 
able character  set  from  256  characters  to  only  64.  But  at  the 
same  time,  you  have  a  choice  of  four  different  background  col- 
ors, with  no  loss  of  horizontal  resolution.  This  routine  sets  the 
four  background  colors. 

Prototype 

Read  the  four  color  values  from  EXBCOL  and  store  them 
beginning  at  location  53281  (BGCOLO). 

Explanation 

To  set  the  background  colors,  assign  the  color  values  for  the 
four  groups  of  characters  (0-63,  64-127,  128-191,  and  192- 
255)  in  EXBCOL  at  the  end  of  the  program. 

The  program  fragment  below  illustrates  how  the  four  col- 
ors are  set.  For  a  complete  example  of  extended  background 
color  mode,  see  XBCMOD. 

Routine 


cooo 

BGCOLO 

= 

53261 

;  text  background  color 

cooo 

A2 

03             XBCCOL 

LDX 

#3 

;  u  an  index 

C002 

BD 

OC    CO    COLOOP 

IDA 

EXBCOLX 

;  get  each  color  value 

C005 

9D 

21      DO 

STA 

BGCOLO.X 

;  assign  it  to  a  register 

coos 

CA 

DEX 

;  for  next  register 

C009 

10 

F7 

BPL 

COLOOP 

;  do  all  four 

COOB 

60 

RTS 

COOC    03     04     05     EXBCOL        .BYTE    3,4.5,2  ;  colors — cyan,  purple,  green,  red 

See  also:  XBCMOD,  MTCCOL,  MTCMOD. 
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Name 

Turn  extended  background  color  mode  on  or  off 

Description 

Two  closely  related  routines  are  demonstrated  here  in  one  pro- 
gram. The  first  routine,  XBCMOD,  turns  on  (or  off)  extended 
background  color  mode  while  the  second,  XBCCOL,  sets  the 
colors  for  this  mode. 

By  using  these  two  routines  in  your  programs,  some  in- 
teresting special  effects  can  be  achieved. 

Prototype 

1.  Load  the  contents  of  the  vertical  fine-scrolling/control  reg- 
ister at  53265  (SCROLY)  into  the  accumulator. 

2.  ORA  with  %01000000  to  turn  on  bit  6  and  store  the  result 
back  into  the  register.  (To  turn  off  extended  background 
color  mode,  AND  the  contents  of  SCROLY  with  %10111111.) 

Explanation 

Normally,  the  background  color  for  text  characters  is  taken 
from  the  color  register  at  53281,  or  BGCOLO.  But  by  activating 
extended  background  color  mode  (setting  bit  6  of  SCROLY), 
each  character's  background  color  is  instead  taken  from  one  of 
four  color  registers  (53281-53284),  depending  on  the  screen 
code  of  the  character  to  be  displayed. 

In  this  mode,  the  screen  codes  are  divided  into  four 
groups:  0-63,  64-127,  128-191,  and  192-255.  Only  characters 
from  the  first  group  (screen  codes  0-63)  can  be  displayed. 
Fortunately,  this  group  contains  most  of  the  characters  you  or- 
dinarily need  (you  may  wish  to  define  new  characters  if  you'd 
rather  use  64  other  characters).  Within  this  group  are  the  let- 
ters A-Z,  the  numbers  0-9,  and  the  punctuation  marks.  When 
one  of  the  characters  from  this  group  is  printed,  the  back- 
ground color  for  the  character  is  taken  from  BGCOLO. 

Characters  with  screen  codes  above  63  will  appear  the 
same  as  the  first  group  (screen  codes  0-63),  except  that  their 
background  colors  will  come  from  one  of  the  three  remaining 
color  registers  (53282-53284).  To  determine  what  a  particular 
character  will  look  like  on  the  screen  if  its  display  code  is 
higher  than  63,  subtract  the  initial  screen  code  for  the  group 
from  the  intended  display  code  and  locate  the  corresponding 
character  in  the  first  group  of  screen  codes. 

For  example,  if  you  placed  the  spade  character  (screen 
code  65)  on  the  screen,  and  turned  on  extended  background 
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color  mode,  you'd  see  the  letter  A  (screen  code  65  —  64  =  1) 
in  a  background  color  taken  from  the  register  at  53282 
(BGCOL1). 

The  fact  that  each  group  of  screen  codes  has  a  different 
background  color  in  this  mode  allows  you  to  create  some 
impressive  animation  and  windowing  effects.  For  instance,  if 
you  place  characters  from  each  of  the  four  screen-code  groups 
on  the  screen  at  once,  and  cycle  the  color  values  in  each 
group's  color  register,  a  three-dimensional  movement  effect 
can  be  achieved.  You  can  also  simulate  a  window  by  printing 
certain  messages  using  characters  from  just  one  screen-code 
group.  These  effects,  of  course,  take  on  an  added  dimension  if 
you  use  redefined  characters. 

Take  a  look  at  the  example  program  to  see  how  these  two 
routines  work  together.  In  SCRLOP,  we  first  display  all  screen 
codes  (0-255)  at  the  top  of  the  screen.  When  you  press  a  key, 
extended  background  color  mode  is  activated  with  XBCMOD, 
and  the  respective  colors  for  the  four  groups  of  screen  codes 
are  assigned  in  XBCCOL.  The  result  is  that  the  first  64  screen 
codes  are  now  displayed  four  times.  And  each  group  of  screen 
codes  is  shown  in  a  different  background  color. 

Note:  While  in  extended  background  color  mode,  if  you 
need  a  character  not  available  in  the  first  64  screen  codes, 
you'll  have  to  define  it  yourself.  You  can  perform  this  task 
with  a  character-redefinition  routine  like  CHRDEF. 


Routine 


cooo 

BGCOL0 

— 

53281 

;  text  background  color  register  0 

cooo 

SCROLY 

= 

53265 

;  scroll /control  register 

cooo 

SCREEN 

— 

1024 

cooo 

CHROUT 

= 

65490 

cooo 

GETIN 

= 

65508 

COOO 

20 

03 

CO 

MAIN 

JSR 

CHRCLR 

;  dear  screen,  display  0-255  screen  codes. 
;  and  wait  for  key 

;  Clear  the  screen  and  display  0-255  screen 
;  codes. 

C003 

A9 

93 

CHRCLR 

LDA 

#147 

;  clear  the  screen 

C005 

20 

D2 

FF 

JSR 

CHROUT 

C008 

A0 

00 

LDY 

#0 

;  as  an  index  in  SCRLOP 

CO0A 

98 

SCRLOP 

TYA 

C00B 

99 

00 

04 

STA 

SCREEN.Y 

;  display  0-255  screen  codes  in  normal  mode 

C00E 

C8 

1NY 

;  for  next  screen  code 

C00F 

DO 

F9 

BNE 

SCRLOP 

;  and  continue 

C011 

20 

E4 

FF 

CETKEY 

JSR 

GETIN 

;  wait  for  a  keypress 

C014 

F0 

FB 

BEQ 

GETKEY 

;  if  no  keypress,  then  wail 

Display  screen  codes  0-255.  Then  turn  on 
extended  background  color  mode. 
set  extended  background  colors,  and  again 
display  screen  codes  0-255. 
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C016 

20     1C    CO 

JSR 

XBCMOD 

C019 

4C    25     CO 

JMP 

XBCCOL 

C01C    AD  11      DO    XBCMOD     LDA      SCROLY 
COIF     09     40  ORA     #%01000000 


C021 

8D 

11 

DO 

STA 

SCROLY 

C024 

60 

RTS 

C025 

A2 

03 

XBCCOL 

LDX 

#3 

C027 

BD 

31 

CO 

COLOOP 

LDA 

EXBCOL.X 

C02A 

9D 

21 

DO 

STA 

BGCOL0,X 

C02D 

CA 

DEX 

C02E 

10 

F7 

BPL 

COLOOP 

C030 

60 

RTS 

turn  on  extended  background  color  mode 
assign  extended  background  colors  and  RTS 

Tum  on  (or  off)  extended  background  color 

mode. 

get  current  register  value 

turn  on  bit  6  (torn  off  with  AND 

%10U1U1  here) 

and  set  the  register 


Assign  4  colors  to  extended  background 

color  registers  53281-53284. 

as  an  Index 

get  each  color  value 

assign  it  to  a  register 

for  next  register 

do  all  four 


C031     03     04     05     EXBCOL        .BYTE    3.4.5.2  :  colors— cyan,  purple,  green,  red 

See  also  XBCCOL,  MTCCOL,  MTCMOD. 
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Addition 

ADDBYT 

ADDFP 

ADDINT 

INC2 

Branching 

GOTOCP 

GOTOST 


Add  two  byte  values  and  store  the  result  in  memory 
Add  two  floating-point  numbers,  using  the  ROM  routine 
Add  two  2-byte  integer  values  and  store  the  result  in  memory 
Increment  a  two-byte  counter 


GOTO  from  a  character  input  using  sequential  compares  and 

branches 

GOTO  from  a  character  input  and  execute  using  the  stack 


Changing  BASIC  pointers 

MBU64  (64  only)  Move  BASIC  text  area  above  an  ML  program 

MBU128  (128  only)  Move  BASIC  text  area  above  an  ML  program 

Character  input 

BUFCLR  Clear  the  keyboard  buffer 

CHRGTR  Get  a  character  within  an  ASCII  range 

CHRGTS  Get  a  specific  character 

CHRKER  Get  a  character 

MATGET  Get  a  character  using  the  keyboard  matrix 

SHFCHK  Check  the  status  of  the  shift' keys 

STPFLG  Check  for  STOP  key  by  using  the  system  STOP  flag 

STPKER  Check  for  the  STOP  key  using  the  Kernal  STOP  routine 

TXTCIN  Input  a  line  of  text  using  a  custom  routine 

TXTIIMP  Input  a  line  of  text  with  the  ROM  routine  INLIN 

Character  output 

CHARX4  Print  semilarge  (4  X  4)  characters 

CHARX8  Print  large  (8  X  8)  characters 

POKSCR  POKE  to  screen  and  color  memory 

PRTCHR  Print  a  character  on  the  screen 

PTABAD  Print  a  string  from  a  lookup  table  of  addresses 

PTABCT  Print  a  string  from  a  table  by  using  a  counting  method 

STP64  (64  onlv)  Print  a  string  withSTROUT 

STP128  (128  only)  Print  a  string  with  PRIMM 

STRCPT  Print  a  string  with  a  custom  printing  routine 

STRLEN  Determine  string  length 

Clearing  the  screen 

CLRCHR  Clear  the  screen  with  CHR$(147) 

CLRF1L  Clear  the  screen  with  a  fill  routine 

CLRROM  Clear  the  screen  with  a  ROM  routine 


Colors 

BCKCOL 
BORCOL 
COLFIL 
MTCCOL 


Set  the  text-screen  background  color 
Set  the  text-screen  border  color 
Fill  text-screen  color  memory 
Set  colors  for  multicolor  mode 
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MTCMOD  Turn  multicolor  mode  on  or  off 

TXTCCH  Set  the  text  color  using  CHR$ 

TXTCOL  Set  the  text  color 

XBCCOL  Set  colors  for  extended  background  color  mode 

XBCMOD  Turn  extended  background  color  mode  on  or  off 

Combining  ML  and  BASIC 

GOTOBL        Exit  machine  language  and  GOTO  a  BASIC  line  number 
Pass  values  from  BASIC  to  ML  using  the  FRMEVL  routine 
Pass  values  from  BASIC  to  ML  by  POKEing  to  free  memory 
Pass  values  to  an  ML  program  directly  through  the  registers 
Pass  values  from  BASIC  to  ML  via  the  USR  function 


PASFMV 
PASMEM 
PASREG 
PASUSR 


Cursor  routines 

FINDCR  Find  the  cursor  location 

PLOTCR         Set  the  cursor  location 
RPTKEY        Set  repeat  key  flag 

Custom  characters  and  animation 

ANIMAT        Animation  by  alternating  character  sets 

CHRDEF        Character  redefinition 

CUST80  (128  only)  Custom  characters  for  the  80-column  screen 

Delay  loops 

BYT1DL 

BYT2DL 

INTDEL 

JIFDEL 

KEYDEL 

TOD1DL 


Cause  a  one-byte  delay 

Cause  a  two-byte  delay 

Produce  a  delay  using  an  IRQ  interrupt  counter 

Jiffy  clock  delay 

Wait  for  a  keypress 

Time-of-day  (TOD)  clock  1  delay- 


Directory  routines 

DIRBYT         Read  the  directory  as  a  stream  of  bytes 

DIRPRG  Load  the  directory  as  a  program  file 

FRESEC  Print  the  number  of  free  sectors  remaining  on  the  disk 

Disk  commands 

CONCAT  Concatenate  two  files 

COPYFL  Copy  a  file  to  the  same  disk 

FORMAT  Format  a  disk 

INITLZ  Initialize  a  disk 

RENAME  Rename  a  disk  file 

SCRTCH  Scratch  (erase)  a  disk  file 

VALIDT  Validate  a  disk 


Division 

DIVBYT 

DIVFP 
DIVINT 


Divide  one  byte  value  by  another  and  store  the  result  (and 

remainder)  in  memory 

Divide  one  floating-point  number  by  another 

Divide  one  integer  value  by  another 
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80-column  routines  (128  only) 

CUST80  (128  only)  Custom  characters  for  the  80-column  screen 

RE80CO/ 

WR80CO        (128  only)  Read  and  write  to  the  80-column  video  chip 

VDCCOL       (128  only)  Write  to  80-column  video  attribute  memory 

Handling  registers 

FINDME        Find  the  address  in  the  program  counter  (from  a  subroutine) 
FINDPC         Find  the  address  in  the  program  counter  (in-line  code) 
RSREGM        Restore  registers  from  memory 
SVREGM       Save  processor  registers  in  memory 

SVREGS        Save  and  restore  registers  on  the  stack  within  a  routine  (in-line 
code) 

Hi-res  graphics 

BITMAP         Enable/disable  the  hi-res  screen  (bitmap  mode) 

CLRHRF         Clear  a  hi-res  screen  using  a  fill  method 

CLRHRS         Clear  a  hi-res  screen  using  self-modifying  code 

HRCOLF        Fill  high-resolution  color  memory 

HRPOLR        Set  or  clear  a  point  on  the  hi-res  screen  based  on  polar 

coordinates 
HRSETP        Set  or  clear  a  point  on  the  hi-res  screen 
PAINT  Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 

Interrupt-driven  routines 

ALARM2  Set  up  a  time-of-day  (TOD)  alarm 

INTCLK  Interrupt-driven  clock 

INTMUS  Interrupt-driven  music 

RAS64  Set  up  a  raster  interrupt  on  the  64 

RAS128  Set  up  a  raster  interrupt  on  the  128 

SPRINT  Sprite  interrupt  routine — automatic  sprite  movement 

Jiffy  clock  functions 

JIFDEL  Jiffy  clock  delay 

JIFFRD  Read  the  jiffy  clock 

JIFPRT  Print  the  jiffy  clock  reading 

JIFSET  Set  the  jiffy  clock 

Joystick  routines 

FIREBT  Read  a  joystick  fire  button 

JOY2SE  Read  both  joysticks  separately 

JOY2TO         Read  the  two  joysticks  together  as  one  stick 

JOYSTK  Read  a  joystick 

Loading  files 

LOADAB        Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 

was  saved 
LOADBS         Load  a  BASIC  program  into  the  current  BASIC  text  area 
LOADRL        Load  a  BASIC  or  ML  program  at  a  designated  memory  address 
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Lookup  tables 

H I D  811  Hide  a  two-byte  instruction  with  the  BIT  instruction 

Create  a  table  of  standard  frequencies  (eight  octaves/ 12  notes 

each) 

Print  a  string  from  a  lookup  table  of  addresses 

Print  a  string  from  a  table  by  using  a  counting  method 


NOTETB 

PTABAD 
PTABCT 


Memory  management 

FETCH  (128  only)  Retrieve  from  expansion  RAM  memory 

FILMEM  General  memory  fill 

MOVEDN  Move  block  of  data  downward  in  memory 

MVU64  (64  only)  Move  block  of  data  upward  in  memory 

MVTJ128  (128  only)  Move  block  of  data  upward  in  memory 

POKRUR/ 

PEKRUR  (64  only)  POKE  RAM  under  ROM  /  PEEK  RAM  under  ROM 

STASH  (128  only)  Store  system  memory  to  expansion  RAM 

SWAPIT  Memory  swap 

Modifying  BASIC 

DATAMK       Create  DATA  statements  from  numbers  in  memory 
RENUM1       Simple  renumber  routine  (line  numbers  only) 

Multiplication 

MULAD1        Multiply  two  numbers  with  successive  adds 

MULAD2       Multiply  two  numbers  with  repeated  addition  (optimized 

version) 
MULFP  Multiply  two  floating-point  numbers 

MULSHF       Multiply  two  unsigned  integer  values  using  bit  shifts 


Number 

B2SNIN 
B2UNIN 

BCD2AX 

BCD2BY 

CAS2IN 

CB2ASC 

CB2BCD 

CB2HEX 

CI2FP/ 

CFP21 

CI2HEX 

CNVBFP 


conversions 

Convert 

Convert 

bits) 

Convert 

Convert 

Convert 

Convert 

Convert 

Convert 


a  signed  byte  value  to  a  signed  integer  value 

a  byte  value  (8  bits)  to  an  unsigned  integer  value  (16 

a  binary-coded  decimal  value  to  ASCII  characters 

binary-coded  decimal  (BCD)  to  a  byte  value 

an  ASCII  number  to  a  binary  Integer 

a  byte  value  to  an  ASCII  number  by  using  subtraction 

a  byte  value  (0-99)  to  a  BCD  number 

a  byte  value  to  two  hexadecimal  digits  (ASCII) 


Convert  signed  integer  values  to  floating  point  and  vice  versa 

Convert  a  two-byte  integer  value  to  four  hexadecimal  (ASCII) 

digits 

Convert  a  two-byte  value  to  floating-point,  using  the  ROM 

routine 


Printer  routines 

CLOSFL         Close  a  file  and  restore  default  devices 
OPENPR        Open  a  printer  channel 
PRTOUT        Send  characters  to  the  printer 
PRTSTR         Send  a  string  to  the  printer 
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Printing  numbers 

BYTASC  Print  a  one-byte  integer  value 

CNUMOT      Print  a  two-byte  integer  value 

FACPRD         Print  value  in  floating-point  accumulator  1  to  a  specified  num- 
ber of  decimal  places 
FACPRT  Print  value  in  floating-point  accumulator  1 

NUMOUT     Print  two-byte  integer  values 

Random  numbers 

RD2BYT        Generate  a  random  two-byte  integer  value  using  SID  voice  3 
RDBYRG        Generate  a  random  one-byte  integer  value  in  a  range 
RND1VL        Generate  a  random  floating-point  number  using  BASIC'S 

RND(l)  function 
RNDBYT        Generate  a  random  one-byte  integer  value  (0-255)  using  SID 

voice  3 

Reading  files 

OPENFL        Open  a  sequential  or  program  file 

READBF        Read  bytes  from  a  sequential  or  program  file  into  a  buffer 

READFL         Read  characters  from  a  sequential  or  program  file 

Reading  the  error  channel 

CHK144  Check  peripheral  status  via  location  144 

DERRCK        Check  the  disk  status  and  print  a  message 

RDSTAT        Check  the  I/O  status  by  using  the  Kemal  READST  routine 

Read/write  disk  sector 

RDBUFF        Open  a  disk  channel,  read  a  sector,  copy  the  disk  buffer  to 

memory 
WRBUEF        Open  a  disk  buffer  and  write  a  sector  to  disk 

Relocating  the  screen 

CHOUTP       Change  the  target  screen  memory  address  for  CHROUT 
VICADR        Change  the  text  screen  location 
VIDBNK        Change  the  video  bank 

Reset  routines 

COLDST        Cold  start 
WARMST       Warm  start 

Saving  files 

SAVEBS  Save  a  BASIC  program 

SAVEML        Save  an  ML  program 
VERIFY  Verify  a  disk  file 

Scrolling 

BIGMAP        Display  in  a  virtual  window  portions  of  a  much  larger  map 

SCRDN1         (64  only)  Scroll  down  a  line  with  INST  character 

SCRDN2         (64  only)  Scroll  the  screen  down  a  line  with  the  ROM  insert 

routine 
SCRDN3        Scroll  down  a  line  of  the  screen  by  copying  screen  and  color 

memory 
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Searches 

SRCBIN 
SRCLIN 

Sorting 

ALPNTR 
ALSWAP 
SRCBIN 


Binary  search  of  a  sorted  list 

Linear  search  for  a  string  or  other  value 


Alphabetize  by  swapping  pointers 

Alphabetize  a  list  by  swapping  strings  that  are  out  of  order 

Binary  search  of  a  sorted  list 


Sound  and  music 

BEEPER         Emit  a  beep  sound 

BELLRG         Emit  a  bell  sound 

EXPLOD         Produce  an  explosion  sound 

INTMUS         Interrupt-driven  music 

MELODY        Tune  player 

NOTETB        Create  a  table  of  standard  frequencies  (eight  octaves/ 12  notes 

each) 
SIDCLR         Clear  the  SID  chip 
SIDVOL  Set  the  SID  chip  volume  register 

SIRENS  Produce  a  siren  sound 


Sprites 

MOVSAB 
RAS64 
RAS128 
SPRINT 


Move  sprite  to  an  absolute  (predetermined)  screen  location 

(64  only)  Set  up  a  raster  interrupt 

(128  only)  Set  up  a  raster  interrupt 

Sprite  interrupt  routine — automatic  sprite  movement 


Square  roots 

SQROOT        Calculate  the  integer  square  root  of  an  integer 

String  conversions 

CASSCR  Convert  Commodore  ASCII  characters  into  screen  codes 

CASTAS  Convert  Commodore  ASCII  characters  to  true  ASCII 

CNVERT  Character  conversion  using  a  lookup  table 

MIXLOW  Convert  mixed-case  characters  to  all  lowercase 

MIXUPP  Convert  mixed-case  characters  to  all  uppercase 

SCRCAS  Convert  screen  codes  to  Commodore  ASCII  characters 

SWITCH  Switch  uppercase  to  lowercase  and  vice  versa 

TASCAS  Convert  characters  from  true  ASCII  to  Commodore  ASCII 

Subtraction 

SUBBYT  Subtract  one  byte  value  from  another 

SUBFP  Subtract  one  floating-point  number  from  another 

SUBINT  Subtract  one  2-byte  integer  value  from  another 

Time  of  day 

ALARM2 

INTCLK 

TOD1DL 

TOD1RD 

TOD2PR 

TOD2ST/ 

TOD1ST 
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(TOD)  clock  functions 

Set  up  a  time-of-day  (TOD)  alarm 
Interrupt-driven  clock 
Time-of-day  (TOD)  clock  1  delay 
Read  a  time-of-day  (TOD)  clock' 
Print  the  time-of-day  (TOD)  time 

Set  a  time-of-day  (TOD)  clock 
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Vectors 

DISRSR 

DISTOP 

ERRRDT 

IRQINT 

NMUNT 

RSTVEC 


Disable  RUN/STOP-RESTORE 

Disable  the  STOP  key  by  changing  the  STOP  vector 

Change  the  ERROR  vector 

Set  up  an  IRQ  interrupt  routine 

Set  up  an  NMI  interrupt  routine 

Restore  all  Kernal  indirect  vectors 


Windows 

BIGMAP  Display  in  a  virtual  window  portions  of  a  much  larger  map 

WPNDOW  (128  only)  Set  window  boundaries  with  escape  codes 

Writing  files 

CLOSFL  Close  a  file  and  restore  default  devices 

WRITBF  Write  a  buffer  to  a  sequential  or  program  file 

WR1TFL  Send  characters  to  a  sequential  or  program  file 
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ADDBYT  Add  two  byte  values  and  store  the  result  in  memory 

ADDFP  Add  two  floating-point  numbers,  using  the  ROM  routine 

ADDINT  Add  two  2-byte  integer  values  and  store  the  result  in  memory 

ALARM2  Set  up  a  time-of-day  (TOD)  alarm 

ALPNTR  Alphabetize  by  swapping  pointers 

ALSWAP  Alphabetize  a  list  by  swapping  strings  that  are  out  of  order 

ANIMAT  Animation  by  alternating  character  sets 

B2SN1N  Convert  a  signed  byte  value  to  a  signed  integer  value 

B2UNIN  Convert  a  byte  value  (8  bits)  to  an  unsigned  integer  value  (16 

bits) 

BCD2AX  Convert  a  binary-coded  decimal  value  to  ASCII  characters 

BCD2BY  Convert  binary-coded  decimal  (BCD)  to  a  byte  value 

BCKCOL  Set  the  text-screen  background  color 

BEEPER  Emit  a  beep  sound 

BELLRG  Emit  a  bell  sound 

BIGMAP  Display  in  a  virtual  window  portions  of  a  much  larger  map 

BITMAP  Enable/disable  the  hi-res  screen  (bitmap  mode) 

BORCOL  Set  the  text-screen  border  color 

BUFCLR  Clear  the  keyboard  buffer 

BYT1DL  Cause  a  one-byte  delay 

BYT2DL  Cause  a  two-byte  delay 

BYTASC  Print  a  one-byte  integer 

CAS21N  Convert  an  ASCII  number  to  a  binary  integer 

CASSCR  Convert  Commodore  ASCII  characters  into  screen  codes 

CASTAS  Convert  Commodore  ASCII  characters  to  true  ASCII 

CB2ASC  Convert  a  byte  value  to  an  ASCII  number  by  using  subtraction 

CB2BCD  Convert  a  byte  value  (0-99)  to  a  BCD  number 

CB2HEX  Convert  a  byte  value  to  two  hexadecimal  digits  (ASCII) 

CFP21  See  CI2FP 

CHARX4  Print  semilarge  (4  X  4)  characters 

CHARX8  Print  large  (8  X  8)  characters 

CHK144  Check  peripheral  status  via  location  144 

CHOUTP  Change  the  target  screen  memory  address  for  CHROUT 

CHRDEF  Character  redefinition 

CHRGTR  Get  a  character  within  an  ASCII  range 

CHRGTS  Get  a  specific  character 

CHRKER  Get  a  character 
CT2FP/ 

CFP2I  Convert  signed  integer  values  to  floating  point  and  vice  versa 

CI2HEX  Convert  a  two-byte  integer  value  to  four  hexadecimal  (ASCII) 

digits 

CLOSFL  Close  a  file  and  restore  default  devices 

CLRCHR  Clear  the  screen  with  CHR$(147) 

CLRFIL  Clear  the  screen  with  a  fill  routine 

CLRHRP  Clear  a  hi-res  screen  using  a  fill  method 

CLRHRS  Clear  a  hi-res  screen  using  self-modifying  code 

CLRROM  Clear  the  screen  with  a  ROM  routine 
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CNUMOT  Print  a  two-byte  integer  value 

CNVBFP  Convert  a  two-byte  value  to  a  floating-point  number,  using  a 

ROM  routine 

CNVERT  Character  conversion  using  a  lookup  table 

COLDST  Cold  start 

COLFIL  Fill  text-screen  color  memory 

CONCAT  Concatenate  two  files 

COPYFL  Copy  a  file  to  the  same  disk 

CU5T80  (128  only)  Custom  characters  for  the  80-column  screen 

DATAMK  Create  DATA  statements  from  numbers  in  memory 

DERRCK  Check  the  disk  status  and  print  a  message 

DIRBYT  Read  the  directory  as  a  stream  of  bytes 

DIRPRG  Load  the  directory  as  a  program  file 

DISRSR  Disable  RUN/STOP-RESTORE 

DISTOP  Disable  the  STOP  key  by  changing  the  STOP  vector 

DIVBYT  Divide  one  byte  value  by  another  and  store  the  result  (and 

remainder)  in  memory 

DIVFP  Divide  one  floating-point  number  by  another 

D1V1NT  Divide  one  integer  value  into  another 

ERRRDT  Change  the  ERROR  vector 

EXPLOD  Produce  an  explosion  sound 

FACPRD  Print  the  value  in  floating-point  accumulator  1  to  a  specified 

number  of  decimal  places 

FACPRT  Print  the  value  in  floating-point  accumulator  1 

FETCH  (128  only)  Retrieve  from  expansion  RAM  memory 

FILMEM  General  memory  fill 

F1NDCR  Find  the  cursor  location 

F1NDME  Find  the  program  counter  (from  a  subroutine) 

FINDPC  Find  the  program  counter  (in-line  code) 

FIREBT  Read  a  joystick  fire  button 

FORMAT  Format  a  disk 

FRESEC  Print  the  number  of  free  sectors  remaining  on  the  disk 

GOTOBL  Exit  machine  language  and  GOTO  a  BASIC  line  number 

GOTOCP  GOTO  from  a  character  input  using  sequential  compares  and 

branches 

GOTOST  GOTO  from  a  character  input  and  execute  using  the  stack 

HIDBiT  Hide  a  two-byte  instruction  with  the  BIT  instruction 

HRCOLF  Fill  high-resolution  color  memory 

HRPOLR  Set  or  clear  a  point  on  the  hi-res  screen  based  on  polar 

coordinates 

HRSETP  Set  or  clear  a  point  on  the  hi-res  screen 

INC2  Increment  a  two-byte  counter 

INTTLZ  Initialize  a  disk 

INTCLK  Interrupt-driven  clock 

INTDEL  Produce  a  delay  using  an  IRQ  interrupt  counter 

INTMUS  Interrupt-driven  music 

IRQINT  Set  up  an  IRQ  interrupt  routine 

JIFDEL  Jiffy  clock  delay 

JIFFRD  Read  the  jiffy  clock 

JIFPRT  Print  the  jiffy  clock  reading 

JIFSET  Set  the  jiffy  clock 
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J0Y2SE  Read  both  joysticks  separately 

JOY2TO  Read  the  two  joysticks  together  as  one  stick 

JOYSTK  Read  a  joystick  ' 

KEYDEL  Wait  for  a  keypress 

LOADAB  Load  a  program  (ML  or  BASIC)  to  the  location  from  which  it 

was  saved 

LOADBS  Load  a  BASIC  program  into  the  current  BASIC  text  area 

LOADRL  Load  a  BASIC  or  ML  program  at  a  designated  memory  address 

MATGET  Get  a  character  using  the  keyboard  matrix 

MBU64  (64  only)  Move  BASIC  text  area  above  an  ML  program  on  the 

64 

MBU128  (128  only)  Move  BASIC  text  area  above  an  ML  program  on  the 

128 

MELODY  Tune  player 

MIXLOW  Convert  mixed-case  characters  to  all  lowercase 

MTXUPP  Convert  mixed-case  characters  to  all  uppercase 

MOVED N  Move  a  block  of  data  downward  in  memory 

MOVSAB  Move  sprite  to  an  absolute  (predetermined)  screen  location 

MTCCOL  Set  the  colors  for  multicolor  mode 

MTCMOD  Turn  multicolor  mode  on  or  off 

MLJLAD1  Multiply  two  numbers  with  successive  adds 

MULAD2  Multiply  two  numbers  with  repeated  addition  (optimized 

version) 

MULFP  Multiply  two  floating-point  numbers 

MULSHF  Multiply  two  unsigned  integer  values  using  bit  shifts 

MVU64  (64  only)  Move  a  block  of  data  upward  in  memory 

MVU128  (128  only)  Move  a  block  of  data  upward  in  memory 

NMIINT  Set  up  an  NMI  interrupt  routine 

NOTETB  Create  a  table  of  standard  frequencies  (eight  octaves/12  notes 

each) 

NUMOUT  Print  two-byte  integer  values 

OPENFL  Open  a  sequential  or  program  file 

OPENPR  Open  a  printer  channel 

PAINT  Fill  an  irregular  hi-res  enclosed  outline  with  a  solid  color 

PASFMV  (64  only)  Pass  values  from  BASIC  to  ML  using  the  FRMEVL 

routine 

PASMEM  Pass  values  from  BASIC  to  ML  by  POKEing  to  free  memory 

PASREG  Pass  values  to  an  ML  program  directly  through  the  registers 

PASUSR  Pass  values  from  BASIC  to  ML  via  the  USR  function 

PLOTCR  Set  the  cursor  location 
POKRUR/ 

PEKRUR  (64  only)  POKE  RAM  under  ROM  /  PEEK  RAM  under  ROM 
POKSCR        POKE  to  screen  and  color  memory 

PRTCHR  Print  a  character  on  the  screen 

PRTOUT  Send  characters  to  the  printer 

PRTSTR  Send  a  string  to  the  printer 

PTABAD  Print  a  string  from  a  lookup  table  of  addresses 
PTABCT         Print  a  string  from  a  table  by  using  a  counting  method 
RAS64  (64  only)  Set  up  a  raster  interrupt 

RAS128         (128  only)  Set  up  a  raster  interrupt 
RD2BYT         Generate  a  random  two-byte  integer  value  using  SID  voice  3 
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RDBUFF  Open  a  disk  channel,  read  a  sector,  copy  the  disk  buffer  to 

memory 

RDBYRG  Generate  a  random  one-byte  integer  in  a  range 

RDSTAT  Check  the  I/O  status  by  using  the  Kemal  READST  routine 
RE80CO/ 

WR80CO  (128  only)  Read  and  write  to  the  80-column  video  chip 

READBF  Read  bytes  from  a  sequential  or  program  file  into  a  buffer 

READFL  Read  characters  from  a  sequential  or  program  file 

RENAME  Rename  a  disk  file 

RENUM1  Simple  renumber  routine  (line  numbers  only) 

RND1VL  Generate  a  random  floating-point  number  using  BASIC'S 

RND(l)  function 

RNDBYT  Generate  a  random  one-byte  integer  value  (0-255)  using  SID 

voice  3 

RPTKEY  Set  repeat  key  flag 

RSREGM  Restore  registers  from  memory 

RSTVEC  Restore  all  Kemal  indirect  vectors 

SAVEBS  Save  a  BASIC  program 

SAVEML  Save  an  ML  program 

SCRCAS  Convert  screen  codes  to  Commodore  ASCII  characters 

SCRDN1  (64  only)  Scroll  down  a  line  with  the  INST  character 

SCRDN2  (64  only)  Scroll  the  screen  down  a  line  with  the  ROM  insert 

routine 

SCRDN3  Scroll  down  a  line  of  the  screen  by  copying  screen  and  color 

memory 

SCRTCH  Scratch  (erase)  a  disk  file 

SHFCHK  Check  the  status  of  the  shift  keys 

SIDCLR  Clear  the  SID  chip 

SIDVOL  Set  the  SID  chip  volume  register 

SIRENS  Produce  a  siren  sound 

SPRINT  Sprite  interrupt  routine — automatic  sprite  movement 

SQROOT  Calculate  the  integer  square  root  of  an  integer  value 

SRCBIN  Binary  search  of  a  sorted  list 

SRCLIN  Linear  search  for  a  string  or  other  value 

STASH  (128  only)  Store  system  memory  to  expansion  RAM 

STP64  (64  only)  Print  a  string  with  STROUT 

STP128  (128  only)  Print  a  string  with  PRIMM 

STPFLG  Check  for  STOP  key  by  using  the  system  STOP  flag 

STPKER  Check  for  the  STOP  key  using  the  Kernal  STOP  routine 

STRCPT  Print  a  string  with  a  custom  printing  routine 

STRLEN  Determine  string  length 

SUBBYT  Subtract  one  byte  value  from  another 

SUBFP  Subtract  one  floating-point  number  from  another 

SUBINT  Subtract  one  2-byte  integer  value  from  another 

SVREGM  Save  processor  registers  in  memory 

SVREGS  Save  and  restore  registers  on  the  stack  within  a  routine  (in-line 

code) 

SWAPIT  Memory  swap 

SWITCH  Switch  uppercase  to  lowercase  and  vice  versa 

TASCAS  Convert  characters  from  true  ASCII  to  Commodore  ASCII 
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TOD1DL  Time-of-day  (TOD)  dock  1  delay 

TOD1RD  Read  a  time-of-day  (TOD)  clock 

TOD2PR  Print  the  time-of-day  (TOD)  time 

TOD2ST/ 

TOD  1ST  Set  a  time-of-day  (TOD)  clock 

TXTCCH  Set  the  text  color  using  CHR$ 

TXTCIN  Input  a  line  of  text  using  a  custom  routine 

TXTCOL  Set  the  text  color 

TXTINP  Input  a  line  of  text  with  the  ROM  routine  INLIN 

VALIDT  Validate  a  disk 

VDCCOL  (128  only)  Write  to  80-column  video  attribute  memory 

VERIFY  Verify  a  disk  file 

VICADR  Change  the  text  screen  location 

VTDBNK  Change  the  video  bank 

WARMST  Warm  start 

WINDOW  (128  only)  Set  window  boundaries  with  escape  codes 

WR80CO  See  RE80CO 

WRBUFF  Open  a  disk  buffer  and  write  a  sector  to  disk 

WRITBF  Write  a  buffer  to  a  sequential  or  program  file 

WRTTFL  Send  characters  to  a  sequential  or  program  file 

XBCCOL  Set  colors  for  extended  background  color  mode 

XBCMOD  Turn  extended  background  color  mode  on  or  off 
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The  Machine  Language 
Library 

If  you're  interested  in  machine  language  programming  on  the 
Commodore  64  or  128,  this  book  is  a  necessity.  Machine  Language 
Routines  for  the  Commodore  64  and  128  gives  programmers  a  li- 
brary of  ML  routines  for  the  64  and  128  personal  computers.  In 
an  easy-to-use  dictionary  arrangement,  it  puts  over  200  indispens- 
able routines  at  your  fingertips.  Each  routine  is  fully  described 
and  is  accompanied  by  an  example  program  that  demonstrates 
its  use.  As  a  bonus,  the  routines  are  ready  to  be  plugged  into 
your  own  programs.  Cross-references  direct  you  to  other  routines 
that  perform  similar  or  related  functions. 

Here's  a  sample  of  what  you'll  find  inside  for  the  beginner. 

•  Numerous  short  routines  that  perform  mathematical  functions. 

•  Routines  that  explain  how  to  read,  write,  and  manipulate  disk 
files. 

•  Programs  to  convert  strings  and  numbers. 

•  Easy-to-use  techniques  for  reading  joysticks  and  for  adding 
sound  effects  and  music  to  your  programs. 

And  for  the  more  advanced  programmer: 

•  Interrupt-driven  programs  for  playing  music. 

•  Routines  to  move  sprites  automatically. 

•  Programs  to  display  16  sprites  at  the  same  time. 

•  Examples  of  how  to  pass  values  between  ML  and  BASIC. 

•  And  much  more. 

Authors  Todd  Heimarck  and  Patrick  Parrish  have  combined 
a  wealth  of  knowledge  and  experience  to  create  this  information- 
packed  sourcebook.  With  clear  explanations  and  useful  examples. 
Machine  Language  Routines  for  the  Commodore  64  and  128  is  a 
handy  reference  guide  as  well  as  an  exceptional  tutorial. 


The  source  code  for  each  of  the  routines  in  this  book  is  also  available  on 
a  companion  disk.  See  the  coupon  in  the  back  of  the  book  for  details. 
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